diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-02 17:37:32 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-02 17:37:32 +0000 |
| commit | 4edd186092925834447e43ac5ad670189ed77da6 (patch) | |
| tree | 4e7e41cc307b50db260613d07f88bc4e83bf8da4 /gcc | |
| parent | 57c46c31236b1b39aa4f8f123ebb56641dd2b2af (diff) | |
| download | gcc-4edd186092925834447e43ac5ad670189ed77da6.tar.gz | |
2012-07-02 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate all}}
* melt/generated/meltrunsup.h: Regenerate.
* melt/generated/warmelt-base+01.c: Regenerate.
* melt/generated/warmelt-base+02.c: Regenerate.
* melt/generated/warmelt-base+03.c: Regenerate.
* melt/generated/warmelt-base+meltdesc.c: Regenerate.
* melt/generated/warmelt-base+melttime.h: Regenerate.
* melt/generated/warmelt-base.c: Regenerate.
* melt/generated/warmelt-debug+01.c: Regenerate.
* melt/generated/warmelt-debug+02.c: Regenerate.
* melt/generated/warmelt-debug+meltdesc.c: Regenerate.
* melt/generated/warmelt-debug+melttime.h: Regenerate.
* melt/generated/warmelt-debug.c: Regenerate.
* melt/generated/warmelt-first+01.c: Regenerate.
* melt/generated/warmelt-first+02.c: Regenerate.
* melt/generated/warmelt-first+03.c: Regenerate.
* melt/generated/warmelt-first+meltdesc.c: Regenerate.
* melt/generated/warmelt-first+melttime.h: Regenerate.
* melt/generated/warmelt-first.c: Regenerate.
* melt/generated/warmelt-genobj+01.c: Regenerate.
* melt/generated/warmelt-genobj+02.c: Regenerate.
* melt/generated/warmelt-genobj+03.c: Regenerate.
* melt/generated/warmelt-genobj+04.c: Regenerate.
* melt/generated/warmelt-genobj+05.c: Regenerate.
* melt/generated/warmelt-genobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-genobj+melttime.h: Regenerate.
* melt/generated/warmelt-genobj.c: Regenerate.
* melt/generated/warmelt-macro+01.c: Regenerate.
* melt/generated/warmelt-macro+02.c: Regenerate.
* melt/generated/warmelt-macro+03.c: Regenerate.
* melt/generated/warmelt-macro+04.c: Regenerate.
* melt/generated/warmelt-macro+05.c: Regenerate.
* melt/generated/warmelt-macro+meltdesc.c: Regenerate.
* melt/generated/warmelt-macro+melttime.h: Regenerate.
* melt/generated/warmelt-macro.c: Regenerate.
* melt/generated/warmelt-modes+01.c: Regenerate.
* melt/generated/warmelt-modes+02.c: Regenerate.
* melt/generated/warmelt-modes+meltdesc.c: Regenerate.
* melt/generated/warmelt-modes+melttime.h: Regenerate.
* melt/generated/warmelt-modes.c: Regenerate.
* melt/generated/warmelt-normal+01.c: Regenerate.
* melt/generated/warmelt-normal+02.c: Regenerate.
* melt/generated/warmelt-normal+03.c: Regenerate.
* melt/generated/warmelt-normal+04.c: Regenerate.
* melt/generated/warmelt-normal+05.c: Regenerate.
* melt/generated/warmelt-normal+meltdesc.c: Regenerate.
* melt/generated/warmelt-normal+melttime.h: Regenerate.
* melt/generated/warmelt-normal.c: Regenerate.
* melt/generated/warmelt-normatch+01.c: Regenerate.
* melt/generated/warmelt-normatch+02.c: Regenerate.
* melt/generated/warmelt-normatch+03.c: Regenerate.
* melt/generated/warmelt-normatch+04.c: Regenerate.
* melt/generated/warmelt-normatch+05.c: Regenerate.
* melt/generated/warmelt-normatch+meltdesc.c: Regenerate.
* melt/generated/warmelt-normatch+melttime.h: Regenerate.
* melt/generated/warmelt-normatch.c: Regenerate.
* melt/generated/warmelt-outobj+01.c: Regenerate.
* melt/generated/warmelt-outobj+02.c: Regenerate.
* melt/generated/warmelt-outobj+03.c: Regenerate.
* melt/generated/warmelt-outobj+04.c: Regenerate.
* melt/generated/warmelt-outobj+05.c: Regenerate.
* melt/generated/warmelt-outobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-outobj+melttime.h: Regenerate.
* melt/generated/warmelt-outobj.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@189172 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
64 files changed, 13591 insertions, 6367 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 061540bba8a..cdaa5b2a85e 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,5 +1,72 @@ 2012-07-02 Basile Starynkevitch <basile@starynkevitch.net> + {{Regenerate all}} + + * melt/generated/meltrunsup.h: Regenerate. + * melt/generated/warmelt-base+01.c: Regenerate. + * melt/generated/warmelt-base+02.c: Regenerate. + * melt/generated/warmelt-base+03.c: Regenerate. + * melt/generated/warmelt-base+meltdesc.c: Regenerate. + * melt/generated/warmelt-base+melttime.h: Regenerate. + * melt/generated/warmelt-base.c: Regenerate. + * melt/generated/warmelt-debug+01.c: Regenerate. + * melt/generated/warmelt-debug+02.c: Regenerate. + * melt/generated/warmelt-debug+meltdesc.c: Regenerate. + * melt/generated/warmelt-debug+melttime.h: Regenerate. + * melt/generated/warmelt-debug.c: Regenerate. + * melt/generated/warmelt-first+01.c: Regenerate. + * melt/generated/warmelt-first+02.c: Regenerate. + * melt/generated/warmelt-first+03.c: Regenerate. + * melt/generated/warmelt-first+meltdesc.c: Regenerate. + * melt/generated/warmelt-first+melttime.h: Regenerate. + * melt/generated/warmelt-first.c: Regenerate. + * melt/generated/warmelt-genobj+01.c: Regenerate. + * melt/generated/warmelt-genobj+02.c: Regenerate. + * melt/generated/warmelt-genobj+03.c: Regenerate. + * melt/generated/warmelt-genobj+04.c: Regenerate. + * melt/generated/warmelt-genobj+05.c: Regenerate. + * melt/generated/warmelt-genobj+meltdesc.c: Regenerate. + * melt/generated/warmelt-genobj+melttime.h: Regenerate. + * melt/generated/warmelt-genobj.c: Regenerate. + * melt/generated/warmelt-macro+01.c: Regenerate. + * melt/generated/warmelt-macro+02.c: Regenerate. + * melt/generated/warmelt-macro+03.c: Regenerate. + * melt/generated/warmelt-macro+04.c: Regenerate. + * melt/generated/warmelt-macro+05.c: Regenerate. + * melt/generated/warmelt-macro+meltdesc.c: Regenerate. + * melt/generated/warmelt-macro+melttime.h: Regenerate. + * melt/generated/warmelt-macro.c: Regenerate. + * melt/generated/warmelt-modes+01.c: Regenerate. + * melt/generated/warmelt-modes+02.c: Regenerate. + * melt/generated/warmelt-modes+meltdesc.c: Regenerate. + * melt/generated/warmelt-modes+melttime.h: Regenerate. + * melt/generated/warmelt-modes.c: Regenerate. + * melt/generated/warmelt-normal+01.c: Regenerate. + * melt/generated/warmelt-normal+02.c: Regenerate. + * melt/generated/warmelt-normal+03.c: Regenerate. + * melt/generated/warmelt-normal+04.c: Regenerate. + * melt/generated/warmelt-normal+05.c: Regenerate. + * melt/generated/warmelt-normal+meltdesc.c: Regenerate. + * melt/generated/warmelt-normal+melttime.h: Regenerate. + * melt/generated/warmelt-normal.c: Regenerate. + * melt/generated/warmelt-normatch+01.c: Regenerate. + * melt/generated/warmelt-normatch+02.c: Regenerate. + * melt/generated/warmelt-normatch+03.c: Regenerate. + * melt/generated/warmelt-normatch+04.c: Regenerate. + * melt/generated/warmelt-normatch+05.c: Regenerate. + * melt/generated/warmelt-normatch+meltdesc.c: Regenerate. + * melt/generated/warmelt-normatch+melttime.h: Regenerate. + * melt/generated/warmelt-normatch.c: Regenerate. + * melt/generated/warmelt-outobj+01.c: Regenerate. + * melt/generated/warmelt-outobj+02.c: Regenerate. + * melt/generated/warmelt-outobj+03.c: Regenerate. + * melt/generated/warmelt-outobj+04.c: Regenerate. + * melt/generated/warmelt-outobj+05.c: Regenerate. + * melt/generated/warmelt-outobj+meltdesc.c: Regenerate. + * melt/generated/warmelt-outobj+melttime.h: Regenerate. + * melt/generated/warmelt-outobj.c: Regenerate. + +2012-07-02 Basile Starynkevitch <basile@starynkevitch.net> * melt/warmelt-base.melt (valdesc_routine): Remove gap from MELT_ROUTINE_STRUCT, add extra pointer in tabval. diff --git a/gcc/melt/generated/meltrunsup.h b/gcc/melt/generated/meltrunsup.h index c7b2ca69cac..bdb9b2f1af3 100644 --- a/gcc/melt/generated/meltrunsup.h +++ b/gcc/melt/generated/meltrunsup.h @@ -694,8 +694,7 @@ typedef struct meltroutine_st *meltroutine_ptr_t; meltroutfun_t* routfunad; \ melt_ptr_t routdata; \ unsigned nbval; \ - melt_ptr_t tabval[N]; \ - long _gap; } + melt_ptr_t tabval[N+1]; } diff --git a/gcc/melt/generated/warmelt-base+01.c b/gcc/melt/generated/warmelt-base+01.c index c25c8eb9eec..4ea86637327 100644 --- a/gcc/melt/generated/warmelt-base+01.c +++ b/gcc/melt/generated/warmelt-base+01.c @@ -1169,6 +1169,13 @@ meltrout_5_warmelt_base_IV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_5_warmelt_base_IV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1421,6 +1428,13 @@ meltrout_6_warmelt_base_COMPARE_NAMED_ALPHA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_base_COMPARE_NAMED_ALPHA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1950,6 +1964,13 @@ meltrout_7_warmelt_base_ADD2OUT (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_7_warmelt_base_ADD2OUT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3357,6 +3378,13 @@ meltrout_8_warmelt_base_STRING4OUT (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_8_warmelt_base_STRING4OUT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4918,6 +4946,13 @@ meltrout_9_warmelt_base_ADD2OUT4NULL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_base_ADD2OUT4NULL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5095,6 +5130,13 @@ meltrout_10_warmelt_base_ADD2OUT4INTEGER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_base_ADD2OUT4INTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5279,6 +5321,13 @@ meltrout_11_warmelt_base_ADD2OUT4STRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_base_ADD2OUT4STRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5458,6 +5507,13 @@ meltrout_12_warmelt_base_ADD2OUT4STRBUF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_base_ADD2OUT4STRBUF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5640,6 +5696,13 @@ meltrout_13_warmelt_base_ADD2OUT4CLONEDSYMB (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_base_ADD2OUT4CLONEDSYMB_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6040,6 +6103,13 @@ meltrout_14_warmelt_base_ADD2OUT4NAMED (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_14_warmelt_base_ADD2OUT4NAMED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6184,6 +6254,13 @@ meltrout_15_warmelt_base_ADD2OUT4ROOTOBJECT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_15_warmelt_base_ADD2OUT4ROOTOBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6360,6 +6437,13 @@ meltrout_16_warmelt_base_ADD2OUT4ANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_base_ADD2OUT4ANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6514,6 +6598,13 @@ meltrout_17_warmelt_base_MAPSTRING_EVERY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_base_MAPSTRING_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6758,6 +6849,13 @@ meltrout_18_warmelt_base_MAPSTRING_ITERATE_TEST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_base_MAPSTRING_ITERATE_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7083,6 +7181,13 @@ meltrout_19_warmelt_base_MULTIPLE_EVERY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_19_warmelt_base_MULTIPLE_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7286,6 +7391,13 @@ meltrout_20_warmelt_base_MULTIPLE_BACKWARD_EVERY (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_20_warmelt_base_MULTIPLE_BACKWARD_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7487,6 +7599,13 @@ meltrout_21_warmelt_base_MULTIPLE_EVERY_BOTH (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_base_MULTIPLE_EVERY_BOTH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7896,6 +8015,13 @@ meltrout_22_warmelt_base_RUN_ALL_PASS_EXECUTION_HOOKS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_22_warmelt_base_RUN_ALL_PASS_EXECUTION_HOOKS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8105,6 +8231,13 @@ meltrout_23_warmelt_base_REGISTER_PASS_EXECUTION_HOOK (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_23_warmelt_base_REGISTER_PASS_EXECUTION_HOOK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8608,6 +8741,13 @@ meltrout_24_warmelt_base_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_base_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8761,6 +8901,13 @@ meltrout_25_warmelt_base_UNREGISTER_PASS_EXECUTION_HOOK (meltclosure_ptr_t (struct frame_meltrout_25_warmelt_base_UNREGISTER_PASS_EXECUTION_HOOK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9129,6 +9276,13 @@ meltrout_26_warmelt_base_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_26_warmelt_base_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9278,6 +9432,13 @@ meltrout_27_warmelt_base_REGISTER_PRAGMA_HANDLER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_27_warmelt_base_REGISTER_PRAGMA_HANDLER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9740,6 +9901,13 @@ meltrout_28_warmelt_base_REGISTER_PRE_GENERICIZE_HOOK_FIRST (meltclosure_ptr_t (struct frame_meltrout_28_warmelt_base_REGISTER_PRE_GENERICIZE_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10047,6 +10215,13 @@ meltrout_29_warmelt_base_REGISTER_PRE_GENERICIZE_HOOK_LAST (meltclosure_ptr_t (struct frame_meltrout_29_warmelt_base_REGISTER_PRE_GENERICIZE_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10353,6 +10528,13 @@ meltrout_30_warmelt_base_PRE_GENERICIZE_HOOK_RUNNER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_30_warmelt_base_PRE_GENERICIZE_HOOK_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10686,6 +10868,13 @@ meltrout_31_warmelt_base_MELT_FINISH_TYPE_RUNNER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_31_warmelt_base_MELT_FINISH_TYPE_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-base+02.c b/gcc/melt/generated/warmelt-base+02.c index 21eccda77a0..a4b531169b0 100644 --- a/gcc/melt/generated/warmelt-base+02.c +++ b/gcc/melt/generated/warmelt-base+02.c @@ -1180,6 +1180,13 @@ meltrout_32_warmelt_base_REGISTER_FINISH_TYPE_HOOK_FIRST (meltclosure_ptr_t (struct frame_meltrout_32_warmelt_base_REGISTER_FINISH_TYPE_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1495,6 +1502,13 @@ meltrout_33_warmelt_base_REGISTER_FINISH_TYPE_HOOK_LAST (meltclosure_ptr_t (struct frame_meltrout_33_warmelt_base_REGISTER_FINISH_TYPE_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1805,6 +1819,13 @@ meltrout_34_warmelt_base_MELT_FINISH_DECL_RUNNER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_34_warmelt_base_MELT_FINISH_DECL_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2142,6 +2163,13 @@ meltrout_35_warmelt_base_REGISTER_FINISH_DECL_HOOK_FIRST (meltclosure_ptr_t (struct frame_meltrout_35_warmelt_base_REGISTER_FINISH_DECL_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2457,6 +2485,13 @@ meltrout_36_warmelt_base_REGISTER_FINISH_DECL_HOOK_LAST (meltclosure_ptr_t (struct frame_meltrout_36_warmelt_base_REGISTER_FINISH_DECL_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2770,6 +2805,13 @@ meltrout_37_warmelt_base_MELT_ALL_PASSES_START_RUNNER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_37_warmelt_base_MELT_ALL_PASSES_START_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3085,6 +3127,13 @@ meltrout_38_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_FIRST (struct frame_meltrout_38_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3383,6 +3432,13 @@ meltrout_39_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_LAST (struct frame_meltrout_39_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3687,6 +3743,13 @@ meltrout_40_warmelt_base_MELT_ALL_PASSES_END_RUNNER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_40_warmelt_base_MELT_ALL_PASSES_END_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4012,6 +4075,13 @@ meltrout_41_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_FIRST (meltclosure_ptr_t (struct frame_meltrout_41_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4318,6 +4388,13 @@ meltrout_42_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_LAST (meltclosure_ptr_t (struct frame_meltrout_42_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4623,6 +4700,13 @@ meltrout_43_warmelt_base_MELT_ALL_IPA_PASSES_START_RUNNER (meltclosure_ptr_t (struct frame_meltrout_43_warmelt_base_MELT_ALL_IPA_PASSES_START_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4938,6 +5022,13 @@ meltrout_44_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_FIRST (struct frame_meltrout_44_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5237,6 +5328,13 @@ meltrout_45_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_LAST (struct frame_meltrout_45_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5542,6 +5640,13 @@ meltrout_46_warmelt_base_MELT_ALL_IPA_PASSES_END_RUNNER (meltclosure_ptr_t (struct frame_meltrout_46_warmelt_base_MELT_ALL_IPA_PASSES_END_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5857,6 +5962,13 @@ meltrout_47_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST (struct frame_meltrout_47_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6155,6 +6267,13 @@ meltrout_48_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_LAST (struct frame_meltrout_48_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6452,6 +6571,13 @@ meltrout_49_warmelt_base_MELT_EARLY_GIMPLE_PASSES_START_RUNNER (struct frame_meltrout_49_warmelt_base_MELT_EARLY_GIMPLE_PASSES_START_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6767,6 +6893,13 @@ meltrout_50_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST (struct frame_meltrout_50_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7067,6 +7200,13 @@ meltrout_51_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST (struct frame_meltrout_51_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7366,6 +7506,13 @@ meltrout_52_warmelt_base_MELT_EARLY_GIMPLE_PASSES_END_RUNNER (struct frame_meltrout_52_warmelt_base_MELT_EARLY_GIMPLE_PASSES_END_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7681,6 +7828,13 @@ meltrout_53_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST (struct frame_meltrout_53_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7981,6 +8135,13 @@ meltrout_54_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST (struct frame_meltrout_54_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8280,6 +8441,13 @@ meltrout_55_warmelt_base_SET_REFERENCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_55_warmelt_base_SET_REFERENCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8423,6 +8591,13 @@ meltrout_56_warmelt_base_INSTALL_VALUE_DESCRIPTOR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_56_warmelt_base_INSTALL_VALUE_DESCRIPTOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-base+03.c b/gcc/melt/generated/warmelt-base+03.c index 5e5076d004f..2dc67921f94 100644 --- a/gcc/melt/generated/warmelt-base+03.c +++ b/gcc/melt/generated/warmelt-base+03.c @@ -1180,6 +1180,13 @@ meltrout_57_warmelt_base_RETRIEVE_VALUE_DESCRIPTOR_LIST (meltclosure_ptr_t (struct frame_meltrout_57_warmelt_base_RETRIEVE_VALUE_DESCRIPTOR_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-base+meltdesc.c b/gcc/melt/generated/warmelt-base+meltdesc.c index bd3e694769a..8130f82ce6e 100644 --- a/gcc/melt/generated/warmelt-base+meltdesc.c +++ b/gcc/melt/generated/warmelt-base+meltdesc.c @@ -36,26 +36,26 @@ const char melt_modulename[]="warmelt-base"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-base"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="1c9321a35588d571c715c85033b40c0b"; +const char melt_primaryhexmd5[]="5cf9fead9dc84aca5fe0c297faecbb47"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-base+01.c #1 */ "1ec6ad013c173ffe4b675991b2f79995", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-base+02.c #2 */ "459b77ffb4bc68a5ddf5c22c2edd980f", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-base+03.c #3 */ "ad2e84d193a6ff7cbf44eb0ef2d2e159", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-base+01.c #1 */ "ff65985118ff4c19f4d776c94c990764", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-base+02.c #2 */ "03c35c6a87fb97004dbd7b0ba7de832a", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-base+03.c #3 */ "f0673e594fc8d6b39da3b3f7b99732c1", (const char*)0 }; /* last index of secondary files */ const int melt_lastsecfileindex=3; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="a268523fb2be20f6ec333da0c8794d54" ; +const char melt_cumulated_hexmd5[]="cb9fef541fa7a9feb8e58b4602ce43b5" ; /* include the timestamp file */ -#define meltmod_warmelt_base_mds__a268523fb2be20f6ec333da0c8794d54 1 +#define meltmod_warmelt_base_mds__cb9fef541fa7a9feb8e58b4602ce43b5 1 #include "warmelt-base+melttime.h" diff --git a/gcc/melt/generated/warmelt-base+melttime.h b/gcc/melt/generated/warmelt-base+melttime.h index d82fea5e79e..891ce949a4c 100644 --- a/gcc/melt/generated/warmelt-base+melttime.h +++ b/gcc/melt/generated/warmelt-base+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-base+melttime.h is included from warmelt-base+meltdesc.c only. */ -#if meltmod_warmelt_base_mds__a268523fb2be20f6ec333da0c8794d54 +#if meltmod_warmelt_base_mds__cb9fef541fa7a9feb8e58b4602ce43b5 /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-base */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:33 2012 MEST"; -const long long melt_gen_timenum=1341248913; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:22 2012 MEST"; +const long long melt_gen_timenum=1341250462; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248913; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_base_mds__a268523fb2be20f6ec333da0c8794d54 */ + #else /* ! meltmod_warmelt_base_mds__cb9fef541fa7a9feb8e58b4602ce43b5 */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-base - #endif /* meltmod_warmelt_base_mds__a268523fb2be20f6ec333da0c8794d54 */ + #endif /* meltmod_warmelt_base_mds__cb9fef541fa7a9feb8e58b4602ce43b5 */ diff --git a/gcc/melt/generated/warmelt-base.c b/gcc/melt/generated/warmelt-base.c index af4fd9c62c8..1fdd2d11232 100644 --- a/gcc/melt/generated/warmelt-base.c +++ b/gcc/melt/generated/warmelt-base.c @@ -1169,6 +1169,13 @@ meltrout_1_warmelt_base_IV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_1_warmelt_base_IV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1381,6 +1388,13 @@ meltrout_2_warmelt_base_IV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_2_warmelt_base_IV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1593,6 +1607,13 @@ meltrout_3_warmelt_base_IV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_3_warmelt_base_IV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1805,6 +1826,13 @@ meltrout_4_warmelt_base_IV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_4_warmelt_base_IV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4939,10 +4967,6 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_base iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -615); struct cdata_st { @@ -7733,7 +7757,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (14) dstr_2720__meltroutine_st; struct MELT_STRING_STRUCT (9) dstr_2721__u_routine; struct MELT_STRING_STRUCT (249) dstr_2722__from_VALDESC; - struct MELT_STRING_STRUCT (691) dstr_2723__decl_VALDESC; + struct MELT_STRING_STRUCT (675) dstr_2723__decl_VALDESC; struct MELT_STRING_STRUCT (806) dstr_2724__from_VALDESC; struct MELT_STRING_STRUCT (159) dstr_2725__from_VALDESC; struct MELT_OBJECT_STRUCT (3) dsym_2726__VALDESC_BUCKETLONGS; @@ -8170,6 +8194,10 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (11) dstr_3137__SET_CONTENT; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_base iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -615); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -42653,7 +42681,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "t* routfunad;\t\t\t\\\n melt_ptr_t routdata;\t\t\t\t\\\n unsigned nbval;\t", /*lessbig */ 128); /*end big inistring */ strncpy (cdat->dstr_2723__decl_VALDESC.val + 640, - "\t\t\t\\\n melt_ptr_t tabval[N];\t\t\t\t\\\n long _gap; }\n ", + "\t\t\t\\\n melt_ptr_t tabval[N+1]; }\n ", sizeof (cdat->dstr_2723__decl_VALDESC.val) - 641); @@ -42733,7 +42761,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_BUCKETLONGS", sizeof (cdat->dstr_2727__VALDESC_BUCKETLO. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3092:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3091:/ iniobj"); /*iniobj dobj_2728__VALDESC_BUCKETLONGS*/ /*_.VALDATA___V2755*/ meltfptr[2754] = @@ -42967,7 +42995,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_STRING", sizeof (cdat->dstr_2739__VALDESC_STRING.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3181:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3180:/ iniobj"); /*iniobj dobj_2740__VALDESC_STRING*/ /*_.VALDATA___V2767*/ meltfptr[2766] = @@ -43117,7 +43145,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_STRBUF", sizeof (cdat->dstr_2750__VALDESC_STRBUF.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3221:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3220:/ iniobj"); /*iniobj dobj_2751__VALDESC_STRBUF*/ /*_.VALDATA___V2778*/ meltfptr[2777] = @@ -43296,7 +43324,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_PAIR", sizeof (cdat->dstr_2760__VALDESC_PAIR.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3277:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3276:/ iniobj"); /*iniobj dobj_2761__VALDESC_PAIR*/ /*_.VALDATA___V2788*/ meltfptr[2787] = @@ -43449,7 +43477,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_LIST", sizeof (cdat->dstr_2772__VALDESC_LIST.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3310:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3309:/ iniobj"); /*iniobj dobj_2773__VALDESC_LIST*/ /*_.VALDATA___V2800*/ meltfptr[2799] = @@ -43627,7 +43655,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_INT", sizeof (cdat->dstr_2784__VALDESC_INT.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3361:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3360:/ iniobj"); /*iniobj dobj_2785__VALDESC_INT*/ /*_.VALDATA___V2812*/ meltfptr[2811] = @@ -43767,7 +43795,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_MIXINT", sizeof (cdat->dstr_2794__VALDESC_MIXINT.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3391:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3390:/ iniobj"); /*iniobj dobj_2795__VALDESC_MIXINT*/ /*_.VALDATA___V2822*/ meltfptr[2821] = @@ -43901,7 +43929,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_MIXLOC", sizeof (cdat->dstr_2804__VALDESC_MIXLOC.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3419:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3418:/ iniobj"); /*iniobj dobj_2805__VALDESC_MIXLOC*/ /*_.VALDATA___V2832*/ meltfptr[2831] = @@ -44035,7 +44063,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_MIXBIGINT", sizeof (cdat->dstr_2814__VALDESC_MIXBIGIN. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3448:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3447:/ iniobj"); /*iniobj dobj_2815__VALDESC_MIXBIGINT*/ /*_.VALDATA___V2842*/ meltfptr[2841] = @@ -44192,7 +44220,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_REAL", sizeof (cdat->dstr_2824__VALDESC_REAL.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3486:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3485:/ iniobj"); /*iniobj dobj_2825__VALDESC_REAL*/ /*_.VALDATA___V2852*/ meltfptr[2851] = @@ -44315,7 +44343,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_FILE", sizeof (cdat->dstr_2833__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3511:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3510:/ iniobj"); /*iniobj dobj_2834__VALDESC_SPECIAL_FILE*/ /*_.VALDATA___V2861*/ meltfptr[2860] = @@ -44463,7 +44491,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_RAW_FILE", sizeof (cdat->dstr_2844__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3544:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3543:/ iniobj"); /*iniobj dobj_2845__VALDESC_SPECIAL_RAW_FILE*/ /*_.VALDATA___V2872*/ meltfptr[2871] = @@ -44615,7 +44643,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_MPFR", sizeof (cdat->dstr_2855__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3576:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3575:/ iniobj"); /*iniobj dobj_2856__VALDESC_SPECIAL_MPFR*/ /*_.VALDATA___V2883*/ meltfptr[2882] = @@ -44763,7 +44791,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_COEFFICIENT", sizeof (cdat->dstr_2866__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3608:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3607:/ iniobj"); /*iniobj dobj_2867__VALDESC_SPECIAL_PPL_COEFFICIENT*/ /*_.VALDATA___V2894*/ meltfptr[2893] = @@ -44917,7 +44945,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION", sizeof (cdat->dstr_2877__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3640:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3639:/ iniobj"); /*iniobj dobj_2878__VALDESC_SPECIAL_PPL_LINEAR_EXPRESSION*/ /*_.VALDATA___V2905*/ meltfptr[2904] = @@ -45070,7 +45098,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_CONSTRAINT", sizeof (cdat->dstr_2888__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3673:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3672:/ iniobj"); /*iniobj dobj_2889__VALDESC_SPECIAL_PPL_CONSTRAINT*/ /*_.VALDATA___V2916*/ meltfptr[2915] = @@ -45223,7 +45251,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM", sizeof (cdat->dstr_2899__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3706:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3705:/ iniobj"); /*iniobj dobj_2900__VALDESC_SPECIAL_PPL_CONSTRAINT_SYSTEM*/ /*_.VALDATA___V2927*/ meltfptr[2926] = @@ -45376,7 +45404,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_GENERATOR", sizeof (cdat->dstr_2910__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3739:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3738:/ iniobj"); /*iniobj dobj_2911__VALDESC_SPECIAL_PPL_GENERATOR*/ /*_.VALDATA___V2938*/ meltfptr[2937] = @@ -45528,7 +45556,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM", sizeof (cdat->dstr_2921__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3772:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3771:/ iniobj"); /*iniobj dobj_2922__VALDESC_SPECIAL_PPL_GENERATOR_SYSTEM*/ /*_.VALDATA___V2949*/ meltfptr[2948] = @@ -45681,7 +45709,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VALDESC_SPECIAL_PPL_POLYHEDRON", sizeof (cdat->dstr_2932__VALDESC_SPECIAL_. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3805:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3804:/ iniobj"); /*iniobj dobj_2933__VALDESC_SPECIAL_PPL_POLYHEDRON*/ /*_.VALDATA___V2960*/ meltfptr[2959] = @@ -45834,7 +45862,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VARIADIC_INDEX", sizeof (cdat->dstr_2943__VARIADIC_INDEX.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3841:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3840:/ iniobj"); /*iniobj dobj_2944__VARIADIC_INDEX*/ /*_.VALDATA___V2971*/ meltfptr[2970] = @@ -45918,7 +45946,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VARIADIC_LENGTH", sizeof (cdat->dstr_2950__VARIADIC_LENGTH. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3855:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3854:/ iniobj"); /*iniobj dobj_2951__VARIADIC_LENGTH*/ /*_.VALDATA___V2978*/ meltfptr[2977] = @@ -46002,7 +46030,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VARIADIC_SKIP", sizeof (cdat->dstr_2957__VARIADIC_SKIP.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3870:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3869:/ iniobj"); /*iniobj dobj_2958__VARIADIC_SKIP*/ /*_.VALDATA___V2985*/ meltfptr[2984] = @@ -46154,7 +46182,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VARIADIC_TYPE_CODE", sizeof (cdat->dstr_2969__VARIADIC_TYPE_CO. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3890:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3889:/ iniobj"); /*iniobj dobj_2970__VARIADIC_TYPE_CODE*/ /*_.VALDATA___V2997*/ meltfptr[2996] = @@ -46298,7 +46326,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "VARIADIC_CTYPE", sizeof (cdat->dstr_2981__VARIADIC_CTYPE.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3906:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3905:/ iniobj"); /*iniobj dobj_2982__VARIADIC_CTYPE*/ /*_.VALDATA___V3009*/ meltfptr[3008] = @@ -46431,7 +46459,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, "POLL_ALL_INPUTS", sizeof (cdat->dstr_2992__POLL_ALL_INPUTS. val) - 1); - MELT_LOCATION ("warmelt-base.melt:3922:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3921:/ iniobj"); /*iniobj dobj_2993__POLL_ALL_INPUTS*/ /*_.VALDATA___V3020*/ meltfptr[3019] = @@ -46571,7 +46599,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_3003__INCREMENT.val, "INCREMENT", sizeof (cdat->dstr_3003__INCREMENT.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3927:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3926:/ iniobj"); /*iniobj dobj_3004__INCREMENT*/ /*_.VALDATA___V3031*/ meltfptr[3030] = @@ -46735,7 +46763,7 @@ initialize_module_meltdata_warmelt_base (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_3016__INCREMENT.val, "INCREMENT", sizeof (cdat->dstr_3016__INCREMENT.val) - 1); - MELT_LOCATION ("warmelt-base.melt:3935:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3934:/ iniobj"); /*iniobj dobj_3017__BLOCK_SIGNALS*/ /*_.VALDATA___V3044*/ meltfptr[3043] = @@ -48604,7 +48632,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -118326,7 +118355,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2753*/ meltfptr[2752]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118344,7 +118373,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2756*/ meltfptr[2755]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118362,7 +118391,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2757*/ meltfptr[2756]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118380,7 +118409,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2758*/ meltfptr[2757]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118398,7 +118427,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2759*/ meltfptr[2758]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118416,7 +118445,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2760*/ meltfptr[2759]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118434,7 +118463,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2761*/ meltfptr[2760]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118452,7 +118481,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2762*/ meltfptr[2761]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118470,7 +118499,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2763*/ meltfptr[2762]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118488,7 +118517,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2764*/ meltfptr[2763]); - MELT_LOCATION ("warmelt-base.melt:3092:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3091:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2755*/ meltfptr[2754]); @@ -118512,7 +118541,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2765*/ meltfptr[2764]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118530,7 +118559,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2768*/ meltfptr[2767]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118548,7 +118577,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2769*/ meltfptr[2768]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118566,7 +118595,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2770*/ meltfptr[2769]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118584,7 +118613,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2771*/ meltfptr[2770]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118602,7 +118631,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2772*/ meltfptr[2771]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118620,7 +118649,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2773*/ meltfptr[2772]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118638,7 +118667,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2774*/ meltfptr[2773]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118656,7 +118685,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2775*/ meltfptr[2774]); - MELT_LOCATION ("warmelt-base.melt:3181:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3180:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2767*/ meltfptr[2766]); @@ -118680,7 +118709,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2776*/ meltfptr[2775]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118698,7 +118727,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2779*/ meltfptr[2778]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118716,7 +118745,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2780*/ meltfptr[2779]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118734,7 +118763,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2781*/ meltfptr[2780]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118752,7 +118781,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2782*/ meltfptr[2781]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118770,7 +118799,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2783*/ meltfptr[2782]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118788,7 +118817,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2784*/ meltfptr[2783]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118806,7 +118835,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2785*/ meltfptr[2784]); - MELT_LOCATION ("warmelt-base.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2778*/ meltfptr[2777]); @@ -118830,7 +118859,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2786*/ meltfptr[2785]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118848,7 +118877,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2789*/ meltfptr[2788]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118866,7 +118895,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2790*/ meltfptr[2789]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118884,7 +118913,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2791*/ meltfptr[2790]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118902,7 +118931,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2792*/ meltfptr[2791]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118920,7 +118949,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2793*/ meltfptr[2792]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118938,7 +118967,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2794*/ meltfptr[2793]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118956,7 +118985,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2795*/ meltfptr[2794]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118974,7 +119003,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2796*/ meltfptr[2795]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -118992,7 +119021,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2797*/ meltfptr[2796]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119010,7 +119039,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2716*/ meltfptr[2715]); - MELT_LOCATION ("warmelt-base.melt:3277:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3276:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2788*/ meltfptr[2787]); @@ -119034,7 +119063,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2798*/ meltfptr[2797]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119052,7 +119081,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2801*/ meltfptr[2800]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119070,7 +119099,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2802*/ meltfptr[2801]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119088,7 +119117,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2803*/ meltfptr[2802]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119106,7 +119135,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2804*/ meltfptr[2803]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119124,7 +119153,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2805*/ meltfptr[2804]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119142,7 +119171,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2806*/ meltfptr[2805]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119160,7 +119189,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2807*/ meltfptr[2806]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119178,7 +119207,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2808*/ meltfptr[2807]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119196,7 +119225,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2809*/ meltfptr[2808]); - MELT_LOCATION ("warmelt-base.melt:3310:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3309:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2800*/ meltfptr[2799]); @@ -119220,7 +119249,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2810*/ meltfptr[2809]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119238,7 +119267,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2813*/ meltfptr[2812]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119256,7 +119285,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2814*/ meltfptr[2813]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119274,7 +119303,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2815*/ meltfptr[2814]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119292,7 +119321,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2816*/ meltfptr[2815]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119310,7 +119339,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2817*/ meltfptr[2816]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119328,7 +119357,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2818*/ meltfptr[2817]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119346,7 +119375,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2819*/ meltfptr[2818]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119364,7 +119393,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2716*/ meltfptr[2715]); - MELT_LOCATION ("warmelt-base.melt:3361:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3360:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2812*/ meltfptr[2811]); @@ -119388,7 +119417,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2820*/ meltfptr[2819]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119406,7 +119435,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2823*/ meltfptr[2822]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119424,7 +119453,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2824*/ meltfptr[2823]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119442,7 +119471,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2825*/ meltfptr[2824]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119460,7 +119489,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2826*/ meltfptr[2825]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119478,7 +119507,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2827*/ meltfptr[2826]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119496,7 +119525,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2828*/ meltfptr[2827]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119514,7 +119543,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2829*/ meltfptr[2828]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119532,7 +119561,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2716*/ meltfptr[2715]); - MELT_LOCATION ("warmelt-base.melt:3391:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3390:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2822*/ meltfptr[2821]); @@ -119556,7 +119585,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2830*/ meltfptr[2829]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119574,7 +119603,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2833*/ meltfptr[2832]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119592,7 +119621,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2834*/ meltfptr[2833]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119610,7 +119639,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2835*/ meltfptr[2834]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119628,7 +119657,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2836*/ meltfptr[2835]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119646,7 +119675,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2837*/ meltfptr[2836]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119664,7 +119693,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2838*/ meltfptr[2837]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119682,7 +119711,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2839*/ meltfptr[2838]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119700,7 +119729,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2716*/ meltfptr[2715]); - MELT_LOCATION ("warmelt-base.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3418:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2832*/ meltfptr[2831]); @@ -119724,7 +119753,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2840*/ meltfptr[2839]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119742,7 +119771,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2843*/ meltfptr[2842]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119760,7 +119789,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2844*/ meltfptr[2843]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119778,7 +119807,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2845*/ meltfptr[2844]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119796,7 +119825,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2846*/ meltfptr[2845]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119814,7 +119843,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2847*/ meltfptr[2846]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119832,7 +119861,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2848*/ meltfptr[2847]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119850,7 +119879,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2849*/ meltfptr[2848]); - MELT_LOCATION ("warmelt-base.melt:3448:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2842*/ meltfptr[2841]); @@ -119874,7 +119903,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2850*/ meltfptr[2849]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119892,7 +119921,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2853*/ meltfptr[2852]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119910,7 +119939,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2854*/ meltfptr[2853]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119928,7 +119957,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2855*/ meltfptr[2854]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119946,7 +119975,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2856*/ meltfptr[2855]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119964,7 +119993,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2857*/ meltfptr[2856]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -119982,7 +120011,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2858*/ meltfptr[2857]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120000,7 +120029,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2716*/ meltfptr[2715]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3485:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2852*/ meltfptr[2851]); @@ -120024,7 +120053,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2859*/ meltfptr[2858]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120042,7 +120071,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2862*/ meltfptr[2861]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120060,7 +120089,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2863*/ meltfptr[2862]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120078,7 +120107,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2864*/ meltfptr[2863]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120096,7 +120125,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2865*/ meltfptr[2864]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120114,7 +120143,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2866*/ meltfptr[2865]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120132,7 +120161,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2867*/ meltfptr[2866]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120150,7 +120179,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2868*/ meltfptr[2867]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120168,7 +120197,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2869*/ meltfptr[2868]); - MELT_LOCATION ("warmelt-base.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3510:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2861*/ meltfptr[2860]); @@ -120192,7 +120221,7 @@ meltmod__warmelt_base__initialmeltchunk_40 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2870*/ meltfptr[2869]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120223,7 +120252,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120241,7 +120270,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2874*/ meltfptr[2873]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120259,7 +120288,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2875*/ meltfptr[2874]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120277,7 +120306,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2876*/ meltfptr[2875]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120295,7 +120324,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2877*/ meltfptr[2876]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120313,7 +120342,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2878*/ meltfptr[2877]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120331,7 +120360,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2879*/ meltfptr[2878]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120349,7 +120378,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2880*/ meltfptr[2879]); - MELT_LOCATION ("warmelt-base.melt:3544:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3543:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2872*/ meltfptr[2871]); @@ -120373,7 +120402,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2881*/ meltfptr[2880]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120391,7 +120420,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2884*/ meltfptr[2883]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120409,7 +120438,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2885*/ meltfptr[2884]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120427,7 +120456,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2886*/ meltfptr[2885]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120445,7 +120474,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2887*/ meltfptr[2886]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120463,7 +120492,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2888*/ meltfptr[2887]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120481,7 +120510,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2889*/ meltfptr[2888]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120499,7 +120528,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2890*/ meltfptr[2889]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120517,7 +120546,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2891*/ meltfptr[2890]); - MELT_LOCATION ("warmelt-base.melt:3576:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3575:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2883*/ meltfptr[2882]); @@ -120541,7 +120570,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2892*/ meltfptr[2891]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120559,7 +120588,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2895*/ meltfptr[2894]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120577,7 +120606,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2896*/ meltfptr[2895]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120595,7 +120624,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2897*/ meltfptr[2896]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120613,7 +120642,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2898*/ meltfptr[2897]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120631,7 +120660,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2899*/ meltfptr[2898]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120649,7 +120678,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2900*/ meltfptr[2899]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120667,7 +120696,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2901*/ meltfptr[2900]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120685,7 +120714,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2902*/ meltfptr[2901]); - MELT_LOCATION ("warmelt-base.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3607:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2894*/ meltfptr[2893]); @@ -120709,7 +120738,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2903*/ meltfptr[2902]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120727,7 +120756,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2906*/ meltfptr[2905]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120745,7 +120774,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2907*/ meltfptr[2906]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120763,7 +120792,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2908*/ meltfptr[2907]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120781,7 +120810,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2909*/ meltfptr[2908]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120799,7 +120828,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2910*/ meltfptr[2909]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120817,7 +120846,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2911*/ meltfptr[2910]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120835,7 +120864,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2912*/ meltfptr[2911]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120853,7 +120882,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2913*/ meltfptr[2912]); - MELT_LOCATION ("warmelt-base.melt:3640:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3639:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2905*/ meltfptr[2904]); @@ -120877,7 +120906,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2914*/ meltfptr[2913]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120895,7 +120924,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2917*/ meltfptr[2916]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120913,7 +120942,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2918*/ meltfptr[2917]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120931,7 +120960,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2919*/ meltfptr[2918]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120949,7 +120978,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2920*/ meltfptr[2919]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120967,7 +120996,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2921*/ meltfptr[2920]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -120985,7 +121014,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2922*/ meltfptr[2921]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121003,7 +121032,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2923*/ meltfptr[2922]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121021,7 +121050,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2924*/ meltfptr[2923]); - MELT_LOCATION ("warmelt-base.melt:3673:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2916*/ meltfptr[2915]); @@ -121045,7 +121074,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2925*/ meltfptr[2924]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121063,7 +121092,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2928*/ meltfptr[2927]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121081,7 +121110,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2929*/ meltfptr[2928]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121099,7 +121128,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2930*/ meltfptr[2929]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121117,7 +121146,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2931*/ meltfptr[2930]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121135,7 +121164,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2932*/ meltfptr[2931]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121153,7 +121182,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2933*/ meltfptr[2932]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121171,7 +121200,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2934*/ meltfptr[2933]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121189,7 +121218,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2935*/ meltfptr[2934]); - MELT_LOCATION ("warmelt-base.melt:3706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3705:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2927*/ meltfptr[2926]); @@ -121213,7 +121242,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2936*/ meltfptr[2935]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121231,7 +121260,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2939*/ meltfptr[2938]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121249,7 +121278,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2940*/ meltfptr[2939]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121267,7 +121296,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2941*/ meltfptr[2940]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121285,7 +121314,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2942*/ meltfptr[2941]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121303,7 +121332,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2943*/ meltfptr[2942]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121321,7 +121350,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2944*/ meltfptr[2943]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121339,7 +121368,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2945*/ meltfptr[2944]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121357,7 +121386,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2946*/ meltfptr[2945]); - MELT_LOCATION ("warmelt-base.melt:3739:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3738:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2938*/ meltfptr[2937]); @@ -121381,7 +121410,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2947*/ meltfptr[2946]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121399,7 +121428,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2950*/ meltfptr[2949]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121417,7 +121446,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2951*/ meltfptr[2950]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121435,7 +121464,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2952*/ meltfptr[2951]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121453,7 +121482,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2953*/ meltfptr[2952]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121471,7 +121500,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2954*/ meltfptr[2953]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121489,7 +121518,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2955*/ meltfptr[2954]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121507,7 +121536,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2956*/ meltfptr[2955]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121525,7 +121554,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2957*/ meltfptr[2956]); - MELT_LOCATION ("warmelt-base.melt:3772:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3771:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2949*/ meltfptr[2948]); @@ -121549,7 +121578,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2958*/ meltfptr[2957]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121567,7 +121596,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2961*/ meltfptr[2960]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121585,7 +121614,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2962*/ meltfptr[2961]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121603,7 +121632,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2963*/ meltfptr[2962]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121621,7 +121650,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2964*/ meltfptr[2963]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121639,7 +121668,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2965*/ meltfptr[2964]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121657,7 +121686,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2966*/ meltfptr[2965]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121675,7 +121704,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2967*/ meltfptr[2966]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121693,7 +121722,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2968*/ meltfptr[2967]); - MELT_LOCATION ("warmelt-base.melt:3805:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3804:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2960*/ meltfptr[2959]); @@ -121717,7 +121746,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2969*/ meltfptr[2968]); - MELT_LOCATION ("warmelt-base.melt:3841:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3840:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121738,7 +121767,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2973*/ meltfptr[2972]); - MELT_LOCATION ("warmelt-base.melt:3841:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3840:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121756,7 +121785,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2973*/ meltfptr[2972]); - MELT_LOCATION ("warmelt-base.melt:3841:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3840:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121792,7 +121821,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2975*/ meltfptr[2974]); - MELT_LOCATION ("warmelt-base.melt:3841:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3840:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121810,7 +121839,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2975*/ meltfptr[2974]); - MELT_LOCATION ("warmelt-base.melt:3841:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3840:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2971*/ meltfptr[2970]); @@ -121834,7 +121863,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2976*/ meltfptr[2975]); - MELT_LOCATION ("warmelt-base.melt:3855:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3854:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121855,7 +121884,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2980*/ meltfptr[2979]); - MELT_LOCATION ("warmelt-base.melt:3855:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3854:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121873,7 +121902,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2980*/ meltfptr[2979]); - MELT_LOCATION ("warmelt-base.melt:3855:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3854:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121909,7 +121938,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2982*/ meltfptr[2981]); - MELT_LOCATION ("warmelt-base.melt:3855:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3854:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121927,7 +121956,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2982*/ meltfptr[2981]); - MELT_LOCATION ("warmelt-base.melt:3855:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3854:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2978*/ meltfptr[2977]); @@ -121951,7 +121980,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2983*/ meltfptr[2982]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -121988,7 +122017,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2988*/ meltfptr[2987]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122006,7 +122035,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2988*/ meltfptr[2987]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122025,7 +122054,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2987*/ meltfptr[2986]); @@ -122047,7 +122076,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2990*/ meltfptr[2989]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122065,7 +122094,7 @@ meltmod__warmelt_base__initialmeltchunk_41 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2990*/ meltfptr[2989]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122170,7 +122199,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2994*/ meltfptr[2993]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122188,7 +122217,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2994*/ meltfptr[2993]); - MELT_LOCATION ("warmelt-base.melt:3870:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3869:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2985*/ meltfptr[2984]); @@ -122212,7 +122241,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2995*/ meltfptr[2994]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122230,7 +122259,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2998*/ meltfptr[2997]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122248,7 +122277,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2988*/ meltfptr[2987]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122267,7 +122296,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2999*/ meltfptr[2998]); @@ -122289,7 +122318,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3000*/ meltfptr[2999]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122307,7 +122336,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V3000*/ meltfptr[2999]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122455,7 +122484,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3006*/ meltfptr[3005]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122473,7 +122502,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V3006*/ meltfptr[3005]); - MELT_LOCATION ("warmelt-base.melt:3890:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3889:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2997*/ meltfptr[2996]); @@ -122497,7 +122526,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3007*/ meltfptr[3006]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122515,7 +122544,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V3010*/ meltfptr[3009]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122533,7 +122562,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2988*/ meltfptr[2987]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122552,7 +122581,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3011*/ meltfptr[3010]); @@ -122574,7 +122603,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3012*/ meltfptr[3011]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122592,7 +122621,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V3012*/ meltfptr[3011]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122712,7 +122741,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3017*/ meltfptr[3016]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122730,7 +122759,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V3017*/ meltfptr[3016]); - MELT_LOCATION ("warmelt-base.melt:3906:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3905:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3009*/ meltfptr[3008]); @@ -122754,7 +122783,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3018*/ meltfptr[3017]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122791,7 +122820,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3023*/ meltfptr[3022]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122809,7 +122838,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V3023*/ meltfptr[3022]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122828,7 +122857,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3022*/ meltfptr[3021]); @@ -122850,7 +122879,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3025*/ meltfptr[3024]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122868,7 +122897,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V3025*/ meltfptr[3024]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122932,7 +122961,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3028*/ meltfptr[3027]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122950,7 +122979,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V3028*/ meltfptr[3027]); - MELT_LOCATION ("warmelt-base.melt:3922:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3921:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3020*/ meltfptr[3019]); @@ -122974,7 +123003,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3029*/ meltfptr[3028]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123011,7 +123040,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3034*/ meltfptr[3033]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123029,7 +123058,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V3034*/ meltfptr[3033]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123048,7 +123077,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3033*/ meltfptr[3032]); @@ -123072,7 +123101,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3037*/ meltfptr[3036]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123090,7 +123119,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V3037*/ meltfptr[3036]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123109,7 +123138,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3036*/ meltfptr[3035]); @@ -123145,7 +123174,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3039*/ meltfptr[3038]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123163,7 +123192,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V3039*/ meltfptr[3038]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123255,7 +123284,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3043*/ meltfptr[3042]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123273,12 +123302,12 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V3043*/ meltfptr[3042]); - MELT_LOCATION ("warmelt-base.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3926:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3031*/ meltfptr[3030]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123299,7 +123328,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3046*/ meltfptr[3045]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123336,7 +123365,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3047*/ meltfptr[3046]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123357,7 +123386,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3049*/ meltfptr[3048]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123476,7 +123505,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3054*/ meltfptr[3053]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123567,7 +123596,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V3058*/ meltfptr[3057]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123585,7 +123614,7 @@ meltmod__warmelt_base__initialmeltchunk_42 (struct frame_start_module_melt_st obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V3058*/ meltfptr[3057]); - MELT_LOCATION ("warmelt-base.melt:3935:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3934:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V3044*/ meltfptr[3043]); @@ -125330,7 +125359,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3182*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3087:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3086:/ initchunk"); /*^block */ /*anyblock */ { @@ -125355,7 +125384,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3183*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3177:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3176:/ initchunk"); /*^block */ /*anyblock */ { @@ -125380,7 +125409,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3184*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:3218:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3217:/ initchunk"); /*^block */ /*anyblock */ { @@ -125405,7 +125434,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3185*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3273:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3272:/ initchunk"); /*^block */ /*anyblock */ { @@ -125430,7 +125459,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3186*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3306:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3305:/ initchunk"); /*^block */ /*anyblock */ { @@ -125455,7 +125484,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3187*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:3358:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3357:/ initchunk"); /*^block */ /*anyblock */ { @@ -125480,7 +125509,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3188*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3388:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3387:/ initchunk"); /*^block */ /*anyblock */ { @@ -125505,7 +125534,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3189*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3416:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3415:/ initchunk"); /*^block */ /*anyblock */ { @@ -125530,7 +125559,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3190*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:3445:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3444:/ initchunk"); /*^block */ /*anyblock */ { @@ -125555,7 +125584,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3191*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3483:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3482:/ initchunk"); /*^block */ /*anyblock */ { @@ -125580,7 +125609,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3192*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3507:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3506:/ initchunk"); /*^block */ /*anyblock */ { @@ -125605,7 +125634,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3193*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:3541:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3540:/ initchunk"); /*^block */ /*anyblock */ { @@ -125630,7 +125659,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3194*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3573:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3572:/ initchunk"); /*^block */ /*anyblock */ { @@ -125655,7 +125684,7 @@ meltmod__warmelt_base__initialmeltchunk_43 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3195*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3605:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3604:/ initchunk"); /*^block */ /*anyblock */ { @@ -125693,7 +125722,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3636:/ initchunk"); /*^block */ /*anyblock */ { @@ -125718,7 +125747,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3197*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3670:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3669:/ initchunk"); /*^block */ /*anyblock */ { @@ -125743,7 +125772,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3198*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3703:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3702:/ initchunk"); /*^block */ /*anyblock */ { @@ -125768,7 +125797,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3199*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:3736:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3735:/ initchunk"); /*^block */ /*anyblock */ { @@ -125793,7 +125822,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3200*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3769:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3768:/ initchunk"); /*^block */ /*anyblock */ { @@ -125818,7 +125847,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3201*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:3802:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3801:/ initchunk"); /*^block */ /*anyblock */ { @@ -125843,7 +125872,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3202*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:3835:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3834:/ initchunk"); /*^block */ /*anyblock */ { @@ -125868,7 +125897,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3203*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:3952:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3951:/ initchunk"); /*^block */ /*anyblock */ { @@ -131150,7 +131179,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.VALUEXPORTER___V3204*/ meltfptr[3165] = 0; } - MELT_LOCATION ("warmelt-base.melt:4240:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:4239:/ initchunk"); /*^block */ /*anyblock */ { @@ -131188,7 +131217,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.VALUEXPORTER___V3205*/ meltfptr[3166] = 0; } - MELT_LOCATION ("warmelt-base.melt:4242:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:4241:/ initchunk"); /*^block */ /*anyblock */ { @@ -131226,7 +131255,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st /*clear *//*_.VALUEXPORTER___V3206*/ meltfptr[3164] = 0; } - MELT_LOCATION ("warmelt-base.melt:4244:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:4243:/ initchunk"); /*^block */ /*anyblock */ { @@ -131303,7 +131332,8 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct frame_start_module_melt_st meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-debug+01.c b/gcc/melt/generated/warmelt-debug+01.c index 5ca29177beb..d538df7d791 100644 --- a/gcc/melt/generated/warmelt-debug+01.c +++ b/gcc/melt/generated/warmelt-debug+01.c @@ -949,6 +949,13 @@ meltrout_5_warmelt_debug_REGISTER_EDGE_DEBUG_FUN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_5_warmelt_debug_REGISTER_EDGE_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1195,6 +1202,13 @@ meltrout_6_warmelt_debug_REGISTER_BASICBLOCK_DEBUG_FUN (meltclosure_ptr_t (struct frame_meltrout_6_warmelt_debug_REGISTER_BASICBLOCK_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1434,6 +1448,13 @@ meltrout_7_warmelt_debug_REGISTER_LOOP_DEBUG_FUN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_7_warmelt_debug_REGISTER_LOOP_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1690,6 +1711,13 @@ meltrout_8_warmelt_debug_MELT_DEBUG_FUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_debug_MELT_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 69; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5282,6 +5310,13 @@ meltrout_9_warmelt_debug_DBG_OUTOBJECT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_debug_DBG_OUTOBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5674,6 +5709,13 @@ meltrout_10_warmelt_debug_DBG_OUT (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_10_warmelt_debug_DBG_OUT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6148,6 +6190,13 @@ meltrout_11_warmelt_debug_DBGOUT_FIELDS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_debug_DBGOUT_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7057,6 +7106,13 @@ meltrout_12_warmelt_debug_DBGOUTAGAIN_FIELDS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_debug_DBGOUTAGAIN_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7763,6 +7819,13 @@ meltrout_13_warmelt_debug_DBGOUT_NULL_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_debug_DBGOUT_NULL_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7897,6 +7960,13 @@ meltrout_14_warmelt_debug_DBGOUT_STRING_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_14_warmelt_debug_DBGOUT_STRING_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8218,6 +8288,13 @@ meltrout_15_warmelt_debug_DBGOUT_STRBUF_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_15_warmelt_debug_DBGOUT_STRBUF_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8802,6 +8879,13 @@ meltrout_16_warmelt_debug_DBGOUT_INTEGER_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_debug_DBGOUT_INTEGER_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9232,6 +9316,13 @@ meltrout_17_warmelt_debug_DBGOUT_MIXINT_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_debug_DBGOUT_MIXINT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9659,6 +9750,13 @@ meltrout_18_warmelt_debug_DBGOUT_MIXLOC_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_debug_DBGOUT_MIXLOC_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10129,6 +10227,13 @@ meltrout_19_warmelt_debug_DBGOUT_MIXBIGINT_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_19_warmelt_debug_DBGOUT_MIXBIGINT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10553,6 +10658,13 @@ meltrout_20_warmelt_debug_DBGOUT_MULTIPLE_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_20_warmelt_debug_DBGOUT_MULTIPLE_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11089,6 +11201,13 @@ meltrout_21_warmelt_debug_DBGOUT_ROUTINE_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_debug_DBGOUT_ROUTINE_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11508,6 +11627,13 @@ meltrout_22_warmelt_debug_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_22_warmelt_debug_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11676,6 +11802,13 @@ meltrout_23_warmelt_debug_DBGOUT_CLOSURE_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_23_warmelt_debug_DBGOUT_CLOSURE_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12356,6 +12489,13 @@ meltrout_24_warmelt_debug_DBGOUT_LIST_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_debug_DBGOUT_LIST_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12973,6 +13113,13 @@ meltrout_25_warmelt_debug_DBGOUT_PAIR_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_debug_DBGOUT_PAIR_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13393,6 +13540,13 @@ meltrout_26_warmelt_debug_DBGOUT_MAPOBJECT_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_26_warmelt_debug_DBGOUT_MAPOBJECT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14298,6 +14452,13 @@ meltrout_27_warmelt_debug_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_27_warmelt_debug_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14517,6 +14678,13 @@ meltrout_28_warmelt_debug_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_debug_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14716,6 +14884,13 @@ meltrout_29_warmelt_debug_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_debug_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15042,6 +15217,13 @@ meltrout_30_warmelt_debug_DBGOUT_MAPSTRING_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_30_warmelt_debug_DBGOUT_MAPSTRING_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15793,6 +15975,13 @@ meltrout_31_warmelt_debug_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_debug_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16012,6 +16201,13 @@ meltrout_32_warmelt_debug_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_32_warmelt_debug_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16211,6 +16407,13 @@ meltrout_33_warmelt_debug_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_debug_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16515,6 +16718,13 @@ meltrout_34_warmelt_debug_DBGOUT_BUCKETLONG_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_34_warmelt_debug_DBGOUT_BUCKETLONG_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17242,6 +17452,13 @@ meltrout_35_warmelt_debug_DBGOUT_ANYOBJECT_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_35_warmelt_debug_DBGOUT_ANYOBJECT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17624,6 +17841,13 @@ meltrout_36_warmelt_debug_DBGOUT_ANYRECV_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_debug_DBGOUT_ANYRECV_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-debug+02.c b/gcc/melt/generated/warmelt-debug+02.c index e4d1a4019e7..a6b454a1a47 100644 --- a/gcc/melt/generated/warmelt-debug+02.c +++ b/gcc/melt/generated/warmelt-debug+02.c @@ -953,6 +953,13 @@ meltrout_37_warmelt_debug_DBGOUTAGAIN_ANYOBJECT_METHOD (meltclosure_ptr_t (struct frame_meltrout_37_warmelt_debug_DBGOUTAGAIN_ANYOBJECT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1242,6 +1249,13 @@ meltrout_38_warmelt_debug_DBGOUT_NAMEDOBJECT_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_38_warmelt_debug_DBGOUT_NAMEDOBJECT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1780,6 +1794,13 @@ meltrout_39_warmelt_debug_DBGOUTAGAIN_NAMEDOBJECT_METHOD (meltclosure_ptr_t (struct frame_meltrout_39_warmelt_debug_DBGOUTAGAIN_NAMEDOBJECT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2050,6 +2071,13 @@ meltrout_40_warmelt_debug_DBGOUTAGAIN_SYMBOL_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_40_warmelt_debug_DBGOUTAGAIN_SYMBOL_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2387,6 +2415,13 @@ meltrout_41_warmelt_debug_DBGOUT_SYMBOL_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_41_warmelt_debug_DBGOUT_SYMBOL_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2739,6 +2774,13 @@ meltrout_42_warmelt_debug_DBGOUT_CLASS_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_42_warmelt_debug_DBGOUT_CLASS_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3095,6 +3137,13 @@ meltrout_43_warmelt_debug_DBGOUTAGAIN_KEYWORD_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_43_warmelt_debug_DBGOUTAGAIN_KEYWORD_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3396,6 +3445,13 @@ meltrout_44_warmelt_debug_DBGOUT_KEYWORD_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_44_warmelt_debug_DBGOUT_KEYWORD_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3753,6 +3809,13 @@ meltrout_45_warmelt_debug_DBGOUTAGAIN_CLONED_SYMBOL_METHOD (meltclosure_ptr_t (struct frame_meltrout_45_warmelt_debug_DBGOUTAGAIN_CLONED_SYMBOL_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3958,6 +4021,13 @@ meltrout_46_warmelt_debug_DBGOUT_CLONED_SYMBOL_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_46_warmelt_debug_DBGOUT_CLONED_SYMBOL_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4315,6 +4385,13 @@ meltrout_47_warmelt_debug_DBGOUT_ENVIRONMENT_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_47_warmelt_debug_DBGOUT_ENVIRONMENT_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5008,6 +5085,13 @@ meltrout_48_warmelt_debug_DBGOUTAGAIN_CTYPE_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_48_warmelt_debug_DBGOUTAGAIN_CTYPE_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5182,6 +5266,13 @@ meltrout_49_warmelt_debug_DBGOUT_CTYPE_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_debug_DBGOUT_CTYPE_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5535,6 +5626,13 @@ meltrout_50_warmelt_debug_DBGOUT_ANYBINDING_METHOD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_50_warmelt_debug_DBGOUT_ANYBINDING_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6029,6 +6127,13 @@ meltrout_51_warmelt_debug_DISPLAY_DEBUG_MESSAGE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_51_warmelt_debug_DISPLAY_DEBUG_MESSAGE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-debug+meltdesc.c b/gcc/melt/generated/warmelt-debug+meltdesc.c index 7fe09f08e6d..416d0a7f0e5 100644 --- a/gcc/melt/generated/warmelt-debug+meltdesc.c +++ b/gcc/melt/generated/warmelt-debug+meltdesc.c @@ -36,15 +36,15 @@ const char melt_modulename[]="warmelt-debug"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-debug"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="01e07332e3df6c5bafc80e3e822c62bb"; +const char melt_primaryhexmd5[]="39a3f2a09667d1b4b8395a52c9bbce8f"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-debug+01.c #1 */ "dd1829e6e810d8757bba6ce4f86900d5", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-debug+02.c #2 */ "666c5920c6c6e853fb9d927782e982fa", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-debug+01.c #1 */ "78098dd76cce252752012e616bfa3bfe", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-debug+02.c #2 */ "6b16b3daca5ab1ec73acf2792609f0c7", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -52,10 +52,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=2; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="57e0f6991217d3d8494a56b19e4b3637" ; +const char melt_cumulated_hexmd5[]="8537468d26504c3b23a2070acfa29d1d" ; /* include the timestamp file */ -#define meltmod_warmelt_debug_mds__57e0f6991217d3d8494a56b19e4b3637 1 +#define meltmod_warmelt_debug_mds__8537468d26504c3b23a2070acfa29d1d 1 #include "warmelt-debug+melttime.h" diff --git a/gcc/melt/generated/warmelt-debug+melttime.h b/gcc/melt/generated/warmelt-debug+melttime.h index 9dc8f762f22..0a1cd92543b 100644 --- a/gcc/melt/generated/warmelt-debug+melttime.h +++ b/gcc/melt/generated/warmelt-debug+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-debug+melttime.h is included from warmelt-debug+meltdesc.c only. */ -#if meltmod_warmelt_debug_mds__57e0f6991217d3d8494a56b19e4b3637 +#if meltmod_warmelt_debug_mds__8537468d26504c3b23a2070acfa29d1d /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-debug */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:33 2012 MEST"; -const long long melt_gen_timenum=1341248913; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:22 2012 MEST"; +const long long melt_gen_timenum=1341250462; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248913; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_debug_mds__57e0f6991217d3d8494a56b19e4b3637 */ + #else /* ! meltmod_warmelt_debug_mds__8537468d26504c3b23a2070acfa29d1d */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-debug - #endif /* meltmod_warmelt_debug_mds__57e0f6991217d3d8494a56b19e4b3637 */ + #endif /* meltmod_warmelt_debug_mds__8537468d26504c3b23a2070acfa29d1d */ diff --git a/gcc/melt/generated/warmelt-debug.c b/gcc/melt/generated/warmelt-debug.c index 73f9224619b..5d27dc0dd43 100644 --- a/gcc/melt/generated/warmelt-debug.c +++ b/gcc/melt/generated/warmelt-debug.c @@ -947,6 +947,13 @@ meltrout_1_warmelt_debug_DEBUG_MSG_FUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_debug_DEBUG_MSG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1745,6 +1752,13 @@ meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_2_warmelt_debug_REGISTER_TREE_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1987,6 +2001,13 @@ meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_3_warmelt_debug_REGISTER_GIMPLE_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2230,6 +2251,13 @@ meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_4_warmelt_debug_REGISTER_GIMPLESEQ_DEBUG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2507,10 +2535,6 @@ initialize_module_meltdata_warmelt_debug (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_debug iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -1828); struct cdata_st { @@ -2824,6 +2848,10 @@ initialize_module_meltdata_warmelt_debug (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (23) dstr_307__REGISTER_TREE_DE; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_debug iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -1828); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -6928,7 +6956,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -16405,7 +16434,8 @@ meltmod__warmelt_debug__initialmeltchunk_4 (struct frame_start_module_melt_st meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-first+01.c b/gcc/melt/generated/warmelt-first+01.c index 6d7d6a3f6d5..671ce2276e8 100644 --- a/gcc/melt/generated/warmelt-first+01.c +++ b/gcc/melt/generated/warmelt-first+01.c @@ -1262,6 +1262,13 @@ meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1510,6 +1517,13 @@ meltrout_6_warmelt_first_INTERN_SYMBOL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_first_INTERN_SYMBOL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1844,6 +1858,13 @@ meltrout_7_warmelt_first_INTERN_KEYWORD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_7_warmelt_first_INTERN_KEYWORD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2179,6 +2200,13 @@ meltrout_8_warmelt_first_CLONE_SYMBOL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_first_CLONE_SYMBOL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2706,6 +2734,13 @@ meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2986,6 +3021,13 @@ meltrout_10_warmelt_first_INITVALUE_EXPORTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_first_INITVALUE_EXPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 64; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4905,6 +4947,13 @@ meltrout_11_warmelt_first_INITVALUE_IMPORTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_first_INITVALUE_IMPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5584,6 +5633,13 @@ meltrout_12_warmelt_first_INITMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_first_INITMACRO_EXPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6258,6 +6314,13 @@ meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_first_INITPATMACRO_EXPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6978,6 +7041,13 @@ meltrout_14_warmelt_first_INIT_EXITFINALIZER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_14_warmelt_first_INIT_EXITFINALIZER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7386,6 +7456,13 @@ meltrout_15_warmelt_first_AT_EXIT_FIRST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_15_warmelt_first_AT_EXIT_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7524,6 +7601,13 @@ meltrout_16_warmelt_first_AT_EXIT_LAST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_first_AT_EXIT_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7666,6 +7750,13 @@ meltrout_17_warmelt_first_END_MELT_PASS_RUNNER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_first_END_MELT_PASS_RUNNER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8102,6 +8193,13 @@ meltrout_18_warmelt_first_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_first_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8254,6 +8352,13 @@ meltrout_19_warmelt_first_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_19_warmelt_first_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8380,6 +8485,13 @@ meltrout_20_warmelt_first_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_20_warmelt_first_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8536,6 +8648,13 @@ meltrout_21_warmelt_first_AT_END_MELT_PASS_FIRST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_21_warmelt_first_AT_END_MELT_PASS_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8796,6 +8915,13 @@ meltrout_22_warmelt_first_AT_END_MELT_PASS_LAST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_22_warmelt_first_AT_END_MELT_PASS_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9054,6 +9180,13 @@ meltrout_23_warmelt_first_INIT_UNITSTARTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_23_warmelt_first_INIT_UNITSTARTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9361,6 +9494,13 @@ meltrout_24_warmelt_first_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_first_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9511,6 +9651,13 @@ meltrout_25_warmelt_first_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_first_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9637,6 +9784,13 @@ meltrout_26_warmelt_first_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_26_warmelt_first_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9790,6 +9944,13 @@ meltrout_27_warmelt_first_AT_START_UNIT_FIRST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_27_warmelt_first_AT_START_UNIT_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9931,6 +10092,13 @@ meltrout_28_warmelt_first_AT_START_UNIT_LAST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_first_AT_START_UNIT_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10072,6 +10240,13 @@ meltrout_29_warmelt_first_INIT_UNITFINISHER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_first_INIT_UNITFINISHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10379,6 +10554,13 @@ meltrout_30_warmelt_first_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_30_warmelt_first_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10529,6 +10711,13 @@ meltrout_31_warmelt_first_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_first_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10655,6 +10844,13 @@ meltrout_32_warmelt_first_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_32_warmelt_first_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10808,6 +11004,13 @@ meltrout_33_warmelt_first_AT_FINISH_UNIT_FIRST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_first_AT_FINISH_UNIT_FIRST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10949,6 +11152,13 @@ meltrout_34_warmelt_first_AT_FINISH_UNIT_LAST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_34_warmelt_first_AT_FINISH_UNIT_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11091,6 +11301,13 @@ meltrout_35_warmelt_first_INIT_OPTIONSETTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_first_INIT_OPTIONSETTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11549,6 +11766,13 @@ meltrout_36_warmelt_first_REGISTER_OPTION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_first_REGISTER_OPTION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11830,6 +12054,13 @@ meltrout_37_warmelt_first_OPTION_HELPER_FUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_first_OPTION_HELPER_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12228,6 +12459,13 @@ meltrout_38_warmelt_first_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_38_warmelt_first_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12371,6 +12609,13 @@ meltrout_39_warmelt_first_MAPOBJECT_EVERY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_39_warmelt_first_MAPOBJECT_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-first+02.c b/gcc/melt/generated/warmelt-first+02.c index 89969c81d32..fe0551b53ec 100644 --- a/gcc/melt/generated/warmelt-first+02.c +++ b/gcc/melt/generated/warmelt-first+02.c @@ -1263,6 +1263,13 @@ meltrout_40_warmelt_first_MAPOBJECT_ITERATE_TEST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_40_warmelt_first_MAPOBJECT_ITERATE_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1567,6 +1574,13 @@ meltrout_41_warmelt_first_LIST_EVERY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_41_warmelt_first_LIST_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1765,6 +1779,13 @@ meltrout_42_warmelt_first_LIST_ITERATE_TEST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_42_warmelt_first_LIST_ITERATE_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2040,6 +2061,13 @@ meltrout_43_warmelt_first_LIST_APPEND2LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_43_warmelt_first_LIST_APPEND2LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2333,6 +2361,13 @@ meltrout_44_warmelt_first_LIST_MAP (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_44_warmelt_first_LIST_MAP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2659,6 +2694,13 @@ meltrout_45_warmelt_first_LIST_FIND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_45_warmelt_first_LIST_FIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3205,6 +3247,13 @@ meltrout_46_warmelt_first_LIST_TO_MULTIPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_46_warmelt_first_LIST_TO_MULTIPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3521,6 +3570,13 @@ meltrout_47_warmelt_first_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_47_warmelt_first_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3695,6 +3751,13 @@ meltrout_48_warmelt_first_PAIRLIST_TO_MULTIPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_48_warmelt_first_PAIRLIST_TO_MULTIPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4174,6 +4237,13 @@ meltrout_49_warmelt_first_MULTIPLE_ITERATE_TEST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_first_MULTIPLE_ITERATE_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4456,6 +4526,13 @@ meltrout_50_warmelt_first_MULTIPLE_MAP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_50_warmelt_first_MULTIPLE_MAP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4786,6 +4863,13 @@ meltrout_51_warmelt_first_MULTIPLE_TO_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_51_warmelt_first_MULTIPLE_TO_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5122,6 +5206,13 @@ meltrout_52_warmelt_first_CLOSURE_EVERY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_52_warmelt_first_CLOSURE_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5427,6 +5518,13 @@ meltrout_53_warmelt_first_ROUTINE_EVERY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_first_ROUTINE_EVERY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5733,6 +5831,13 @@ meltrout_54_warmelt_first_INSTALL_METHOD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_54_warmelt_first_INSTALL_METHOD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6313,6 +6418,13 @@ meltrout_55_warmelt_first_COMPARE_OBJ_RANKED (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_55_warmelt_first_COMPARE_OBJ_RANKED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 76; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8537,6 +8649,13 @@ meltrout_56_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE (meltclosure_ptr_t (struct frame_meltrout_56_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8868,6 +8987,13 @@ meltrout_57_warmelt_first_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_57_warmelt_first_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9087,6 +9213,13 @@ meltrout_58_warmelt_first_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_58_warmelt_first_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9286,6 +9419,13 @@ meltrout_59_warmelt_first_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_59_warmelt_first_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9405,6 +9545,13 @@ meltrout_60_warmelt_first_FRESH_ENV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_first_FRESH_ENV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9732,6 +9879,13 @@ meltrout_61_warmelt_first_FIND_ENV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_61_warmelt_first_FIND_ENV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10312,6 +10466,13 @@ meltrout_62_warmelt_first_FIND_ENV_DEBUG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_62_warmelt_first_FIND_ENV_DEBUG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10894,6 +11055,13 @@ meltrout_63_warmelt_first_FIND_ENCLOSING_ENV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_63_warmelt_first_FIND_ENCLOSING_ENV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11420,6 +11588,13 @@ meltrout_64_warmelt_first_PUT_ENV (meltclosure_ptr_t meltclosp_, int ix = 0; meltframptr_ = (struct frame_meltrout_64_warmelt_first_PUT_ENV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12028,6 +12203,13 @@ meltrout_65_warmelt_first_OVERWRITE_ENV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_65_warmelt_first_OVERWRITE_ENV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12591,6 +12773,13 @@ meltrout_66_warmelt_first_POST_INITIALIZATION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_66_warmelt_first_POST_INITIALIZATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12971,6 +13160,13 @@ meltrout_67_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE_GTY (meltclosure_ptr_t (struct frame_meltrout_67_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE_GTY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13117,6 +13313,13 @@ meltrout_68_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_68_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-first+03.c b/gcc/melt/generated/warmelt-first+03.c index 0176afea8ea..bd3c954f49e 100644 --- a/gcc/melt/generated/warmelt-first+03.c +++ b/gcc/melt/generated/warmelt-first+03.c @@ -1261,6 +1261,13 @@ meltrout_69_warmelt_first_DEBUG_MSG_FUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_69_warmelt_first_DEBUG_MSG_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-first+meltdesc.c b/gcc/melt/generated/warmelt-first+meltdesc.c index 622a0f3b6a0..62d2bd81eec 100644 --- a/gcc/melt/generated/warmelt-first+meltdesc.c +++ b/gcc/melt/generated/warmelt-first+meltdesc.c @@ -36,26 +36,26 @@ const char melt_modulename[]="warmelt-first"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-first"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="a366b799ce05828ab64bf8fb17623c22"; +const char melt_primaryhexmd5[]="d1cc1b605b927a1ffbf1e25ed8870702"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+01.c #1 */ "2907b640852524a15a1f8d824c465dd2", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+02.c #2 */ "d9da79a4cad1fee55829cef13593385a", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+03.c #3 */ "e826ba895ed50607376fb62be156f6c0", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+01.c #1 */ "4c1f147046217c8cbdf41b4dbdfc1644", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+02.c #2 */ "a5bbbe047611a6ff6983f11f51e637d6", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+03.c #3 */ "034a4a8626acf33699212bb1a32f5733", (const char*)0 }; /* last index of secondary files */ const int melt_lastsecfileindex=3; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="0b21eea6c075ff7b6162ee950ce5cfe3" ; +const char melt_cumulated_hexmd5[]="55153ed6fc168ac2936e9e5ccd95c475" ; /* include the timestamp file */ -#define meltmod_warmelt_first_mds__0b21eea6c075ff7b6162ee950ce5cfe3 1 +#define meltmod_warmelt_first_mds__55153ed6fc168ac2936e9e5ccd95c475 1 #include "warmelt-first+melttime.h" diff --git a/gcc/melt/generated/warmelt-first+melttime.h b/gcc/melt/generated/warmelt-first+melttime.h index a617e9b2cf3..76385a2efe1 100644 --- a/gcc/melt/generated/warmelt-first+melttime.h +++ b/gcc/melt/generated/warmelt-first+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-first+melttime.h is included from warmelt-first+meltdesc.c only. */ -#if meltmod_warmelt_first_mds__0b21eea6c075ff7b6162ee950ce5cfe3 +#if meltmod_warmelt_first_mds__55153ed6fc168ac2936e9e5ccd95c475 /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-first */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:32 2012 MEST"; -const long long melt_gen_timenum=1341248912; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:21 2012 MEST"; +const long long melt_gen_timenum=1341250461; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248912; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_first_mds__0b21eea6c075ff7b6162ee950ce5cfe3 */ + #else /* ! meltmod_warmelt_first_mds__55153ed6fc168ac2936e9e5ccd95c475 */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-first - #endif /* meltmod_warmelt_first_mds__0b21eea6c075ff7b6162ee950ce5cfe3 */ + #endif /* meltmod_warmelt_first_mds__55153ed6fc168ac2936e9e5ccd95c475 */ diff --git a/gcc/melt/generated/warmelt-first.c b/gcc/melt/generated/warmelt-first.c index 5b4afa4455f..62d82da69d5 100644 --- a/gcc/melt/generated/warmelt-first.c +++ b/gcc/melt/generated/warmelt-first.c @@ -1260,6 +1260,13 @@ meltrout_1_warmelt_first_IS_EMPTY_STRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_first_IS_EMPTY_STRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1365,6 +1372,13 @@ meltrout_2_warmelt_first_IS_NON_EMPTY_STRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_2_warmelt_first_IS_NON_EMPTY_STRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1471,6 +1485,13 @@ meltrout_3_warmelt_first_INSTALL_CTYPE_DESCR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_3_warmelt_first_INSTALL_CTYPE_DESCR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2072,6 +2093,13 @@ meltrout_4_warmelt_first_ADD_NEW_SYMBOL_TOKEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_4_warmelt_first_ADD_NEW_SYMBOL_TOKEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4148,10 +4176,6 @@ initialize_module_meltdata_warmelt_first (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_first iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -803); struct cdata_st { @@ -7803,6 +7827,10 @@ initialize_module_meltdata_warmelt_first (initial_frame_st * iniframp__, struct MELT_CLOSURE_STRUCT (0) dclo_3635__DEBUG_MSG_FUN; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_first iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -803); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -57288,7 +57316,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -155644,7 +155673,8 @@ meltmod__warmelt_first__initialmeltchunk_45 (struct frame_start_module_melt_st meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-genobj+01.c b/gcc/melt/generated/warmelt-genobj+01.c index e61a9f35a4a..136d38e21d8 100644 --- a/gcc/melt/generated/warmelt-genobj+01.c +++ b/gcc/melt/generated/warmelt-genobj+01.c @@ -3071,6 +3071,13 @@ meltrout_5_warmelt_genobj_PUTOBJDEST_CATCHALL_ANYDISCR (meltclosure_ptr_t (struct frame_meltrout_5_warmelt_genobj_PUTOBJDEST_CATCHALL_ANYDISCR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3415,6 +3422,13 @@ meltrout_6_warmelt_genobj_GETCTYPE_OBJVALUE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_genobj_GETCTYPE_OBJVALUE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3616,6 +3630,13 @@ meltrout_7_warmelt_genobj_GECTYP_OBJNIL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_7_warmelt_genobj_GECTYP_OBJNIL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3739,6 +3760,13 @@ meltrout_8_warmelt_genobj_GECTYP_OBJINITSTRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_genobj_GECTYP_OBJINITSTRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3891,6 +3919,13 @@ meltrout_9_warmelt_genobj_DBGOUT_ROUTINEOBJ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_genobj_DBGOUT_ROUTINEOBJ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4113,6 +4148,13 @@ meltrout_10_warmelt_genobj_PUTOBJDEST_OBJDESTINSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_10_warmelt_genobj_PUTOBJDEST_OBJDESTINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4626,6 +4668,13 @@ meltrout_11_warmelt_genobj_PUTOBJDEST_OBJFINALRETURN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_11_warmelt_genobj_PUTOBJDEST_OBJFINALRETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4820,6 +4869,13 @@ meltrout_12_warmelt_genobj_VARIADIC_IDSTR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_genobj_VARIADIC_IDSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5652,6 +5708,13 @@ meltrout_13_warmelt_genobj_VARIADIC_INDEX_IDSTR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_genobj_VARIADIC_INDEX_IDSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5791,6 +5854,13 @@ meltrout_14_warmelt_genobj_VARIADIC_LENGTH_IDSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_14_warmelt_genobj_VARIADIC_LENGTH_IDSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5930,6 +6000,13 @@ meltrout_15_warmelt_genobj_COMPILE2OBJ_PROCEDURE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_15_warmelt_genobj_COMPILE2OBJ_PROCEDURE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 86; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8211,6 +8288,13 @@ meltrout_16_warmelt_genobj_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_genobj_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8919,6 +9003,13 @@ meltrout_17_warmelt_genobj_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_genobj_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9227,6 +9318,13 @@ meltrout_18_warmelt_genobj_APPEND_COMMENT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_genobj_APPEND_COMMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9393,6 +9491,13 @@ meltrout_19_warmelt_genobj_APPEND_COMMENTCONST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_19_warmelt_genobj_APPEND_COMMENTCONST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9561,6 +9666,13 @@ meltrout_20_warmelt_genobj_COMPILE2OBJ_INITPROC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_20_warmelt_genobj_COMPILE2OBJ_INITPROC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 171; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11474,7 +11586,7 @@ lab_endgetargs:; (melt_ptr_t *) & /*_.OFRESHENV__V51*/ meltfptr[50]; /*^apply.arg */ argtab[5].meltbp_cstring = - ")) != MELTOBMAG_CLOSURE)\n \t warning(0, \"bad MELT FRESH_ENV @%p in system data <%s:%d>\",\n\t\t\t ("; + ")) != MELTOBMAG_CLOSURE)\n \t warning(0, \"bad MELT FRESH_ENV @%p in system data <%s:%d>\",\n\t\t\t (void*) ("; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.OFRESHENV__V51*/ meltfptr[50]; @@ -13602,6 +13714,13 @@ meltrout_21_warmelt_genobj_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_genobj_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14027,6 +14146,13 @@ meltrout_22_warmelt_genobj_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_22_warmelt_genobj_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14483,6 +14609,13 @@ meltrout_23_warmelt_genobj_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_23_warmelt_genobj_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14692,6 +14825,13 @@ meltrout_24_warmelt_genobj_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_genobj_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14948,6 +15088,13 @@ meltrout_25_warmelt_genobj_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_genobj_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15654,6 +15801,13 @@ meltrout_26_warmelt_genobj_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_26_warmelt_genobj_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16254,6 +16408,13 @@ meltrout_27_warmelt_genobj_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_27_warmelt_genobj_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16358,6 +16519,13 @@ meltrout_28_warmelt_genobj_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_genobj_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17067,6 +17235,13 @@ meltrout_29_warmelt_genobj_GET_FREE_OBJLOCPTR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_genobj_GET_FREE_OBJLOCPTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18428,6 +18603,13 @@ meltrout_30_warmelt_genobj_GET_FREE_OBJLOCLONG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_30_warmelt_genobj_GET_FREE_OBJLOCLONG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19692,6 +19874,13 @@ meltrout_31_warmelt_genobj_GET_FREE_OBJLOCTYPED (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_genobj_GET_FREE_OBJLOCTYPED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21465,6 +21654,13 @@ meltrout_32_warmelt_genobj_DISPOSE_OBJLOC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_32_warmelt_genobj_DISPOSE_OBJLOC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22543,6 +22739,13 @@ meltrout_33_warmelt_genobj_DISPOSE_BND_OBJ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_genobj_DISPOSE_BND_OBJ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23396,6 +23599,13 @@ meltrout_34_warmelt_genobj_COMPILOBJ_NREP_CHUNK (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_34_warmelt_genobj_COMPILOBJ_NREP_CHUNK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24362,6 +24572,13 @@ meltrout_35_warmelt_genobj_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_genobj_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24659,6 +24876,13 @@ meltrout_36_warmelt_genobj_GETCTYPE_TYPEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_genobj_GETCTYPE_TYPEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24863,6 +25087,13 @@ meltrout_37_warmelt_genobj_COMPILOBJ_NREP_NIL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_genobj_COMPILOBJ_NREP_NIL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25184,6 +25415,13 @@ meltrout_38_warmelt_genobj_COMPILOBJ_NREP_COMMENT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_38_warmelt_genobj_COMPILOBJ_NREP_COMMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25834,6 +26072,13 @@ meltrout_39_warmelt_genobj_COMPILOBJ_NREP_LOCSYMOCC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_39_warmelt_genobj_COMPILOBJ_NREP_LOCSYMOCC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26936,6 +27181,13 @@ meltrout_40_warmelt_genobj_COMPILOBJ_NREP_CLOSEDOCC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_40_warmelt_genobj_COMPILOBJ_NREP_CLOSEDOCC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-genobj+02.c b/gcc/melt/generated/warmelt-genobj+02.c index ede59d561fd..5a8b5b4d125 100644 --- a/gcc/melt/generated/warmelt-genobj+02.c +++ b/gcc/melt/generated/warmelt-genobj+02.c @@ -3067,6 +3067,13 @@ meltrout_41_warmelt_genobj_COMPILOBJ_NREP_CONSTOCC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_41_warmelt_genobj_COMPILOBJ_NREP_CONSTOCC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4133,6 +4140,13 @@ meltrout_42_warmelt_genobj_COMPILOBJ_NREP_IMPORTEDVAL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_42_warmelt_genobj_COMPILOBJ_NREP_IMPORTEDVAL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4808,6 +4822,13 @@ meltrout_43_warmelt_genobj_COMPILOBJ_NREP_DEFINEDCONSTANT (meltclosure_ptr_t (struct frame_meltrout_43_warmelt_genobj_COMPILOBJ_NREP_DEFINEDCONSTANT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5466,6 +5487,13 @@ meltrout_44_warmelt_genobj_COMPILOBJ_NREP_QUASICONSTANT (meltclosure_ptr_t (struct frame_meltrout_44_warmelt_genobj_COMPILOBJ_NREP_QUASICONSTANT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6634,6 +6662,13 @@ meltrout_45_warmelt_genobj_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_ (struct frame_meltrout_45_warmelt_genobj_COMPILOBJ_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7296,6 +7331,13 @@ meltrout_46_warmelt_genobj_COMPILOBJ_NREP_FOREVER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_46_warmelt_genobj_COMPILOBJ_NREP_FOREVER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8505,6 +8547,13 @@ meltrout_47_warmelt_genobj_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_47_warmelt_genobj_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8637,6 +8686,13 @@ meltrout_48_warmelt_genobj_COMPILOBJ_NREP_EXIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_48_warmelt_genobj_COMPILOBJ_NREP_EXIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9478,6 +9534,13 @@ meltrout_49_warmelt_genobj_COMPILOBJ_NREP_AGAIN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_genobj_COMPILOBJ_NREP_AGAIN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10143,6 +10206,13 @@ meltrout_50_warmelt_genobj_COMPILOBJ_DISCRANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_50_warmelt_genobj_COMPILOBJ_DISCRANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10337,6 +10407,13 @@ meltrout_51_warmelt_genobj_COMPILOBJ_NREP_LET (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_51_warmelt_genobj_COMPILOBJ_NREP_LET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11504,6 +11581,13 @@ meltrout_52_warmelt_genobj_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_52_warmelt_genobj_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12786,6 +12870,13 @@ meltrout_53_warmelt_genobj_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_genobj_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13212,6 +13303,13 @@ meltrout_54_warmelt_genobj_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_54_warmelt_genobj_LAMBDA___15___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13483,6 +13581,13 @@ meltrout_55_warmelt_genobj_FAIL_COMPILETRECFILL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_55_warmelt_genobj_FAIL_COMPILETRECFILL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13868,6 +13973,13 @@ meltrout_56_warmelt_genobj_COMPILETREC_LAMBDA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_56_warmelt_genobj_COMPILETREC_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 61; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15623,6 +15735,13 @@ meltrout_57_warmelt_genobj_COMPILETREC_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_57_warmelt_genobj_COMPILETREC_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17025,6 +17144,13 @@ meltrout_58_warmelt_genobj_COMPILETREC_PAIR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_58_warmelt_genobj_COMPILETREC_PAIR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18393,6 +18519,13 @@ meltrout_59_warmelt_genobj_COMPILETREC_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_59_warmelt_genobj_COMPILETREC_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19658,6 +19791,13 @@ meltrout_60_warmelt_genobj_COMPILETREC_INSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_genobj_COMPILETREC_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 68; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21679,6 +21819,13 @@ meltrout_61_warmelt_genobj_COMPILOBJ_NREP_LETREC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_61_warmelt_genobj_COMPILOBJ_NREP_LETREC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 246; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28296,6 +28443,13 @@ meltrout_62_warmelt_genobj_COMPILOBJ_NREP_CITERATION (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_62_warmelt_genobj_COMPILOBJ_NREP_CITERATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 92; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30567,6 +30721,13 @@ meltrout_63_warmelt_genobj_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_63_warmelt_genobj_LAMBDA___16___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31267,6 +31428,13 @@ meltrout_64_warmelt_genobj_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_64_warmelt_genobj_LAMBDA___17___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31488,6 +31656,13 @@ meltrout_65_warmelt_genobj_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_65_warmelt_genobj_LAMBDA___18___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31709,6 +31884,13 @@ meltrout_66_warmelt_genobj_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_66_warmelt_genobj_LAMBDA___19___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32157,6 +32339,13 @@ meltrout_67_warmelt_genobj_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_67_warmelt_genobj_LAMBDA___20___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32292,6 +32481,13 @@ meltrout_68_warmelt_genobj_COMPILOBJ_NREP_SETQ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_68_warmelt_genobj_COMPILOBJ_NREP_SETQ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33222,6 +33418,13 @@ meltrout_69_warmelt_genobj_COMPILOBJ_NREP_PROGN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_69_warmelt_genobj_COMPILOBJ_NREP_PROGN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33899,6 +34102,13 @@ meltrout_70_warmelt_genobj_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_70_warmelt_genobj_LAMBDA___21___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34035,6 +34245,13 @@ meltrout_71_warmelt_genobj_COMPILOBJ_NREP_MULTACC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_71_warmelt_genobj_COMPILOBJ_NREP_MULTACC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34946,6 +35163,13 @@ meltrout_72_warmelt_genobj_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_72_warmelt_genobj_LAMBDA___22___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35356,6 +35580,13 @@ meltrout_73_warmelt_genobj_COMPILOBJ_NREP_FIELDACC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_73_warmelt_genobj_COMPILOBJ_NREP_FIELDACC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36487,6 +36718,13 @@ meltrout_74_warmelt_genobj_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_74_warmelt_genobj_LAMBDA___23___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36901,6 +37139,13 @@ meltrout_75_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD (meltclosure_ptr_t (struct frame_meltrout_75_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_GET_FIELD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37422,6 +37667,13 @@ meltrout_76_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS (meltclosure_ptr_t (struct frame_meltrout_76_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_PUT_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38071,6 +38323,13 @@ meltrout_77_warmelt_genobj_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_77_warmelt_genobj_LAMBDA___24___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38541,6 +38800,13 @@ meltrout_78_warmelt_genobj_COMPILOBJ_NREP_CHECKSIGNAL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_78_warmelt_genobj_COMPILOBJ_NREP_CHECKSIGNAL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-genobj+03.c b/gcc/melt/generated/warmelt-genobj+03.c index fac41eced92..1dd8340fac9 100644 --- a/gcc/melt/generated/warmelt-genobj+03.c +++ b/gcc/melt/generated/warmelt-genobj+03.c @@ -3063,6 +3063,13 @@ meltrout_79_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_NTH_COMPONENT (struct frame_meltrout_79_warmelt_genobj_COMPILOBJ_NREP_UNSAFE_NTH_COMPONENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3691,6 +3698,13 @@ meltrout_80_warmelt_genobj_COMPILOBJ_NREP_APPLY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_80_warmelt_genobj_COMPILOBJ_NREP_APPLY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4348,6 +4362,13 @@ meltrout_81_warmelt_genobj_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_81_warmelt_genobj_LAMBDA___25___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4572,6 +4593,13 @@ meltrout_82_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_82_warmelt_genobj_COMPILOBJ_NREP_MULTIAPPLY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 50; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5689,6 +5717,13 @@ meltrout_83_warmelt_genobj_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_83_warmelt_genobj_LAMBDA___26___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6018,6 +6053,13 @@ meltrout_84_warmelt_genobj_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_84_warmelt_genobj_LAMBDA___27___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6160,6 +6202,13 @@ meltrout_85_warmelt_genobj_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_85_warmelt_genobj_LAMBDA___28___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6353,6 +6402,13 @@ meltrout_86_warmelt_genobj_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_86_warmelt_genobj_LAMBDA___29___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6542,6 +6598,13 @@ meltrout_87_warmelt_genobj_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_87_warmelt_genobj_LAMBDA___30___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6687,6 +6750,13 @@ meltrout_88_warmelt_genobj_COMPILOBJ_NREP_MSEND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_88_warmelt_genobj_COMPILOBJ_NREP_MSEND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7509,6 +7579,13 @@ meltrout_89_warmelt_genobj_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_89_warmelt_genobj_LAMBDA___31___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7968,6 +8045,13 @@ meltrout_90_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_90_warmelt_genobj_COMPILOBJ_NREP_MULTIMSEND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9237,6 +9321,13 @@ meltrout_91_warmelt_genobj_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_91_warmelt_genobj_LAMBDA___32___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9566,6 +9657,13 @@ meltrout_92_warmelt_genobj_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_92_warmelt_genobj_LAMBDA___33___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9708,6 +9806,13 @@ meltrout_93_warmelt_genobj_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_93_warmelt_genobj_LAMBDA___34___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9897,6 +10002,13 @@ meltrout_94_warmelt_genobj_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_94_warmelt_genobj_LAMBDA___35___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10043,6 +10155,13 @@ meltrout_95_warmelt_genobj_COMPILOBJ_ANY_BINDING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_95_warmelt_genobj_COMPILOBJ_ANY_BINDING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10508,6 +10627,13 @@ meltrout_96_warmelt_genobj_COMPILOBJ_VALUE_BINDING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_96_warmelt_genobj_COMPILOBJ_VALUE_BINDING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11114,6 +11240,13 @@ meltrout_97_warmelt_genobj_COMPILOBJ_FIXED_BINDING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_97_warmelt_genobj_COMPILOBJ_FIXED_BINDING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11669,6 +11802,13 @@ meltrout_98_warmelt_genobj_COMPILOBJ_NORMAL_LET_BINDING (meltclosure_ptr_t (struct frame_meltrout_98_warmelt_genobj_COMPILOBJ_NORMAL_LET_BINDING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12296,6 +12436,13 @@ meltrout_99_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_99_warmelt_genobj_COMPILOBJ_CONSLAMBDABIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13188,6 +13335,13 @@ meltrout_100_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_100_warmelt_genobj_COMPILOBJ_CONSTUPLEBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14045,6 +14199,13 @@ meltrout_101_warmelt_genobj_COMPILOBJ_CONSPAIRBIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_101_warmelt_genobj_COMPILOBJ_CONSPAIRBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14953,6 +15114,13 @@ meltrout_102_warmelt_genobj_COMPILOBJ_CONSLISTBIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_102_warmelt_genobj_COMPILOBJ_CONSLISTBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15732,6 +15900,13 @@ meltrout_103_warmelt_genobj_COMPILOBJ_CONSINSTANCEBIND (meltclosure_ptr_t (struct frame_meltrout_103_warmelt_genobj_COMPILOBJ_CONSINSTANCEBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16864,6 +17039,13 @@ meltrout_104_warmelt_genobj_PUTOBJDEST_OBJVALUE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_104_warmelt_genobj_PUTOBJDEST_OBJVALUE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17948,6 +18130,13 @@ meltrout_105_warmelt_genobj_PUTOBJDEST_INTEGER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_105_warmelt_genobj_PUTOBJDEST_INTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18631,6 +18820,13 @@ meltrout_106_warmelt_genobj_PUTOBJDEST_STRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_106_warmelt_genobj_PUTOBJDEST_STRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19278,6 +19474,13 @@ meltrout_107_warmelt_genobj_PUTOBJDEST_NULL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_107_warmelt_genobj_PUTOBJDEST_NULL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19947,6 +20150,13 @@ meltrout_108_warmelt_genobj_PUTOBJDEST_OBJANYBLOCK (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_108_warmelt_genobj_PUTOBJDEST_OBJANYBLOCK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20429,6 +20639,13 @@ meltrout_109_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_109_warmelt_genobj_PUTOBJDEST_OBJMULTIBLOCK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20990,6 +21207,13 @@ meltrout_110_warmelt_genobj_PUTOBJDEST_OBJLOOP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_110_warmelt_genobj_PUTOBJDEST_OBJLOOP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21582,6 +21806,13 @@ meltrout_111_warmelt_genobj_PUTOBJDEST_OBJEXIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_111_warmelt_genobj_PUTOBJDEST_OBJEXIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21841,6 +22072,13 @@ meltrout_112_warmelt_genobj_COMPILOBJ_NREP_IF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_112_warmelt_genobj_COMPILOBJ_NREP_IF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23025,6 +23263,13 @@ meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFISA (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_113_warmelt_genobj_COMPILOBJ_NREP_IFISA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23869,6 +24114,13 @@ meltrout_114_warmelt_genobj_COMPILOBJ_NREP_IFTUPLESIZED (meltclosure_ptr_t (struct frame_meltrout_114_warmelt_genobj_COMPILOBJ_NREP_IFTUPLESIZED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-genobj+04.c b/gcc/melt/generated/warmelt-genobj+04.c index ffaddb29e6e..32c299d56df 100644 --- a/gcc/melt/generated/warmelt-genobj+04.c +++ b/gcc/melt/generated/warmelt-genobj+04.c @@ -3070,6 +3070,13 @@ meltrout_115_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_115_warmelt_genobj_COMPILOBJ_NREP_IFVARIADIC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 106; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5734,6 +5741,13 @@ meltrout_116_warmelt_genobj_GETCTYPE_IFVARIADIC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_116_warmelt_genobj_GETCTYPE_IFVARIADIC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5925,6 +5939,13 @@ meltrout_117_warmelt_genobj_COMPILOBJ_NREP_VARIADIC_ARGUMENT (struct frame_meltrout_117_warmelt_genobj_COMPILOBJ_NREP_VARIADIC_ARGUMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7163,6 +7184,13 @@ meltrout_118_warmelt_genobj_COMPILOBJ_NREP_CONSUMEVARIADIC (meltclosure_ptr_t (struct frame_meltrout_118_warmelt_genobj_COMPILOBJ_NREP_CONSUMEVARIADIC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8175,6 +8203,13 @@ meltrout_119_warmelt_genobj_PUTOBJDEST_OBJCOND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_119_warmelt_genobj_PUTOBJDEST_OBJCOND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8535,6 +8570,13 @@ meltrout_120_warmelt_genobj_COMPILOBJ_NREP_CPPIF (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_120_warmelt_genobj_COMPILOBJ_NREP_CPPIF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9120,6 +9162,13 @@ meltrout_121_warmelt_genobj_PUTOBJDEST_OBJCPPIF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_121_warmelt_genobj_PUTOBJDEST_OBJCPPIF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9480,6 +9529,13 @@ meltrout_122_warmelt_genobj_COMPILOBJ_NREP_RETURN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_122_warmelt_genobj_COMPILOBJ_NREP_RETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 47; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10743,6 +10799,13 @@ meltrout_123_warmelt_genobj_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_123_warmelt_genobj_LAMBDA___36___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10867,6 +10930,13 @@ meltrout_124_warmelt_genobj_COMPILOBJ_NREP_LAMBDA (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_124_warmelt_genobj_COMPILOBJ_NREP_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11788,6 +11858,13 @@ meltrout_125_warmelt_genobj_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_125_warmelt_genobj_LAMBDA___37___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11990,6 +12067,13 @@ meltrout_126_warmelt_genobj_COMPILOBJ_NREP_MAKEINST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_126_warmelt_genobj_COMPILOBJ_NREP_MAKEINST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12893,6 +12977,13 @@ meltrout_127_warmelt_genobj_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_127_warmelt_genobj_LAMBDA___38___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13366,6 +13457,13 @@ meltrout_128_warmelt_genobj_COMPILOBJ_ROUTPROC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_128_warmelt_genobj_COMPILOBJ_ROUTPROC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13801,6 +13899,13 @@ meltrout_129_warmelt_genobj_COMPILOBJ_PREDEF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_129_warmelt_genobj_COMPILOBJ_PREDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14059,6 +14164,13 @@ meltrout_130_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL (meltclosure_ptr_t (struct frame_meltrout_130_warmelt_genobj_COMPIL_DATA_AND_SLOTS_FILL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 83; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16093,6 +16205,13 @@ meltrout_131_warmelt_genobj_LAMBDA___39__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_131_warmelt_genobj_LAMBDA___39___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16449,6 +16568,13 @@ meltrout_132_warmelt_genobj_LAMBDA___40__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_132_warmelt_genobj_LAMBDA___40___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16739,6 +16865,13 @@ meltrout_133_warmelt_genobj_LAMBDA___41__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_133_warmelt_genobj_LAMBDA___41___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16908,6 +17041,13 @@ meltrout_134_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL (struct frame_meltrout_134_warmelt_genobj_DISPOSE_DLOCBIND_AFTER_DATA_AND_SLOTS_FILL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17262,6 +17402,13 @@ meltrout_135_warmelt_genobj_LAMBDA___42__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_135_warmelt_genobj_LAMBDA___42___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17408,6 +17555,13 @@ meltrout_136_warmelt_genobj_COMPILOBJ_DATASYMBOL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_136_warmelt_genobj_COMPILOBJ_DATASYMBOL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18559,6 +18713,13 @@ meltrout_137_warmelt_genobj_COMPILOBJ_DATAINSTANCE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_137_warmelt_genobj_COMPILOBJ_DATAINSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19896,6 +20057,13 @@ meltrout_138_warmelt_genobj_COMPILOBJ_DATATUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_138_warmelt_genobj_COMPILOBJ_DATATUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 52; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21125,6 +21293,13 @@ meltrout_139_warmelt_genobj_LAMBDA___43__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_139_warmelt_genobj_LAMBDA___43___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21292,6 +21467,13 @@ meltrout_140_warmelt_genobj_LAMBDA___44__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_140_warmelt_genobj_LAMBDA___44___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21489,6 +21671,13 @@ meltrout_141_warmelt_genobj_COMPILOBJ_DATASTRING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_141_warmelt_genobj_COMPILOBJ_DATASTRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22190,6 +22379,13 @@ meltrout_142_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER (meltclosure_ptr_t (struct frame_meltrout_142_warmelt_genobj_COMPILOBJ_DATABOXEDINTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22876,6 +23072,13 @@ meltrout_143_warmelt_genobj_COMPILOBJ_DATACLOSURE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_143_warmelt_genobj_COMPILOBJ_DATACLOSURE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 59; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24274,6 +24477,13 @@ meltrout_144_warmelt_genobj_LAMBDA___45__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_144_warmelt_genobj_LAMBDA___45___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24503,6 +24713,13 @@ meltrout_145_warmelt_genobj_COMPILOBJ_DATAROUTINE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_145_warmelt_genobj_COMPILOBJ_DATAROUTINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25773,6 +25990,13 @@ meltrout_146_warmelt_genobj_LAMBDA___46__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_146_warmelt_genobj_LAMBDA___46___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26530,6 +26754,13 @@ meltrout_147_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTA (struct frame_meltrout_147_warmelt_genobj_COMPILOBJ_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26827,6 +27058,13 @@ meltrout_148_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT (struct frame_meltrout_148_warmelt_genobj_COMPILOBJ_QUASIDATA_PARENT_MODULE_ENVIRONMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27133,6 +27371,13 @@ meltrout_149_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED (meltclosure_ptr_t (struct frame_meltrout_149_warmelt_genobj_COMPILOBJ_NREP_STORE_PREDEFINED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28087,6 +28332,13 @@ meltrout_150_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CON (struct frame_meltrout_150_warmelt_genobj_COMPILOBJ_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-genobj+05.c b/gcc/melt/generated/warmelt-genobj+05.c index 24bc9812e98..02d4e2bb0d4 100644 --- a/gcc/melt/generated/warmelt-genobj+05.c +++ b/gcc/melt/generated/warmelt-genobj+05.c @@ -3064,6 +3064,13 @@ meltrout_151_warmelt_genobj_LAMBDA___47__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_151_warmelt_genobj_LAMBDA___47___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3463,6 +3470,13 @@ meltrout_152_warmelt_genobj_LAMBDA___48__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_152_warmelt_genobj_LAMBDA___48___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3867,6 +3881,13 @@ meltrout_153_warmelt_genobj_COMPILTST_ANYTESTER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_153_warmelt_genobj_COMPILTST_ANYTESTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4408,6 +4429,13 @@ meltrout_154_warmelt_genobj_COMPILOBJ_NREP_MATCH (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_154_warmelt_genobj_COMPILOBJ_NREP_MATCH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 178; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9306,6 +9334,13 @@ meltrout_155_warmelt_genobj_LAMBDA___49__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_155_warmelt_genobj_LAMBDA___49___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9569,6 +9604,13 @@ meltrout_156_warmelt_genobj_COMPILOBJ_NREP_ALTMATCH (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_156_warmelt_genobj_COMPILOBJ_NREP_ALTMATCH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 69; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11441,6 +11483,13 @@ meltrout_157_warmelt_genobj_LAMBDA___50__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_157_warmelt_genobj_LAMBDA___50___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11855,6 +11904,13 @@ meltrout_158_warmelt_genobj_COMPILOBJ_NREP_MATCHLABEL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_158_warmelt_genobj_COMPILOBJ_NREP_MATCHLABEL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12639,6 +12695,13 @@ meltrout_159_warmelt_genobj_COMPILOBJ_NREP_MATCHFLAG (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_159_warmelt_genobj_COMPILOBJ_NREP_MATCHFLAG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13841,6 +13904,13 @@ meltrout_160_warmelt_genobj_COMPILOBJ_NREP_MATCHDATAINIT (meltclosure_ptr_t (struct frame_meltrout_160_warmelt_genobj_COMPILOBJ_NREP_MATCHDATAINIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 43; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15051,6 +15121,13 @@ meltrout_161_warmelt_genobj_COMPILOBJ_NREP_MATCHEDATA (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_161_warmelt_genobj_COMPILOBJ_NREP_MATCHEDATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15824,6 +15901,13 @@ meltrout_162_warmelt_genobj_COMPILOBJ_NREP_MATCHJUMP (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_162_warmelt_genobj_COMPILOBJ_NREP_MATCHJUMP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16548,6 +16632,13 @@ meltrout_163_warmelt_genobj_NORMTESTER_LABELINSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_163_warmelt_genobj_NORMTESTER_LABELINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17496,6 +17587,13 @@ meltrout_164_warmelt_genobj_NORMTESTER_GOTOINSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_164_warmelt_genobj_NORMTESTER_GOTOINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18555,6 +18653,13 @@ meltrout_165_warmelt_genobj_ENDMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_165_warmelt_genobj_ENDMATCH_GOTOINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19198,6 +19303,13 @@ meltrout_166_warmelt_genobj_TESTMATCH_GOTOINSTR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_166_warmelt_genobj_TESTMATCH_GOTOINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19929,6 +20041,13 @@ meltrout_167_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST (meltclosure_ptr_t (struct frame_meltrout_167_warmelt_genobj_NORMTESTER_FREE_OBJLOC_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20775,6 +20894,13 @@ meltrout_168_warmelt_genobj_LAMBDA___51__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_168_warmelt_genobj_LAMBDA___51___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21083,6 +21209,13 @@ meltrout_169_warmelt_genobj_COMPILTST_NORMTESTER_ANY (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_169_warmelt_genobj_COMPILTST_NORMTESTER_ANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21488,6 +21621,13 @@ meltrout_170_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER (meltclosure_ptr_t (struct frame_meltrout_170_warmelt_genobj_COMPILTST_NORMTESTER_MATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 88; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23715,6 +23855,13 @@ meltrout_171_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE (meltclosure_ptr_t (struct frame_meltrout_171_warmelt_genobj_COMPILTST_NORMTESTER_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 93; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26167,6 +26314,13 @@ meltrout_172_warmelt_genobj_COMPILTST_NORMTESTER_TUPLE (meltclosure_ptr_t (struct frame_meltrout_172_warmelt_genobj_COMPILTST_NORMTESTER_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 95; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28753,6 +28907,13 @@ meltrout_173_warmelt_genobj_COMPILTST_NORMTESTER_SAME (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_173_warmelt_genobj_COMPILTST_NORMTESTER_SAME_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 59; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30204,6 +30365,13 @@ meltrout_174_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS (meltclosure_ptr_t (struct frame_meltrout_174_warmelt_genobj_COMPILTST_NORMTESTER_SUCCESS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31177,6 +31345,13 @@ meltrout_175_warmelt_genobj_COMPILTST_NORMTESTER_ORCLEAR (meltclosure_ptr_t (struct frame_meltrout_175_warmelt_genobj_COMPILTST_NORMTESTER_ORCLEAR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32589,6 +32764,13 @@ meltrout_176_warmelt_genobj_COMPILTST_NORMTESTER_ORTRANSMIT (meltclosure_ptr_t (struct frame_meltrout_176_warmelt_genobj_COMPILTST_NORMTESTER_ORTRANSMIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33912,6 +34094,13 @@ meltrout_177_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION (struct frame_meltrout_177_warmelt_genobj_COMPILTST_NORMTESTER_DISJUNCTION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35057,6 +35246,13 @@ meltrout_178_warmelt_genobj_COMPILMATCHER_CMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_178_warmelt_genobj_COMPILMATCHER_CMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 110; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37884,6 +38080,13 @@ meltrout_179_warmelt_genobj_LAMBDA___52__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_179_warmelt_genobj_LAMBDA___52___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38360,6 +38563,13 @@ meltrout_180_warmelt_genobj_LAMBDA___53__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_180_warmelt_genobj_LAMBDA___53___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38841,6 +39051,13 @@ meltrout_181_warmelt_genobj_LAMBDA___54__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_181_warmelt_genobj_LAMBDA___54___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39017,6 +39234,13 @@ meltrout_182_warmelt_genobj_LAMBDA___55__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_182_warmelt_genobj_LAMBDA___55___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39446,6 +39670,13 @@ meltrout_183_warmelt_genobj_COMPILMATCHER_FUNMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_183_warmelt_genobj_COMPILMATCHER_FUNMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 79; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41582,6 +41813,13 @@ meltrout_184_warmelt_genobj_LAMBDA___56__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_184_warmelt_genobj_LAMBDA___56___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41718,6 +41956,13 @@ meltrout_185_warmelt_genobj_LAMBDA___57__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_185_warmelt_genobj_LAMBDA___57___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-genobj+meltdesc.c b/gcc/melt/generated/warmelt-genobj+meltdesc.c index ac750925e58..2f69c4c1812 100644 --- a/gcc/melt/generated/warmelt-genobj+meltdesc.c +++ b/gcc/melt/generated/warmelt-genobj+meltdesc.c @@ -36,18 +36,18 @@ const char melt_modulename[]="warmelt-genobj"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-genobj"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="5d264028d4ee1497f8773f2ef4084cba"; +const char melt_primaryhexmd5[]="24b857578c1b646936c190705740e354"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+01.c #1 */ "08ed28b9325a605cb77a9535162ae0a4", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+02.c #2 */ "341b510c9ea941cce6923fdf0461f125", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+03.c #3 */ "30406d36bd33c6ecdf2b026ffeb414d6", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+04.c #4 */ "457f0db287e98181c3058c97f11c34e4", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+05.c #5 */ "295ad564df1ad9416c1e0ed0c3e892fa", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+01.c #1 */ "e5909ec2ef775d6b0e488b6be0cc7a12", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+02.c #2 */ "ef0b30f0e8fc17c1eb4071b73bd6a6cc", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+03.c #3 */ "375fa2f988f4ee7e0ab60a6dd13019ac", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+04.c #4 */ "bb19bb0e91bd560be20b26a8a6925792", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-genobj+05.c #5 */ "294023ebf3ccac5367af4207087317cd", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -55,10 +55,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="5afb82fbe59708f888ac74a9dd824cef" ; +const char melt_cumulated_hexmd5[]="e423bde6e3cbbbcd72cdbd6d085a9f87" ; /* include the timestamp file */ -#define meltmod_warmelt_genobj_mds__5afb82fbe59708f888ac74a9dd824cef 1 +#define meltmod_warmelt_genobj_mds__e423bde6e3cbbbcd72cdbd6d085a9f87 1 #include "warmelt-genobj+melttime.h" diff --git a/gcc/melt/generated/warmelt-genobj+melttime.h b/gcc/melt/generated/warmelt-genobj+melttime.h index 12310fcf841..74119aa4bc0 100644 --- a/gcc/melt/generated/warmelt-genobj+melttime.h +++ b/gcc/melt/generated/warmelt-genobj+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-genobj+melttime.h is included from warmelt-genobj+meltdesc.c only. */ -#if meltmod_warmelt_genobj_mds__5afb82fbe59708f888ac74a9dd824cef +#if meltmod_warmelt_genobj_mds__e423bde6e3cbbbcd72cdbd6d085a9f87 /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-genobj */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:38 2012 MEST"; -const long long melt_gen_timenum=1341248918; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:24 2012 MEST"; +const long long melt_gen_timenum=1341250464; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248918; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_genobj_mds__5afb82fbe59708f888ac74a9dd824cef */ + #else /* ! meltmod_warmelt_genobj_mds__e423bde6e3cbbbcd72cdbd6d085a9f87 */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-genobj - #endif /* meltmod_warmelt_genobj_mds__5afb82fbe59708f888ac74a9dd824cef */ + #endif /* meltmod_warmelt_genobj_mds__e423bde6e3cbbbcd72cdbd6d085a9f87 */ diff --git a/gcc/melt/generated/warmelt-genobj.c b/gcc/melt/generated/warmelt-genobj.c index 849c91f46cf..a2c274c0ec0 100644 --- a/gcc/melt/generated/warmelt-genobj.c +++ b/gcc/melt/generated/warmelt-genobj.c @@ -3072,6 +3072,13 @@ meltrout_1_warmelt_genobj_MAKE_OBJLOCATEDEXP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_genobj_MAKE_OBJLOCATEDEXP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4436,6 +4443,13 @@ meltrout_2_warmelt_genobj_MAKE_OBJCOMPUTE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_2_warmelt_genobj_MAKE_OBJCOMPUTE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5807,6 +5821,13 @@ meltrout_3_warmelt_genobj_COMPILOBJ_CATCHALL_NREP (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_3_warmelt_genobj_COMPILOBJ_CATCHALL_NREP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6147,6 +6168,13 @@ meltrout_4_warmelt_genobj_PUTOBJDEST_CATCHALL_OBJCODE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_4_warmelt_genobj_PUTOBJDEST_CATCHALL_OBJCODE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6459,10 +6487,6 @@ initialize_module_meltdata_warmelt_genobj (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_genobj iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -1561); struct cdata_st { @@ -8234,6 +8258,10 @@ initialize_module_meltdata_warmelt_genobj (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (13) dstr_1732__FMATCH_MATCHF; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_genobj iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -1561); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -31900,7 +31928,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -99200,7 +99229,8 @@ meltmod__warmelt_genobj__initialmeltchunk_34 (struct meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-macro+01.c b/gcc/melt/generated/warmelt-macro+01.c index 95233c77419..8147a984f78 100644 --- a/gcc/melt/generated/warmelt-macro+01.c +++ b/gcc/melt/generated/warmelt-macro+01.c @@ -2302,6 +2302,13 @@ meltrout_5_warmelt_macro_REGISTER_GENERATOR_DEVICE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_5_warmelt_macro_REGISTER_GENERATOR_DEVICE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3027,6 +3034,13 @@ meltrout_6_warmelt_macro_EXPAND_APPLY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_macro_EXPAND_APPLY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3598,6 +3612,13 @@ meltrout_7_warmelt_macro_EXPAND_MSEND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_7_warmelt_macro_EXPAND_MSEND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4567,6 +4588,13 @@ meltrout_8_warmelt_macro_EXPAND_FIELDEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_macro_EXPAND_FIELDEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5812,6 +5840,13 @@ meltrout_9_warmelt_macro_EXPAND_CITERATION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_macro_EXPAND_CITERATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 71; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7207,6 +7242,13 @@ meltrout_10_warmelt_macro_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_macro_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7345,6 +7387,13 @@ meltrout_11_warmelt_macro_EXPAND_CMATCHEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_macro_EXPAND_CMATCHEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8588,6 +8637,13 @@ meltrout_12_warmelt_macro_EXPAND_FUNMATCHEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_macro_EXPAND_FUNMATCHEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 50; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9820,6 +9876,13 @@ meltrout_13_warmelt_macro_EXPAND_KEYWORDFUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_macro_EXPAND_KEYWORDFUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10512,6 +10575,13 @@ meltrout_14_warmelt_macro_MACROEXPAND_1 (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_14_warmelt_macro_MACROEXPAND_1_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 199; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18083,6 +18153,13 @@ meltrout_15_warmelt_macro_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_15_warmelt_macro_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18222,6 +18299,13 @@ meltrout_16_warmelt_macro_EXPAND_PRIMITIVE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_macro_EXPAND_PRIMITIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18817,6 +18901,13 @@ meltrout_17_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t (struct frame_meltrout_17_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19298,6 +19389,13 @@ meltrout_18_warmelt_macro_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_macro_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19444,6 +19542,13 @@ meltrout_19_warmelt_macro_PATMACEXPAND_FOR_MATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_19_warmelt_macro_PATMACEXPAND_FOR_MATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20339,6 +20444,13 @@ meltrout_20_warmelt_macro_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_20_warmelt_macro_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20718,6 +20830,13 @@ meltrout_21_warmelt_macro_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_macro_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21033,6 +21152,13 @@ meltrout_22_warmelt_macro_PATTERN_WEIGHT_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_22_warmelt_macro_PATTERN_WEIGHT_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21368,6 +21494,13 @@ meltrout_23_warmelt_macro_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_23_warmelt_macro_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21666,6 +21799,13 @@ meltrout_24_warmelt_macro_PATTERNEXPAND_EXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_macro_PATTERNEXPAND_EXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 192; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27188,6 +27328,13 @@ meltrout_25_warmelt_macro_PATTERNEXPAND_1 (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_macro_PATTERNEXPAND_1_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 93; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29580,6 +29727,13 @@ meltrout_26_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_26_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31085,6 +31239,13 @@ meltrout_27_warmelt_macro_LAMBDA_ARG_BINDINGS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_27_warmelt_macro_LAMBDA_ARG_BINDINGS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 81; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32953,6 +33114,13 @@ meltrout_28_warmelt_macro_INSTALL_INITIAL_MACRO (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_macro_INSTALL_INITIAL_MACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33506,6 +33674,13 @@ meltrout_29_warmelt_macro_INSTALL_INITIAL_PATMACRO (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_29_warmelt_macro_INSTALL_INITIAL_PATMACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34255,6 +34430,13 @@ meltrout_30_warmelt_macro_WARN_IF_REDEFINED (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_30_warmelt_macro_WARN_IF_REDEFINED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34587,6 +34769,13 @@ meltrout_31_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION (meltclosure_ptr_t (struct frame_meltrout_31_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35303,6 +35492,13 @@ meltrout_32_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION (meltclosure_ptr_t (struct frame_meltrout_32_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36247,6 +36443,13 @@ meltrout_33_warmelt_macro_CHECK_C_EXPANSION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_macro_CHECK_C_EXPANSION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37198,6 +37401,13 @@ meltrout_34_warmelt_macro_MEXPAND_DEFPRIMITIVE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_34_warmelt_macro_MEXPAND_DEFPRIMITIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 102; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39467,6 +39677,13 @@ meltrout_35_warmelt_macro_MEXPAND_DEFCITERATOR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_macro_MEXPAND_DEFCITERATOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 143; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-macro+02.c b/gcc/melt/generated/warmelt-macro+02.c index 703b52d1510..29e715f98e9 100644 --- a/gcc/melt/generated/warmelt-macro+02.c +++ b/gcc/melt/generated/warmelt-macro+02.c @@ -2301,6 +2301,13 @@ meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 203; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6498,6 +6505,13 @@ meltrout_37_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_macro_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6639,6 +6653,13 @@ meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 140; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9396,6 +9417,13 @@ meltrout_39_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_39_warmelt_macro_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9534,6 +9562,13 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_40_warmelt_macro_MEXPAND_DEFUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 65; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10915,6 +10950,13 @@ meltrout_41_warmelt_macro_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_41_warmelt_macro_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11051,6 +11093,13 @@ meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_42_warmelt_macro_MEXPAND_DEFINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 102; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13073,6 +13122,13 @@ meltrout_43_warmelt_macro_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_43_warmelt_macro_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13208,6 +13264,13 @@ meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_44_warmelt_macro_SCAN_DEFCLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 129; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16357,6 +16420,13 @@ meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_45_warmelt_macro_MEXPAND_DEFCLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 103; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19090,6 +19160,13 @@ meltrout_46_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_46_warmelt_macro_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19289,6 +19366,13 @@ meltrout_47_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_47_warmelt_macro_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20537,6 +20621,13 @@ meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 116; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23455,6 +23546,13 @@ meltrout_49_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_macro_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24005,6 +24103,13 @@ meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 90; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25869,6 +25974,13 @@ meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 130; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28745,6 +28857,13 @@ meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_52_warmelt_macro_MEXPAND_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 66; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30116,6 +30235,13 @@ meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_macro_MEXPAND_LOAD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 50; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31286,6 +31412,13 @@ meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32486,6 +32619,13 @@ meltrout_55_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_55_warmelt_macro_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32771,6 +32911,13 @@ meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_56_warmelt_macro_PATEXPAND_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 73; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34319,6 +34466,13 @@ meltrout_57_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_57_warmelt_macro_LAMBDA___15___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34467,6 +34621,13 @@ meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_58_warmelt_macro_PATEXPAND_OBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 74; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36012,6 +36173,13 @@ meltrout_59_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_59_warmelt_macro_LAMBDA___16___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36160,6 +36328,13 @@ meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_macro_MEXPAND_OBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36598,6 +36773,13 @@ meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 43; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37512,6 +37694,13 @@ meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38356,6 +38545,13 @@ meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39077,6 +39273,13 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39749,6 +39952,13 @@ meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_65_warmelt_macro_MEXPAND_GET_FIELD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -40423,6 +40633,13 @@ meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41142,6 +41359,13 @@ meltrout_67_warmelt_macro_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_67_warmelt_macro_LAMBDA___17___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41284,6 +41508,13 @@ meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_68_warmelt_macro_MEXPAND_SETQ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41903,6 +42134,13 @@ meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_69_warmelt_macro_MEXPAND_IF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 67; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -43457,6 +43695,13 @@ meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_70_warmelt_macro_MEXPAND_WHEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -44309,6 +44554,13 @@ meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_71_warmelt_macro_MEXPAND_UNLESS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-macro+03.c b/gcc/melt/generated/warmelt-macro+03.c index ec524ac3f49..27c04be682e 100644 --- a/gcc/melt/generated/warmelt-macro+03.c +++ b/gcc/melt/generated/warmelt-macro+03.c @@ -2298,6 +2298,13 @@ meltrout_72_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_72_warmelt_macro_MEXPAND_CPPIF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3752,6 +3759,13 @@ meltrout_73_warmelt_macro_FILTERGCCVERSION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_73_warmelt_macro_FILTERGCCVERSION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3986,6 +4000,13 @@ meltrout_74_warmelt_macro_MEXPAND_GCCIF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_74_warmelt_macro_MEXPAND_GCCIF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 72; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5739,6 +5760,13 @@ meltrout_75_warmelt_macro_MEXPAND_COND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_75_warmelt_macro_MEXPAND_COND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 115; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8457,6 +8485,13 @@ meltrout_76_warmelt_macro_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_76_warmelt_macro_LAMBDA___18___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8606,6 +8641,13 @@ meltrout_77_warmelt_macro_MEXPAND_AND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_77_warmelt_macro_MEXPAND_AND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9701,6 +9743,13 @@ meltrout_78_warmelt_macro_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_78_warmelt_macro_LAMBDA___19___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9843,6 +9892,13 @@ meltrout_79_warmelt_macro_PATEXPAND_AS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_79_warmelt_macro_PATEXPAND_AS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10887,6 +10943,13 @@ meltrout_80_warmelt_macro_MEXPAND_AS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_80_warmelt_macro_MEXPAND_AS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11323,6 +11386,13 @@ meltrout_81_warmelt_macro_PATEXPAND_WHEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_81_warmelt_macro_PATEXPAND_WHEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11879,6 +11949,13 @@ meltrout_82_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_82_warmelt_macro_MEXPAND_WHEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12314,6 +12391,13 @@ meltrout_83_warmelt_macro_PATEXPAND_AND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_83_warmelt_macro_PATEXPAND_AND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13072,6 +13156,13 @@ meltrout_84_warmelt_macro_MEXPAND_OR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_84_warmelt_macro_MEXPAND_OR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13937,6 +14028,13 @@ meltrout_85_warmelt_macro_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_85_warmelt_macro_LAMBDA___20___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14079,6 +14177,13 @@ meltrout_86_warmelt_macro_PATEXPAND_OR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_86_warmelt_macro_PATEXPAND_OR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14840,6 +14945,13 @@ meltrout_87_warmelt_macro_MEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_87_warmelt_macro_MEXPAND_REFERENCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15927,6 +16039,13 @@ meltrout_88_warmelt_macro_PATEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_88_warmelt_macro_PATEXPAND_REFERENCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16789,6 +16908,13 @@ meltrout_89_warmelt_macro_MEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_89_warmelt_macro_MEXPANDOBSOLETE_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17181,6 +17307,13 @@ meltrout_90_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_90_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17441,6 +17574,13 @@ meltrout_91_warmelt_macro_MEXPAND_DEREF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_91_warmelt_macro_MEXPAND_DEREF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18467,6 +18607,13 @@ meltrout_92_warmelt_macro_MEXPANDOBSOLETE_CONTENT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_92_warmelt_macro_MEXPANDOBSOLETE_CONTENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18852,6 +18999,13 @@ meltrout_93_warmelt_macro_MEXPAND_SET_REF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_93_warmelt_macro_MEXPAND_SET_REF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 43; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19978,6 +20132,13 @@ meltrout_94_warmelt_macro_MEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_94_warmelt_macro_MEXPAND_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20594,6 +20755,13 @@ meltrout_95_warmelt_macro_PATEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_95_warmelt_macro_PATEXPAND_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21273,6 +21441,13 @@ meltrout_96_warmelt_macro_MEXPAND_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_96_warmelt_macro_MEXPAND_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21889,6 +22064,13 @@ meltrout_97_warmelt_macro_PATEXPAND_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_97_warmelt_macro_PATEXPAND_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22568,6 +22750,13 @@ meltrout_98_warmelt_macro_MEXPAND_MATCH (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_98_warmelt_macro_MEXPAND_MATCH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 89; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24624,6 +24813,13 @@ meltrout_99_warmelt_macro_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_99_warmelt_macro_LAMBDA___21___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24776,6 +24972,13 @@ meltrout_100_warmelt_macro_MEXPAND_LETBINDING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_100_warmelt_macro_MEXPAND_LETBINDING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 71; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-macro+04.c b/gcc/melt/generated/warmelt-macro+04.c index f4a00c5ea26..dbb60f1e11a 100644 --- a/gcc/melt/generated/warmelt-macro+04.c +++ b/gcc/melt/generated/warmelt-macro+04.c @@ -2298,6 +2298,13 @@ meltrout_101_warmelt_macro_MEXPAND_LET (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_101_warmelt_macro_MEXPAND_LET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3269,6 +3276,13 @@ meltrout_102_warmelt_macro_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_102_warmelt_macro_LAMBDA___22___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3447,6 +3461,13 @@ meltrout_103_warmelt_macro_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_103_warmelt_macro_LAMBDA___23___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3805,6 +3826,13 @@ meltrout_104_warmelt_macro_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_104_warmelt_macro_LAMBDA___24___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3955,6 +3983,13 @@ meltrout_105_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE (meltclosure_ptr_t (struct frame_meltrout_105_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4210,6 +4245,13 @@ meltrout_106_warmelt_macro_MEXPAND_LETREC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_106_warmelt_macro_MEXPAND_LETREC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 126; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7265,6 +7307,13 @@ meltrout_107_warmelt_macro_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_107_warmelt_macro_LAMBDA___25___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7416,6 +7465,13 @@ meltrout_108_warmelt_macro_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_108_warmelt_macro_LAMBDA___26___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7559,6 +7615,13 @@ meltrout_109_warmelt_macro_MEXPAND_LAMBDA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_109_warmelt_macro_MEXPAND_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8386,6 +8449,13 @@ meltrout_110_warmelt_macro_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_110_warmelt_macro_LAMBDA___27___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8531,6 +8601,13 @@ meltrout_111_warmelt_macro_MEXPAND_VARIADIC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_111_warmelt_macro_MEXPAND_VARIADIC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 116; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11463,6 +11540,13 @@ meltrout_112_warmelt_macro_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_112_warmelt_macro_LAMBDA___28___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11713,6 +11797,13 @@ meltrout_113_warmelt_macro_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_113_warmelt_macro_LAMBDA___29___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11856,6 +11947,13 @@ meltrout_114_warmelt_macro_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_114_warmelt_macro_LAMBDA___30___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11999,6 +12097,13 @@ meltrout_115_warmelt_macro_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_115_warmelt_macro_LAMBDA___31___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12466,6 +12571,13 @@ meltrout_116_warmelt_macro_MEXPAND_MULTICALL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_116_warmelt_macro_MEXPAND_MULTICALL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 50; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13549,6 +13661,13 @@ meltrout_117_warmelt_macro_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_117_warmelt_macro_LAMBDA___32___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13685,6 +13804,13 @@ meltrout_118_warmelt_macro_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_118_warmelt_macro_LAMBDA___33___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13828,6 +13954,13 @@ meltrout_119_warmelt_macro_MEXPAND_QUOTE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_119_warmelt_macro_MEXPAND_QUOTE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14471,6 +14604,13 @@ meltrout_120_warmelt_macro_MEXPAND_COMMENT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_120_warmelt_macro_MEXPAND_COMMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15024,6 +15164,13 @@ meltrout_121_warmelt_macro_MEXPAND_CHEADER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_121_warmelt_macro_MEXPAND_CHEADER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16137,6 +16284,13 @@ meltrout_122_warmelt_macro_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG (struct frame_meltrout_122_warmelt_macro_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17521,6 +17675,13 @@ meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17993,6 +18154,13 @@ meltrout_124_warmelt_macro_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_124_warmelt_macro_LAMBDA___34___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18136,6 +18304,13 @@ meltrout_125_warmelt_macro_MEXPAND_PROGN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_125_warmelt_macro_MEXPAND_PROGN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18518,6 +18693,13 @@ meltrout_126_warmelt_macro_MEXPAND_RETURN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_126_warmelt_macro_MEXPAND_RETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19059,6 +19241,13 @@ meltrout_127_warmelt_macro_MEXPAND_FOREVER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_127_warmelt_macro_MEXPAND_FOREVER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19895,6 +20084,13 @@ meltrout_128_warmelt_macro_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_128_warmelt_macro_LAMBDA___35___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20037,6 +20233,13 @@ meltrout_129_warmelt_macro_MEXPAND_EXIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_129_warmelt_macro_MEXPAND_EXIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20917,6 +21120,13 @@ meltrout_130_warmelt_macro_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_130_warmelt_macro_LAMBDA___36___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21060,6 +21270,13 @@ meltrout_131_warmelt_macro_MEXPAND_AGAIN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_131_warmelt_macro_MEXPAND_AGAIN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22011,6 +22228,13 @@ meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22853,6 +23077,13 @@ meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 77; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24710,6 +24941,13 @@ meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 64; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26118,6 +26356,13 @@ meltrout_135_warmelt_macro_MEXPAND_DEBUG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_135_warmelt_macro_MEXPAND_DEBUG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 91; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28464,6 +28709,13 @@ meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29282,6 +29534,13 @@ meltrout_137_warmelt_macro_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_137_warmelt_macro_LAMBDA___37___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29586,6 +29845,13 @@ meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 47; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30552,6 +30818,13 @@ meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 54; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31603,6 +31876,13 @@ meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32393,6 +32673,13 @@ meltrout_141_warmelt_macro_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_141_warmelt_macro_LAMBDA___38___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32578,6 +32865,13 @@ meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 62; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-macro+05.c b/gcc/melt/generated/warmelt-macro+05.c index 6cb4b40b3d6..6ff0eb821fd 100644 --- a/gcc/melt/generated/warmelt-macro+05.c +++ b/gcc/melt/generated/warmelt-macro+05.c @@ -2298,6 +2298,13 @@ meltrout_143_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER (struct frame_meltrout_143_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2984,6 +2991,13 @@ meltrout_144_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT (struct frame_meltrout_144_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3702,6 +3716,13 @@ meltrout_145_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER (struct frame_meltrout_145_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4394,6 +4415,13 @@ meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5264,6 +5292,13 @@ meltrout_147_warmelt_macro_MEXPAND_STORE_PREDEFINED (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_147_warmelt_macro_MEXPAND_STORE_PREDEFINED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-macro+meltdesc.c b/gcc/melt/generated/warmelt-macro+meltdesc.c index fb020956bff..80f516d2dad 100644 --- a/gcc/melt/generated/warmelt-macro+meltdesc.c +++ b/gcc/melt/generated/warmelt-macro+meltdesc.c @@ -36,18 +36,18 @@ const char melt_modulename[]="warmelt-macro"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-macro"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="8c48bc0b977a1d0af3a5d5403dada9b7"; +const char melt_primaryhexmd5[]="12503babd9cd6ddf95938e5afd0a1108"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+01.c #1 */ "ee5e93f4b4c2f2aad3bc90fee7c639d2", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+02.c #2 */ "bbc0f194b89b543e11c3f59e177559b1", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+03.c #3 */ "5ebc04a3aa9adaa4351185d170322803", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+04.c #4 */ "588c69467f600d66de6e7fdb8bcb21f7", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+05.c #5 */ "58858cfb7cf27e34b35eab58ef580832", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+01.c #1 */ "22e84c96b4f35077b4d0d02f7ed41389", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+02.c #2 */ "70c879666bafdd847b6b960019b2ec44", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+03.c #3 */ "97891c8d1e14eac383e4b02fe191539e", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+04.c #4 */ "6b8a9aa523f1f5375a13900f2e89750b", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+05.c #5 */ "0cdfbe235edbb13238382893d85e43b2", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -55,10 +55,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="ab546551e76eb205d25159830152f73c" ; +const char melt_cumulated_hexmd5[]="e6f366dd1784ea5fce132445b6b81586" ; /* include the timestamp file */ -#define meltmod_warmelt_macro_mds__ab546551e76eb205d25159830152f73c 1 +#define meltmod_warmelt_macro_mds__e6f366dd1784ea5fce132445b6b81586 1 #include "warmelt-macro+melttime.h" diff --git a/gcc/melt/generated/warmelt-macro+melttime.h b/gcc/melt/generated/warmelt-macro+melttime.h index 7089822fdee..d54548c80b3 100644 --- a/gcc/melt/generated/warmelt-macro+melttime.h +++ b/gcc/melt/generated/warmelt-macro+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-macro+melttime.h is included from warmelt-macro+meltdesc.c only. */ -#if meltmod_warmelt_macro_mds__ab546551e76eb205d25159830152f73c +#if meltmod_warmelt_macro_mds__e6f366dd1784ea5fce132445b6b81586 /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-macro */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:34 2012 MEST"; -const long long melt_gen_timenum=1341248914; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:22 2012 MEST"; +const long long melt_gen_timenum=1341250462; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248914; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_macro_mds__ab546551e76eb205d25159830152f73c */ + #else /* ! meltmod_warmelt_macro_mds__e6f366dd1784ea5fce132445b6b81586 */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-macro - #endif /* meltmod_warmelt_macro_mds__ab546551e76eb205d25159830152f73c */ + #endif /* meltmod_warmelt_macro_mds__e6f366dd1784ea5fce132445b6b81586 */ diff --git a/gcc/melt/generated/warmelt-macro.c b/gcc/melt/generated/warmelt-macro.c index 58a2dcb4901..8da5b7d8570 100644 --- a/gcc/melt/generated/warmelt-macro.c +++ b/gcc/melt/generated/warmelt-macro.c @@ -2302,6 +2302,13 @@ meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3100,6 +3107,13 @@ meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3557,6 +3571,13 @@ meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4295,6 +4316,13 @@ meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4723,10 +4751,6 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_macro iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -3578); struct cdata_st { @@ -6381,6 +6405,10 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (25) dstr_1613__REGISTER_GENERAT; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_macro iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -3578); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -28157,7 +28185,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -91618,7 +91647,8 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct frame_start_module_melt_st meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-modes+01.c b/gcc/melt/generated/warmelt-modes+01.c index d5db3d01d67..7771bc2909f 100644 --- a/gcc/melt/generated/warmelt-modes+01.c +++ b/gcc/melt/generated/warmelt-modes+01.c @@ -1215,6 +1215,13 @@ meltrout_5_warmelt_modes_MAKEDOC_SCANINPUT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_5_warmelt_modes_MAKEDOC_SCANINPUT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1583,6 +1590,13 @@ meltrout_6_warmelt_modes_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_modes_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1927,6 +1941,13 @@ meltrout_7_warmelt_modes_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_7_warmelt_modes_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2214,6 +2235,13 @@ meltrout_8_warmelt_modes_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_modes_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2544,6 +2572,13 @@ meltrout_9_warmelt_modes_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_modes_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 162; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6206,6 +6241,13 @@ meltrout_10_warmelt_modes_MAKEDOC_OUTDEFLOC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_modes_MAKEDOC_OUTDEFLOC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6570,6 +6612,13 @@ meltrout_11_warmelt_modes_MAKEDOC_OUTFORMALS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_modes_MAKEDOC_OUTFORMALS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7189,6 +7238,13 @@ meltrout_12_warmelt_modes_MAKEDOC_OUTDOC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_modes_MAKEDOC_OUTDOC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7716,6 +7772,13 @@ meltrout_13_warmelt_modes_MAKEDOC_OUTCLASSDEF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_modes_MAKEDOC_OUTCLASSDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 54; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9892,6 +9955,13 @@ meltrout_14_warmelt_modes_MAKEDOC_GENMACRO (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_14_warmelt_modes_MAKEDOC_GENMACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10975,6 +11045,13 @@ meltrout_15_warmelt_modes_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_15_warmelt_modes_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11176,6 +11253,13 @@ meltrout_16_warmelt_modes_MAKEDOC_GENPATMACRO (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_modes_MAKEDOC_GENPATMACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12354,6 +12438,13 @@ meltrout_17_warmelt_modes_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_modes_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12554,6 +12645,13 @@ meltrout_18_warmelt_modes_MAKEDOC_GENCLASS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_modes_MAKEDOC_GENCLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13564,6 +13662,13 @@ meltrout_19_warmelt_modes_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_19_warmelt_modes_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13799,6 +13904,13 @@ meltrout_20_warmelt_modes_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_20_warmelt_modes_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14357,6 +14469,13 @@ meltrout_21_warmelt_modes_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_modes_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14804,6 +14923,13 @@ meltrout_22_warmelt_modes_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_22_warmelt_modes_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15138,6 +15264,13 @@ meltrout_23_warmelt_modes_MAKEDOC_OUTPRIMITIVEDEF (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_23_warmelt_modes_MAKEDOC_OUTPRIMITIVEDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15865,6 +15998,13 @@ meltrout_24_warmelt_modes_MAKEDOC_GENPRIMITIVE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_modes_MAKEDOC_GENPRIMITIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16592,6 +16732,13 @@ meltrout_25_warmelt_modes_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_modes_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16795,6 +16942,13 @@ meltrout_26_warmelt_modes_MAKEDOC_OUTFUNCTIONDEF (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_26_warmelt_modes_MAKEDOC_OUTFUNCTIONDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17409,6 +17563,13 @@ meltrout_27_warmelt_modes_MAKEDOC_GENFUNCTION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_27_warmelt_modes_MAKEDOC_GENFUNCTION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18161,6 +18322,13 @@ meltrout_28_warmelt_modes_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_modes_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18362,6 +18530,13 @@ meltrout_29_warmelt_modes_MAKEDOC_GENCITERATOR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_modes_MAKEDOC_GENCITERATOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19584,6 +19759,13 @@ meltrout_30_warmelt_modes_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_30_warmelt_modes_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19785,6 +19967,13 @@ meltrout_31_warmelt_modes_MAKEDOC_GENCMATCHER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_modes_MAKEDOC_GENCMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21050,6 +21239,13 @@ meltrout_32_warmelt_modes_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_32_warmelt_modes_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21251,6 +21447,13 @@ meltrout_33_warmelt_modes_MAKEDOC_GENOUTPUT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_modes_MAKEDOC_GENOUTPUT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22173,6 +22376,13 @@ meltrout_34_warmelt_modes_MAKEDOC_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_34_warmelt_modes_MAKEDOC_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 64; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23780,6 +23990,13 @@ meltrout_35_warmelt_modes_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_modes_LAMBDA___15___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24117,6 +24334,13 @@ meltrout_36_warmelt_modes_SHOWVAR_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_modes_SHOWVAR_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24725,6 +24949,13 @@ meltrout_37_warmelt_modes_HELP_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_modes_HELP_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25378,6 +25609,13 @@ meltrout_38_warmelt_modes_NOP_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_38_warmelt_modes_NOP_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25643,6 +25881,13 @@ meltrout_39_warmelt_modes_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC (struct frame_meltrout_39_warmelt_modes_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27217,6 +27462,13 @@ meltrout_40_warmelt_modes_GENERATE_RUNTYPESUPPORT_GTY (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_40_warmelt_modes_GENERATE_RUNTYPESUPPORT_GTY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 81; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31007,6 +31259,13 @@ meltrout_41_warmelt_modes_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN (struct frame_meltrout_41_warmelt_modes_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 62; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34109,6 +34368,13 @@ meltrout_42_warmelt_modes_GENERATE_RUNTYPESUPPORT_CLONING_FUN (struct frame_meltrout_42_warmelt_modes_GENERATE_RUNTYPESUPPORT_CLONING_FUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 59; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36106,6 +36372,13 @@ meltrout_43_warmelt_modes_GENERATE_RUNTYPESUPPORT_SCANNING (meltclosure_ptr_t (struct frame_meltrout_43_warmelt_modes_GENERATE_RUNTYPESUPPORT_SCANNING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38208,6 +38481,13 @@ meltrout_44_warmelt_modes_GENERATE_RUNTYPESUPPORT_PARAM (meltclosure_ptr_t (struct frame_meltrout_44_warmelt_modes_GENERATE_RUNTYPESUPPORT_PARAM_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-modes+02.c b/gcc/melt/generated/warmelt-modes+02.c index 3554ab738a0..35957f71009 100644 --- a/gcc/melt/generated/warmelt-modes+02.c +++ b/gcc/melt/generated/warmelt-modes+02.c @@ -1224,6 +1224,13 @@ meltrout_45_warmelt_modes_GENERATE_RUNTYPESUPPORT_COD2CTYPE (meltclosure_ptr_t (struct frame_meltrout_45_warmelt_modes_GENERATE_RUNTYPESUPPORT_COD2CTYPE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2150,6 +2157,13 @@ meltrout_46_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAG2STR (meltclosure_ptr_t (struct frame_meltrout_46_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAG2STR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3739,6 +3753,13 @@ meltrout_47_warmelt_modes_GENERATE_RUNTYPESUPPORT_BOXINGFUN (meltclosure_ptr_t (struct frame_meltrout_47_warmelt_modes_GENERATE_RUNTYPESUPPORT_BOXINGFUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 56; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6551,6 +6572,13 @@ meltrout_48_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAPFUN (meltclosure_ptr_t (struct frame_meltrout_48_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAPFUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 81; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10877,6 +10905,13 @@ meltrout_49_warmelt_modes_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS (struct frame_meltrout_49_warmelt_modes_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11994,6 +12029,13 @@ meltrout_50_warmelt_modes_RUNTYPESUPPORT_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_50_warmelt_modes_RUNTYPESUPPORT_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 72; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13780,6 +13822,13 @@ meltrout_51_warmelt_modes_TRANSLATE_TO_FLAVORED_MODULE (meltclosure_ptr_t (struct frame_meltrout_51_warmelt_modes_TRANSLATE_TO_FLAVORED_MODULE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 54; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15356,6 +15405,13 @@ meltrout_52_warmelt_modes_TRANSLATETOMODULE_DOCMD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_52_warmelt_modes_TRANSLATETOMODULE_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15949,6 +16005,13 @@ meltrout_53_warmelt_modes_TRANSLATEDEBUG_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_modes_TRANSLATEDEBUG_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16460,6 +16523,13 @@ meltrout_54_warmelt_modes_TRANSLATEQUICKLY_DOCMD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_54_warmelt_modes_TRANSLATEQUICKLY_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16970,6 +17040,13 @@ meltrout_55_warmelt_modes_TRANSLATEOPTIMIZED_DOCMD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_55_warmelt_modes_TRANSLATEOPTIMIZED_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17479,6 +17556,13 @@ meltrout_56_warmelt_modes_TRANSLATEFILE_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_56_warmelt_modes_TRANSLATEFILE_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18507,6 +18591,13 @@ meltrout_57_warmelt_modes_TRANSLATEINIT_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_57_warmelt_modes_TRANSLATEINIT_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 43; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19659,6 +19750,13 @@ meltrout_58_warmelt_modes_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_58_warmelt_modes_LAMBDA___16___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20066,6 +20164,13 @@ meltrout_59_warmelt_modes_TRANSLATEINIT_FLAVORED (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_59_warmelt_modes_TRANSLATEINIT_FLAVORED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 66; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21952,6 +22057,13 @@ meltrout_60_warmelt_modes_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_modes_LAMBDA___17___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22360,6 +22472,13 @@ meltrout_61_warmelt_modes_TRANSLATEINITMODULE_DOCMD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_61_warmelt_modes_TRANSLATEINITMODULE_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22709,6 +22828,13 @@ meltrout_62_warmelt_modes_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD (struct frame_meltrout_62_warmelt_modes_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22980,6 +23106,13 @@ meltrout_63_warmelt_modes_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD (struct frame_meltrout_63_warmelt_modes_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23251,6 +23384,13 @@ meltrout_64_warmelt_modes_TRANSLATEINITMODULEOPTIMIZED_DOCMD (struct frame_meltrout_64_warmelt_modes_TRANSLATEINITMODULEOPTIMIZED_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23530,6 +23670,13 @@ meltrout_65_warmelt_modes_REGISTER_INPUT_CHANNEL_HANDLER (meltclosure_ptr_t (struct frame_meltrout_65_warmelt_modes_REGISTER_INPUT_CHANNEL_HANDLER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24105,6 +24252,13 @@ meltrout_66_warmelt_modes_HANDLE_ALARM_SIGNAL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_66_warmelt_modes_HANDLE_ALARM_SIGNAL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25451,6 +25605,13 @@ meltrout_67_warmelt_modes_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_67_warmelt_modes_LAMBDA___18___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 1; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25583,6 +25744,13 @@ meltrout_68_warmelt_modes_REGISTER_ALARM_TIMER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_68_warmelt_modes_REGISTER_ALARM_TIMER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26230,6 +26398,13 @@ meltrout_69_warmelt_modes_UNREGISTER_ALARM_TIMER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_69_warmelt_modes_UNREGISTER_ALARM_TIMER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27030,6 +27205,13 @@ meltrout_70_warmelt_modes_CHILD_PROCESS_SIGCHLD_HANDLER (meltclosure_ptr_t (struct frame_meltrout_70_warmelt_modes_CHILD_PROCESS_SIGCHLD_HANDLER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28865,6 +29047,13 @@ meltrout_71_warmelt_modes_REGISTER_CHILD_PROCESS_HANDLER (meltclosure_ptr_t (struct frame_meltrout_71_warmelt_modes_REGISTER_CHILD_PROCESS_HANDLER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29821,6 +30010,13 @@ meltrout_72_warmelt_modes_UNREGISTER_CHILD_PROCESS_HANDLER (meltclosure_ptr_t (struct frame_meltrout_72_warmelt_modes_UNREGISTER_CHILD_PROCESS_HANDLER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-modes+meltdesc.c b/gcc/melt/generated/warmelt-modes+meltdesc.c index 0c891463a7c..c48dc86e8a6 100644 --- a/gcc/melt/generated/warmelt-modes+meltdesc.c +++ b/gcc/melt/generated/warmelt-modes+meltdesc.c @@ -36,15 +36,15 @@ const char melt_modulename[]="warmelt-modes"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-modes"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="71b39d590522bd57c784b25f7bc5ae9f"; +const char melt_primaryhexmd5[]="fd5645a719f09f0d5dc221fef03295c5"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-modes+01.c #1 */ "5c7f3a66656c07bc1d7ab9c2ebc36676", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-modes+02.c #2 */ "1c35ab05395c3e284c92e07ab82cfba0", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-modes+01.c #1 */ "d26ccd03cb019f171284e3cbdf62609d", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-modes+02.c #2 */ "4904984a7561813dd95ac17a30de8600", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -52,10 +52,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=2; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="80ea3c4f1e588e598ec7a90e8276cc04" ; +const char melt_cumulated_hexmd5[]="3ce496d7bdacb216aaf06b37f867627b" ; /* include the timestamp file */ -#define meltmod_warmelt_modes_mds__80ea3c4f1e588e598ec7a90e8276cc04 1 +#define meltmod_warmelt_modes_mds__3ce496d7bdacb216aaf06b37f867627b 1 #include "warmelt-modes+melttime.h" diff --git a/gcc/melt/generated/warmelt-modes+melttime.h b/gcc/melt/generated/warmelt-modes+melttime.h index 3b6fea7af63..04ccceeebb4 100644 --- a/gcc/melt/generated/warmelt-modes+melttime.h +++ b/gcc/melt/generated/warmelt-modes+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-modes+melttime.h is included from warmelt-modes+meltdesc.c only. */ -#if meltmod_warmelt_modes_mds__80ea3c4f1e588e598ec7a90e8276cc04 +#if meltmod_warmelt_modes_mds__3ce496d7bdacb216aaf06b37f867627b /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-modes */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:39 2012 MEST"; -const long long melt_gen_timenum=1341248919; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:25 2012 MEST"; +const long long melt_gen_timenum=1341250465; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248919; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_modes_mds__80ea3c4f1e588e598ec7a90e8276cc04 */ + #else /* ! meltmod_warmelt_modes_mds__3ce496d7bdacb216aaf06b37f867627b */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-modes - #endif /* meltmod_warmelt_modes_mds__80ea3c4f1e588e598ec7a90e8276cc04 */ + #endif /* meltmod_warmelt_modes_mds__3ce496d7bdacb216aaf06b37f867627b */ diff --git a/gcc/melt/generated/warmelt-modes.c b/gcc/melt/generated/warmelt-modes.c index 6470e38c772..9b7d75cd6ff 100644 --- a/gcc/melt/generated/warmelt-modes.c +++ b/gcc/melt/generated/warmelt-modes.c @@ -1215,6 +1215,13 @@ meltrout_1_warmelt_modes_INSTALL_MELT_MODE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_modes_INSTALL_MELT_MODE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -1592,6 +1599,13 @@ meltrout_2_warmelt_modes_RUNFILE_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_2_warmelt_modes_RUNFILE_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3132,6 +3146,13 @@ meltrout_3_warmelt_modes_RUNDEBUG_DOCMD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_3_warmelt_modes_RUNDEBUG_DOCMD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 57; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4467,6 +4488,13 @@ meltrout_4_warmelt_modes_INCREMENT_MKDOC_COUNTER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_4_warmelt_modes_INCREMENT_MKDOC_COUNTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4720,10 +4748,6 @@ initialize_module_meltdata_warmelt_modes (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_modes iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -2689); struct cdata_st { @@ -5203,6 +5227,10 @@ initialize_module_meltdata_warmelt_modes (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (32) dstr_448__UNREGISTER_CHILD; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_modes iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -2689); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -11297,7 +11325,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -26769,7 +26798,8 @@ meltmod__warmelt_modes__initialmeltchunk_8 (struct frame_start_module_melt_st meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-normal+01.c b/gcc/melt/generated/warmelt-normal+01.c index 5721f7e4f3e..83b07b685d9 100644 --- a/gcc/melt/generated/warmelt-normal+01.c +++ b/gcc/melt/generated/warmelt-normal+01.c @@ -2546,6 +2546,13 @@ meltrout_5_warmelt_normal_NORMEXP_NULL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_5_warmelt_normal_NORMEXP_NULL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2975,6 +2982,13 @@ meltrout_6_warmelt_normal_NORMEXP_SRC_CATCHALL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_normal_NORMEXP_SRC_CATCHALL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3461,6 +3475,13 @@ meltrout_7_warmelt_normal_NORMEXP_LAZYMACROEXP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_7_warmelt_normal_NORMEXP_LAZYMACROEXP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4316,6 +4337,13 @@ meltrout_8_warmelt_normal_GECTYP_ANYRECV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_normal_GECTYP_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4436,6 +4464,13 @@ meltrout_9_warmelt_normal_GECTYP_ROOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_normal_GECTYP_ROOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4557,6 +4592,13 @@ meltrout_10_warmelt_normal_GECTYP_INTEGER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_normal_GECTYP_INTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4797,6 +4839,13 @@ meltrout_11_warmelt_normal_GECTYP_STRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_normal_GECTYP_STRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4918,6 +4967,13 @@ meltrout_12_warmelt_normal_NORMALIZE_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_12_warmelt_normal_NORMALIZE_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5720,6 +5776,13 @@ meltrout_13_warmelt_normal_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_normal_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6343,6 +6406,13 @@ meltrout_14_warmelt_normal_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_14_warmelt_normal_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6581,6 +6651,13 @@ meltrout_15_warmelt_normal_WRAP_NORMAL_LET1 (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_15_warmelt_normal_WRAP_NORMAL_LET1_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7041,6 +7118,13 @@ meltrout_16_warmelt_normal_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_normal_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7392,6 +7476,13 @@ meltrout_17_warmelt_normal_WRAP_NORMAL_LETSEQ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_normal_WRAP_NORMAL_LETSEQ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 53; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8911,6 +9002,13 @@ meltrout_18_warmelt_normal_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_18_warmelt_normal_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9262,6 +9360,13 @@ meltrout_19_warmelt_normal_CHECK_CTYPE_NARGS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_19_warmelt_normal_CHECK_CTYPE_NARGS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9456,6 +9561,13 @@ meltrout_20_warmelt_normal_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_20_warmelt_normal_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9705,6 +9817,13 @@ meltrout_21_warmelt_normal_NORMBIND_FAILANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_normal_NORMBIND_FAILANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10196,6 +10315,13 @@ meltrout_22_warmelt_normal_NORMBIND_ANYBIND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_22_warmelt_normal_NORMBIND_ANYBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 48; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11408,6 +11534,13 @@ meltrout_23_warmelt_normal_NORMBIND_FORMALBIND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_23_warmelt_normal_NORMBIND_FORMALBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11985,6 +12118,13 @@ meltrout_24_warmelt_normal_NORMBIND_LETBIND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_normal_NORMBIND_LETBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12561,6 +12701,13 @@ meltrout_25_warmelt_normal_NORMBIND_FIXBIND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_normal_NORMBIND_FIXBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13572,6 +13719,13 @@ meltrout_26_warmelt_normal_NORMBIND_DEFINEDVALBIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_26_warmelt_normal_NORMBIND_DEFINEDVALBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14567,6 +14721,13 @@ meltrout_27_warmelt_normal_NORMBIND_CONSTRUCTBIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_27_warmelt_normal_NORMBIND_CONSTRUCTBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15742,6 +15903,13 @@ meltrout_28_warmelt_normal_NORMEXP_SYMBOL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_normal_NORMEXP_SYMBOL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 111; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18909,6 +19077,13 @@ meltrout_29_warmelt_normal_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_normal_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19233,6 +19408,13 @@ meltrout_30_warmelt_normal_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_30_warmelt_normal_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19421,6 +19603,13 @@ meltrout_31_warmelt_normal_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_normal_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19745,6 +19934,13 @@ meltrout_32_warmelt_normal_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_32_warmelt_normal_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19934,6 +20130,13 @@ meltrout_33_warmelt_normal_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_normal_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20259,6 +20462,13 @@ meltrout_34_warmelt_normal_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_34_warmelt_normal_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20449,6 +20659,13 @@ meltrout_35_warmelt_normal_GECTYP_SYMOCC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_normal_GECTYP_SYMOCC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20651,6 +20868,13 @@ meltrout_36_warmelt_normal_NORMEXP_CLASS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_normal_NORMEXP_CLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 54; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22115,6 +22339,13 @@ meltrout_37_warmelt_normal_NORMEXP_PRIMITIVE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_normal_NORMEXP_PRIMITIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 68; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23830,6 +24061,13 @@ meltrout_38_warmelt_normal_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_38_warmelt_normal_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24452,6 +24690,13 @@ meltrout_39_warmelt_normal_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_39_warmelt_normal_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24873,6 +25118,13 @@ meltrout_40_warmelt_normal_NORMEXP_CODE_CHUNK (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_40_warmelt_normal_NORMEXP_CODE_CHUNK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26026,6 +26278,13 @@ meltrout_41_warmelt_normal_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_41_warmelt_normal_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26353,6 +26612,13 @@ meltrout_42_warmelt_normal_NORMEXP_CMATCHEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_42_warmelt_normal_NORMEXP_CMATCHEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 67; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27973,6 +28239,13 @@ meltrout_43_warmelt_normal_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_43_warmelt_normal_LAMBDA___15___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28595,6 +28868,13 @@ meltrout_44_warmelt_normal_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_44_warmelt_normal_LAMBDA___16___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29016,6 +29296,13 @@ meltrout_45_warmelt_normal_NORMEXP_FUNMATCHEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_45_warmelt_normal_NORMEXP_FUNMATCHEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 71; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normal+02.c b/gcc/melt/generated/warmelt-normal+02.c index ef2d7c36a25..82de74f1261 100644 --- a/gcc/melt/generated/warmelt-normal+02.c +++ b/gcc/melt/generated/warmelt-normal+02.c @@ -2547,6 +2547,13 @@ meltrout_46_warmelt_normal_NORMEXP_APPLY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_46_warmelt_normal_NORMEXP_APPLY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 83; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4710,6 +4717,13 @@ meltrout_47_warmelt_normal_NORMEXP_MSEND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_47_warmelt_normal_NORMEXP_MSEND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 109; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7622,6 +7636,13 @@ meltrout_48_warmelt_normal_NORMEXP_RETURN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_48_warmelt_normal_NORMEXP_RETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 65; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9268,6 +9289,13 @@ meltrout_49_warmelt_normal_NORMEXP_IF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_normal_NORMEXP_IF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 72; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10949,6 +10977,13 @@ meltrout_50_warmelt_normal_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_50_warmelt_normal_LAMBDA___17___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11085,6 +11120,13 @@ meltrout_51_warmelt_normal_NORMEXP_IFELSE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_51_warmelt_normal_NORMEXP_IFELSE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 104; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13490,6 +13532,13 @@ meltrout_52_warmelt_normal_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_52_warmelt_normal_LAMBDA___18___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13626,6 +13675,13 @@ meltrout_53_warmelt_normal_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_normal_LAMBDA___19___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13762,6 +13818,13 @@ meltrout_54_warmelt_normal_NORMEXP_CPPIF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_54_warmelt_normal_NORMEXP_CPPIF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 73; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15510,6 +15573,13 @@ meltrout_55_warmelt_normal_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_55_warmelt_normal_LAMBDA___20___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15646,6 +15716,13 @@ meltrout_56_warmelt_normal_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_56_warmelt_normal_LAMBDA___21___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15781,6 +15858,13 @@ meltrout_57_warmelt_normal_NORMEXP_OR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_57_warmelt_normal_NORMEXP_OR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16788,6 +16872,13 @@ meltrout_58_warmelt_normal_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_58_warmelt_normal_LAMBDA___22___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18069,6 +18160,13 @@ meltrout_59_warmelt_normal_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_59_warmelt_normal_LAMBDA___23___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18205,6 +18303,13 @@ meltrout_60_warmelt_normal_NORMEXP_PROGN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_normal_NORMEXP_PROGN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 64; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19741,6 +19846,13 @@ meltrout_61_warmelt_normal_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_61_warmelt_normal_LAMBDA___24___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19894,6 +20006,13 @@ meltrout_62_warmelt_normal_NORMEXP_LET (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_62_warmelt_normal_NORMEXP_LET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 61; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21284,6 +21403,13 @@ meltrout_63_warmelt_normal_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_63_warmelt_normal_LAMBDA___25___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22415,6 +22541,13 @@ meltrout_64_warmelt_normal_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_64_warmelt_normal_LAMBDA___26___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22541,6 +22674,13 @@ meltrout_65_warmelt_normal_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_65_warmelt_normal_LAMBDA___27___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22756,6 +22896,13 @@ meltrout_66_warmelt_normal_NORMEXP_UNSAFE_GET_FIELD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_66_warmelt_normal_NORMEXP_UNSAFE_GET_FIELD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23731,6 +23878,13 @@ meltrout_67_warmelt_normal_NORMEXP_GET_FIELD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_67_warmelt_normal_NORMEXP_GET_FIELD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25051,6 +25205,13 @@ meltrout_68_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_68_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 48; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26228,6 +26389,13 @@ meltrout_69_warmelt_normal_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_69_warmelt_normal_LAMBDA___28___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26825,6 +26993,13 @@ meltrout_70_warmelt_normal_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_70_warmelt_normal_LAMBDA___29___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26947,6 +27122,13 @@ meltrout_71_warmelt_normal_NORMEXP_PUT_FIELDS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_71_warmelt_normal_NORMEXP_PUT_FIELDS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 84; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29212,6 +29394,13 @@ meltrout_72_warmelt_normal_NORMEXP_SETQ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_72_warmelt_normal_NORMEXP_SETQ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30568,6 +30757,13 @@ meltrout_73_warmelt_normal_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_73_warmelt_normal_LAMBDA___30___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30724,6 +30920,13 @@ meltrout_74_warmelt_normal_NORMEXP_INSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_74_warmelt_normal_NORMEXP_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32351,6 +32554,13 @@ meltrout_75_warmelt_normal_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_75_warmelt_normal_LAMBDA___31___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 48; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33650,6 +33860,13 @@ meltrout_76_warmelt_normal_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_76_warmelt_normal_LAMBDA___32___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33771,6 +33988,13 @@ meltrout_77_warmelt_normal_NORMEXP_FOREVER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_77_warmelt_normal_NORMEXP_FOREVER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 88; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36001,6 +36225,13 @@ meltrout_78_warmelt_normal_NORMEXP_EXIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_78_warmelt_normal_NORMEXP_EXIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 43; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37028,6 +37259,13 @@ meltrout_79_warmelt_normal_NORMEXP_AGAIN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_79_warmelt_normal_NORMEXP_AGAIN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37952,6 +38190,13 @@ meltrout_80_warmelt_normal_NORMEXP_IFVARIADIC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_80_warmelt_normal_NORMEXP_IFVARIADIC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 146; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41774,6 +42019,13 @@ meltrout_81_warmelt_normal_NORMEXP_COMPILEWARNING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_81_warmelt_normal_NORMEXP_COMPILEWARNING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -42452,6 +42704,13 @@ meltrout_82_warmelt_normal_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_82_warmelt_normal_LAMBDA___33___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -42609,6 +42868,13 @@ meltrout_83_warmelt_normal_REPLACE_LAST_BY_RETURN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_83_warmelt_normal_REPLACE_LAST_BY_RETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 59; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -44179,6 +44445,13 @@ meltrout_84_warmelt_normal_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_84_warmelt_normal_LAMBDA___34___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -44321,6 +44594,13 @@ meltrout_85_warmelt_normal_NORMEXP_DEFUN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_85_warmelt_normal_NORMEXP_DEFUN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 76; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -46382,6 +46662,13 @@ meltrout_86_warmelt_normal_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_86_warmelt_normal_LAMBDA___35___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -46524,6 +46811,13 @@ meltrout_87_warmelt_normal_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_87_warmelt_normal_LAMBDA___36___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -46752,6 +47046,13 @@ meltrout_88_warmelt_normal_NORMALIZE_LAMBDA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_88_warmelt_normal_NORMALIZE_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 62; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -48499,6 +48800,13 @@ meltrout_89_warmelt_normal_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_89_warmelt_normal_LAMBDA___37___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -48725,6 +49033,13 @@ meltrout_90_warmelt_normal_NORMEXP_LAMBDA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_90_warmelt_normal_NORMEXP_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -49727,6 +50042,13 @@ meltrout_91_warmelt_normal_NORMEXP_MULTICALL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_91_warmelt_normal_NORMEXP_MULTICALL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 116; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normal+03.c b/gcc/melt/generated/warmelt-normal+03.c index 20d91d2b2e4..8814e3e7c1e 100644 --- a/gcc/melt/generated/warmelt-normal+03.c +++ b/gcc/melt/generated/warmelt-normal+03.c @@ -2547,6 +2547,13 @@ meltrout_92_warmelt_normal_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_92_warmelt_normal_LAMBDA___38___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2849,6 +2856,13 @@ meltrout_93_warmelt_normal_LAMBDA___39__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_93_warmelt_normal_LAMBDA___39___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2991,6 +3005,13 @@ meltrout_94_warmelt_normal_LAMBDA___40__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_94_warmelt_normal_LAMBDA___40___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3107,6 +3128,13 @@ meltrout_95_warmelt_normal_NORMEXP_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_95_warmelt_normal_NORMEXP_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 67; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5047,6 +5075,13 @@ meltrout_96_warmelt_normal_NORMEXP_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_96_warmelt_normal_NORMEXP_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 115; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8215,6 +8250,13 @@ meltrout_97_warmelt_normal_LAMBDA___41__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_97_warmelt_normal_LAMBDA___41___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8639,6 +8681,13 @@ meltrout_98_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING (struct frame_meltrout_98_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9038,6 +9087,13 @@ meltrout_99_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE (struct frame_meltrout_99_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9466,6 +9522,13 @@ meltrout_100_warmelt_normal_PREPCONS_LAMBDA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_100_warmelt_normal_PREPCONS_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10014,6 +10077,13 @@ meltrout_101_warmelt_normal_NORMLETREC_LAMBDA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_101_warmelt_normal_NORMLETREC_LAMBDA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10986,6 +11056,13 @@ meltrout_102_warmelt_normal_PREPCONS_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_102_warmelt_normal_PREPCONS_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11626,6 +11703,13 @@ meltrout_103_warmelt_normal_NORMLETREC_TUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_103_warmelt_normal_NORMLETREC_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13081,6 +13165,13 @@ meltrout_104_warmelt_normal_PREPCONS_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_104_warmelt_normal_PREPCONS_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14124,6 +14215,13 @@ meltrout_105_warmelt_normal_NRECLIST_FIND_LOCSYM (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_105_warmelt_normal_NRECLIST_FIND_LOCSYM_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14901,6 +14999,13 @@ meltrout_106_warmelt_normal_NORMLETREC_LIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_106_warmelt_normal_NORMLETREC_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 104; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17881,6 +17986,13 @@ meltrout_107_warmelt_normal_PREPCONS_INSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_107_warmelt_normal_PREPCONS_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18663,6 +18775,13 @@ meltrout_108_warmelt_normal_NORMLETREC_INSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_108_warmelt_normal_NORMLETREC_INSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 58; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20147,6 +20266,13 @@ meltrout_109_warmelt_normal_LAMBDA___42__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_109_warmelt_normal_LAMBDA___42___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20694,6 +20820,13 @@ meltrout_110_warmelt_normal_NORMEXP_LETREC (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_110_warmelt_normal_NORMEXP_LETREC_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 196; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26092,6 +26225,13 @@ meltrout_111_warmelt_normal_NORMAL_PREDEF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_111_warmelt_normal_NORMAL_PREDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26676,6 +26816,13 @@ meltrout_112_warmelt_normal_NORMAL_SYMBOL_DATA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_112_warmelt_normal_NORMAL_SYMBOL_DATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27712,6 +27859,13 @@ meltrout_113_warmelt_normal_NORMAL_KEYWORD_DATA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_113_warmelt_normal_NORMAL_KEYWORD_DATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28365,6 +28519,13 @@ meltrout_114_warmelt_normal_CREATE_DATA_SLOTS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_114_warmelt_normal_CREATE_DATA_SLOTS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28805,6 +28966,13 @@ meltrout_115_warmelt_normal_FILL_DATA_SLOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_115_warmelt_normal_FILL_DATA_SLOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29078,6 +29246,13 @@ meltrout_116_warmelt_normal_NORMEXP_QUOTE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_116_warmelt_normal_NORMEXP_QUOTE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 57; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30519,6 +30694,13 @@ meltrout_117_warmelt_normal_NORMEXP_COMMENT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_117_warmelt_normal_NORMEXP_COMMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31423,6 +31605,13 @@ meltrout_118_warmelt_normal_NORMEXP_KEYWORD (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_118_warmelt_normal_NORMEXP_KEYWORD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32509,6 +32698,13 @@ meltrout_119_warmelt_normal_FILL_NORMAL_FORMALBIND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_119_warmelt_normal_FILL_NORMAL_FORMALBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33086,6 +33282,13 @@ meltrout_120_warmelt_normal_FILL_NORMAL_FORMALS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_120_warmelt_normal_FILL_NORMAL_FORMALS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33399,6 +33602,13 @@ meltrout_121_warmelt_normal_FILL_NORMAL_EXPANSION (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_121_warmelt_normal_FILL_NORMAL_EXPANSION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normal+04.c b/gcc/melt/generated/warmelt-normal+04.c index 929a25c84fa..50c0e32c5fe 100644 --- a/gcc/melt/generated/warmelt-normal+04.c +++ b/gcc/melt/generated/warmelt-normal+04.c @@ -2547,6 +2547,13 @@ meltrout_122_warmelt_normal_LAMBDA___43__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_122_warmelt_normal_LAMBDA___43___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2992,6 +2999,13 @@ meltrout_123_warmelt_normal_NORMEXP_DEFPRIMITIVE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_123_warmelt_normal_NORMEXP_DEFPRIMITIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 49; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4189,6 +4203,13 @@ meltrout_124_warmelt_normal_NORMEXP_DEFCITERATOR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_124_warmelt_normal_NORMEXP_DEFCITERATOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 72; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6019,6 +6040,13 @@ meltrout_125_warmelt_normal_NORMEXP_CITERATION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_125_warmelt_normal_NORMEXP_CITERATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 140; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9350,6 +9378,13 @@ meltrout_126_warmelt_normal_LAMBDA___44__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_126_warmelt_normal_LAMBDA___44___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9845,6 +9880,13 @@ meltrout_127_warmelt_normal_LAMBDA___45__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_127_warmelt_normal_LAMBDA___45___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10782,6 +10824,13 @@ meltrout_128_warmelt_normal_LAMBDA___46__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_128_warmelt_normal_LAMBDA___46___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11060,6 +11109,13 @@ meltrout_129_warmelt_normal_LAMBDA___47__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_129_warmelt_normal_LAMBDA___47___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11438,6 +11494,13 @@ meltrout_130_warmelt_normal_LAMBDA___48__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_130_warmelt_normal_LAMBDA___48___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11692,6 +11755,13 @@ meltrout_131_warmelt_normal_LAMBDA___49__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_131_warmelt_normal_LAMBDA___49___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11889,6 +11959,13 @@ meltrout_132_warmelt_normal_LAMBDA___50__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_132_warmelt_normal_LAMBDA___50___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11996,6 +12073,13 @@ meltrout_133_warmelt_normal_NORMEXP_DEFCMATCHER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_133_warmelt_normal_NORMEXP_DEFCMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 98; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14594,6 +14678,13 @@ meltrout_134_warmelt_normal_NORMEXP_DEFUNMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_134_warmelt_normal_NORMEXP_DEFUNMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 108; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17311,6 +17402,13 @@ meltrout_135_warmelt_normal_NORMEXP_DEFCLASS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_135_warmelt_normal_NORMEXP_DEFCLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 100; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19989,6 +20087,13 @@ meltrout_136_warmelt_normal_NORMEXP_DEFINSTANCE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_136_warmelt_normal_NORMEXP_DEFINSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 71; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21796,6 +21901,13 @@ meltrout_137_warmelt_normal_LAMBDA___51__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_137_warmelt_normal_LAMBDA___51___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22678,6 +22790,13 @@ meltrout_138_warmelt_normal_NORMEXP_DEFINE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_138_warmelt_normal_NORMEXP_DEFINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 113; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25643,6 +25762,13 @@ meltrout_139_warmelt_normal_LAMBDA___52__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_139_warmelt_normal_LAMBDA___52___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25781,6 +25907,13 @@ meltrout_140_warmelt_normal_NORMEXP_DEFSELECTOR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_140_warmelt_normal_NORMEXP_DEFSELECTOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 83; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27943,6 +28076,13 @@ meltrout_141_warmelt_normal_LAMBDA___53__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_141_warmelt_normal_LAMBDA___53___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28452,6 +28592,13 @@ meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -29051,6 +29198,13 @@ meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 61; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30575,6 +30729,13 @@ meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 56; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32051,6 +32212,13 @@ meltrout_145_warmelt_normal_NORMEXP_EXPORT_SYNONYM (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_145_warmelt_normal_NORMEXP_EXPORT_SYNONYM_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33227,6 +33395,13 @@ meltrout_146_warmelt_normal_NORMEXP_EXPORT_CLASS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_146_warmelt_normal_NORMEXP_EXPORT_CLASS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34094,6 +34269,13 @@ meltrout_147_warmelt_normal_LAMBDA___54__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_147_warmelt_normal_LAMBDA___54___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35334,6 +35516,13 @@ meltrout_148_warmelt_normal_LAMBDA___55__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_148_warmelt_normal_LAMBDA___55___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36022,6 +36211,13 @@ meltrout_149_warmelt_normal_NORMAL_MACRO_EXPORTER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_149_warmelt_normal_NORMAL_MACRO_EXPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36851,6 +37047,13 @@ meltrout_150_warmelt_normal_NORMAL_PATMACRO_EXPORTER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_150_warmelt_normal_NORMAL_PATMACRO_EXPORTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37678,6 +37881,13 @@ meltrout_151_warmelt_normal_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_151_warmelt_normal_NORMAL_EXPORTED_MACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 60; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39214,6 +39424,13 @@ meltrout_152_warmelt_normal_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_152_warmelt_normal_NORMEXP_EXPORT_MACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -40190,6 +40407,13 @@ meltrout_153_warmelt_normal_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_153_warmelt_normal_NORMAL_EXPORTED_PATMACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 61; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41762,6 +41986,13 @@ meltrout_154_warmelt_normal_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_154_warmelt_normal_NORMEXP_EXPORT_PATMACRO_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 57; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -43153,6 +43384,13 @@ meltrout_155_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER (struct frame_meltrout_155_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -43979,6 +44217,13 @@ meltrout_156_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT (struct frame_meltrout_156_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -44765,6 +45010,13 @@ meltrout_157_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER (struct frame_meltrout_157_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 62; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -46180,6 +46432,13 @@ meltrout_158_warmelt_normal_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_158_warmelt_normal_NORMEXP_FETCH_PREDEFINED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 39; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -47259,6 +47518,13 @@ meltrout_159_warmelt_normal_LAMBDA___56__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_159_warmelt_normal_LAMBDA___56___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -47428,6 +47694,13 @@ meltrout_160_warmelt_normal_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_160_warmelt_normal_NORMEXP_STORE_PREDEFINED_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normal+05.c b/gcc/melt/generated/warmelt-normal+05.c index 94d4672d115..0f27b1e1f80 100644 --- a/gcc/melt/generated/warmelt-normal+05.c +++ b/gcc/melt/generated/warmelt-normal+05.c @@ -2547,6 +2547,13 @@ meltrout_161_warmelt_normal_LAMBDA___57__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_161_warmelt_normal_LAMBDA___57___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2712,6 +2719,13 @@ meltrout_162_warmelt_normal_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_162_warmelt_normal_NORMEXP_CHEADER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3392,6 +3406,13 @@ meltrout_163_warmelt_normal_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG (struct frame_meltrout_163_warmelt_normal_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normal+meltdesc.c b/gcc/melt/generated/warmelt-normal+meltdesc.c index 0c0a0f8a8ba..bc7bf8d41e7 100644 --- a/gcc/melt/generated/warmelt-normal+meltdesc.c +++ b/gcc/melt/generated/warmelt-normal+meltdesc.c @@ -36,18 +36,18 @@ const char melt_modulename[]="warmelt-normal"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-normal"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="f681821ac208cf3d1447a1f7e47fbb2b"; +const char melt_primaryhexmd5[]="8d1d8ccec1894076e25349134c58cb3b"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+01.c #1 */ "e2d84a9ad12bd97cfb67ebaec95aac4a", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+02.c #2 */ "45ff7018e32d11e263e3d0fc6a749880", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+03.c #3 */ "2aa47f92107f5f96ca6b2d3091177c28", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+04.c #4 */ "e59fb2b1eacd00cab499114854f41e97", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+05.c #5 */ "9acfd75f800e0a3119abac82e2b121da", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+01.c #1 */ "cfe2f11995c10391066160df7dee448d", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+02.c #2 */ "1a9d580a8310141fe3390e6fc0c9891e", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+03.c #3 */ "522ae386393c377f4c688f6280de90ab", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+04.c #4 */ "e5b4f79bd697c70a8117633af97c8793", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normal+05.c #5 */ "f1a60b9597c34e0ec7d39e3d025f3337", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -55,10 +55,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="f6828aea4fe799288e20f77b41c683d3" ; +const char melt_cumulated_hexmd5[]="0fdd56723243f7c0a363b341139fbd7f" ; /* include the timestamp file */ -#define meltmod_warmelt_normal_mds__f6828aea4fe799288e20f77b41c683d3 1 +#define meltmod_warmelt_normal_mds__0fdd56723243f7c0a363b341139fbd7f 1 #include "warmelt-normal+melttime.h" diff --git a/gcc/melt/generated/warmelt-normal+melttime.h b/gcc/melt/generated/warmelt-normal+melttime.h index fd039fd1ea2..4c8f4bdf47a 100644 --- a/gcc/melt/generated/warmelt-normal+melttime.h +++ b/gcc/melt/generated/warmelt-normal+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-normal+melttime.h is included from warmelt-normal+meltdesc.c only. */ -#if meltmod_warmelt_normal_mds__f6828aea4fe799288e20f77b41c683d3 +#if meltmod_warmelt_normal_mds__0fdd56723243f7c0a363b341139fbd7f /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-normal */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:35 2012 MEST"; -const long long melt_gen_timenum=1341248915; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:23 2012 MEST"; +const long long melt_gen_timenum=1341250463; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248915; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_normal_mds__f6828aea4fe799288e20f77b41c683d3 */ + #else /* ! meltmod_warmelt_normal_mds__0fdd56723243f7c0a363b341139fbd7f */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-normal - #endif /* meltmod_warmelt_normal_mds__f6828aea4fe799288e20f77b41c683d3 */ + #endif /* meltmod_warmelt_normal_mds__0fdd56723243f7c0a363b341139fbd7f */ diff --git a/gcc/melt/generated/warmelt-normal.c b/gcc/melt/generated/warmelt-normal.c index c6d45e2f6d6..3545d6d194a 100644 --- a/gcc/melt/generated/warmelt-normal.c +++ b/gcc/melt/generated/warmelt-normal.c @@ -2546,6 +2546,13 @@ meltrout_1_warmelt_normal_ADD_NCTX_DATA (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_normal_ADD_NCTX_DATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3162,6 +3169,13 @@ meltrout_2_warmelt_normal_FILL_INITIAL_PREDEFMAP (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_2_warmelt_normal_FILL_INITIAL_PREDEFMAP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4932,6 +4946,13 @@ meltrout_3_warmelt_normal_CREATE_NORMCONTEXT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_3_warmelt_normal_CREATE_NORMCONTEXT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5758,6 +5779,13 @@ meltrout_4_warmelt_normal_NORMEXP_IDENTICAL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_4_warmelt_normal_NORMEXP_IDENTICAL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6159,10 +6187,6 @@ initialize_module_meltdata_warmelt_normal (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_normal iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -4011); struct cdata_st { @@ -8114,6 +8138,10 @@ initialize_module_meltdata_warmelt_normal (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (25) dstr_1883__CLASS_NREP_CHECK; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_normal iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -4011); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -34256,7 +34284,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -108334,7 +108363,8 @@ meltmod__warmelt_normal__initialmeltchunk_38 (struct meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-normatch+01.c b/gcc/melt/generated/warmelt-normatch+01.c index e107b0f9fc8..df8725dee73 100644 --- a/gcc/melt/generated/warmelt-normatch+01.c +++ b/gcc/melt/generated/warmelt-normatch+01.c @@ -2397,6 +2397,13 @@ meltrout_5_warmelt_normatch_SCANPAT_SRCPATCONSTANT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_5_warmelt_normatch_SCANPAT_SRCPATCONSTANT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 65; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3987,6 +3994,13 @@ meltrout_6_warmelt_normatch_SCANPAT_SRCPATCONSTRUCT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_6_warmelt_normatch_SCANPAT_SRCPATCONSTRUCT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4891,6 +4905,13 @@ meltrout_7_warmelt_normatch_SCANPAT_SRCPATOBJECT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_7_warmelt_normatch_SCANPAT_SRCPATOBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 43; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5999,6 +6020,13 @@ meltrout_8_warmelt_normatch_SCANPAT_SRCPATCOMPOSITE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_8_warmelt_normatch_SCANPAT_SRCPATCOMPOSITE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 95; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8323,6 +8351,13 @@ meltrout_9_warmelt_normatch_SCANPAT_SRCPATOR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_normatch_SCANPAT_SRCPATOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 67; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10143,6 +10178,13 @@ meltrout_10_warmelt_normatch_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_normatch_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10528,6 +10570,13 @@ meltrout_11_warmelt_normatch_SCANPAT_SRCPATAND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_11_warmelt_normatch_SCANPAT_SRCPATAND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11182,6 +11231,13 @@ meltrout_12_warmelt_normatch_REGISTER_NEW_NORMTESTER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_12_warmelt_normatch_REGISTER_NEW_NORMTESTER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11998,6 +12054,13 @@ meltrout_13_warmelt_normatch_PUT_TESTER_THEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_13_warmelt_normatch_PUT_TESTER_THEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 45; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -13335,6 +13398,13 @@ meltrout_14_warmelt_normatch_SET_NEW_TESTER_LAST_THEN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_14_warmelt_normatch_SET_NEW_TESTER_LAST_THEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14342,6 +14412,13 @@ meltrout_15_warmelt_normatch_SET_NEW_TESTER_ALL_ELSES (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_15_warmelt_normatch_SET_NEW_TESTER_ALL_ELSES_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 59; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16168,6 +16245,13 @@ meltrout_16_warmelt_normatch_NORMPAT_ANYRECV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_16_warmelt_normatch_NORMPAT_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16654,6 +16738,13 @@ meltrout_17_warmelt_normatch_NORMPAT_ANYPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_17_warmelt_normatch_NORMPAT_ANYPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17330,6 +17421,13 @@ meltrout_18_warmelt_normatch_NORMVARPAT_GENREUSETEST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_18_warmelt_normatch_NORMVARPAT_GENREUSETEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18321,6 +18419,13 @@ meltrout_19_warmelt_normatch_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_19_warmelt_normatch_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18620,6 +18725,13 @@ meltrout_20_warmelt_normatch_NORMPAT_VARIABLEPAT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_20_warmelt_normatch_NORMPAT_VARIABLEPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 126; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22512,6 +22624,13 @@ meltrout_21_warmelt_normatch_NORMPAT_JOKERPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_21_warmelt_normatch_NORMPAT_JOKERPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22908,6 +23027,13 @@ meltrout_22_warmelt_normatch_NORMPAT_INSTANCEPAT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_22_warmelt_normatch_NORMPAT_INSTANCEPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 171; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27420,6 +27546,13 @@ meltrout_23_warmelt_normatch_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_23_warmelt_normatch_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -27715,6 +27848,13 @@ meltrout_24_warmelt_normatch_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_24_warmelt_normatch_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28167,6 +28307,13 @@ meltrout_25_warmelt_normatch_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_25_warmelt_normatch_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28767,6 +28914,13 @@ meltrout_26_warmelt_normatch_NORMPAT_TUPLEPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_26_warmelt_normatch_NORMPAT_TUPLEPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 175; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33333,6 +33487,13 @@ meltrout_27_warmelt_normatch_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_27_warmelt_normatch_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33628,6 +33789,13 @@ meltrout_28_warmelt_normatch_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_normatch_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33951,6 +34119,13 @@ meltrout_29_warmelt_normatch_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_normatch_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34551,6 +34726,13 @@ meltrout_30_warmelt_normatch_NORMPAT_ANDPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_30_warmelt_normatch_NORMPAT_ANDPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35488,6 +35670,13 @@ meltrout_31_warmelt_normatch_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_normatch_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -36356,6 +36545,13 @@ meltrout_32_warmelt_normatch_NORMPAT_ORPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_32_warmelt_normatch_NORMPAT_ORPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 133; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -40102,6 +40298,13 @@ meltrout_33_warmelt_normatch_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_normatch_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -40641,6 +40844,13 @@ meltrout_34_warmelt_normatch_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_34_warmelt_normatch_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41342,6 +41552,13 @@ meltrout_35_warmelt_normatch_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_normatch_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41793,6 +42010,13 @@ meltrout_36_warmelt_normatch_NORMPAT_ANYMATCHPAT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_36_warmelt_normatch_NORMPAT_ANYMATCHPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 202; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -47271,6 +47495,13 @@ meltrout_37_warmelt_normatch_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_normatch_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -47567,6 +47798,13 @@ meltrout_38_warmelt_normatch_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_38_warmelt_normatch_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -47862,6 +48100,13 @@ meltrout_39_warmelt_normatch_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_39_warmelt_normatch_LAMBDA___15___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -48504,6 +48749,13 @@ meltrout_40_warmelt_normatch_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_40_warmelt_normatch_LAMBDA___16___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -48771,6 +49023,13 @@ meltrout_41_warmelt_normatch_NORMPAT_CONSTPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_41_warmelt_normatch_NORMPAT_CONSTPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 68; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -50518,6 +50777,13 @@ meltrout_42_warmelt_normatch_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_42_warmelt_normatch_LAMBDA___17___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -50817,6 +51083,13 @@ meltrout_43_warmelt_normatch_MATCH_GRAPHIC_OPTSET (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_43_warmelt_normatch_MATCH_GRAPHIC_OPTSET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -51248,6 +51521,13 @@ meltrout_44_warmelt_normatch_MG_OUT_NODE_NAME (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_44_warmelt_normatch_MG_OUT_NODE_NAME_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -51606,6 +51886,13 @@ meltrout_45_warmelt_normatch_MGLABEL_ANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_45_warmelt_normatch_MGLABEL_ANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -51964,6 +52251,13 @@ meltrout_46_warmelt_normatch_MGLABEL_ANY_TEST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_46_warmelt_normatch_MGLABEL_ANY_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normatch+02.c b/gcc/melt/generated/warmelt-normatch+02.c index 35f50e461e0..bb6ea2926ab 100644 --- a/gcc/melt/generated/warmelt-normatch+02.c +++ b/gcc/melt/generated/warmelt-normatch+02.c @@ -2397,6 +2397,13 @@ meltrout_47_warmelt_normatch_MGLABEL_INSTANCE_TEST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_47_warmelt_normatch_MGLABEL_INSTANCE_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3649,6 +3656,13 @@ meltrout_48_warmelt_normatch_MGLABEL_SUCCESS_TEST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_48_warmelt_normatch_MGLABEL_SUCCESS_TEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4587,6 +4601,13 @@ meltrout_49_warmelt_normatch_MATCHGRAPHIC_TESTS (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_normatch_MATCHGRAPHIC_TESTS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5541,6 +5562,13 @@ meltrout_50_warmelt_normatch_MG_DRAW_MATCH_GRAPHVIZ_FILE (meltclosure_ptr_t (struct frame_meltrout_50_warmelt_normatch_MG_DRAW_MATCH_GRAPHVIZ_FILE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6331,6 +6359,13 @@ meltrout_51_warmelt_normatch_NORMEXP_MATCH (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_51_warmelt_normatch_NORMEXP_MATCH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 328; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15137,6 +15172,13 @@ meltrout_52_warmelt_normatch_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_52_warmelt_normatch_LAMBDA___18___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15471,6 +15513,13 @@ meltrout_53_warmelt_normatch_NORMBIND_MATCHBIND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_normatch_NORMBIND_MATCHBIND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16364,6 +16413,13 @@ meltrout_54_warmelt_normatch_MAKE_MATCH_FLAG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_54_warmelt_normatch_MAKE_MATCH_FLAG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17243,6 +17299,13 @@ meltrout_55_warmelt_normatch_SCANSUBPAT_ANYRECV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_55_warmelt_normatch_SCANSUBPAT_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17589,6 +17652,13 @@ meltrout_56_warmelt_normatch_SCANSTEPDATA_ANYRECV (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_56_warmelt_normatch_SCANSTEPDATA_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17935,6 +18005,13 @@ meltrout_57_warmelt_normatch_SCANSTEPFLAG_ANYRECV (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_57_warmelt_normatch_SCANSTEPFLAG_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18280,6 +18357,13 @@ meltrout_58_warmelt_normatch_SCANSUBPAT_NOOP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_58_warmelt_normatch_SCANSUBPAT_NOOP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18536,6 +18620,13 @@ meltrout_59_warmelt_normatch_SCANSUBPAT_OR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_59_warmelt_normatch_SCANSUBPAT_OR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18830,6 +18921,13 @@ meltrout_60_warmelt_normatch_SCANSUBPAT_AND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_normatch_SCANSUBPAT_AND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19245,6 +19343,13 @@ meltrout_61_warmelt_normatch_SCANSUBPAT_CONSTRUCT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_61_warmelt_normatch_SCANSUBPAT_CONSTRUCT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19991,6 +20096,13 @@ meltrout_62_warmelt_normatch_SCANSUBPAT_OBJECT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_62_warmelt_normatch_SCANSUBPAT_OBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20329,6 +20441,13 @@ meltrout_63_warmelt_normatch_FILL_MATCHCASE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_63_warmelt_normatch_FILL_MATCHCASE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21262,6 +21381,13 @@ meltrout_64_warmelt_normatch_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_64_warmelt_normatch_LAMBDA___19___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22181,6 +22307,13 @@ meltrout_65_warmelt_normatch_PUTTHEN_MATCHANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_65_warmelt_normatch_PUTTHEN_MATCHANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22535,6 +22668,13 @@ meltrout_66_warmelt_normatch_START_STEP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_66_warmelt_normatch_START_STEP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23314,6 +23454,13 @@ meltrout_67_warmelt_normatch_PUTTHEN_MATCHTHEN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_67_warmelt_normatch_PUTTHEN_MATCHTHEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 56; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24892,6 +25039,13 @@ meltrout_68_warmelt_normatch_PUTTHEN_MATCHGROUP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_68_warmelt_normatch_PUTTHEN_MATCHGROUP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 36; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25946,6 +26100,13 @@ meltrout_69_warmelt_normatch_PUTELSE_MATCHANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_69_warmelt_normatch_PUTELSE_MATCHANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26304,6 +26465,13 @@ meltrout_70_warmelt_normatch_PUTELSE_MATCHSTEPTHEN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_70_warmelt_normatch_PUTELSE_MATCHSTEPTHEN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 64; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28177,6 +28345,13 @@ meltrout_71_warmelt_normatch_PUTELSE_MATCHTEST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_71_warmelt_normatch_PUTELSE_MATCHTEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 89; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30796,6 +30971,13 @@ meltrout_72_warmelt_normatch_PUTELSE_MATCHGROUP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_72_warmelt_normatch_PUTELSE_MATCHGROUP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 68; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -32738,6 +32920,13 @@ meltrout_73_warmelt_normatch_SCANSTEPDATA_TESTINS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_73_warmelt_normatch_SCANSTEPDATA_TESTINS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normatch+03.c b/gcc/melt/generated/warmelt-normatch+03.c index 7f9c04a1c5e..4810be684e6 100644 --- a/gcc/melt/generated/warmelt-normatch+03.c +++ b/gcc/melt/generated/warmelt-normatch+03.c @@ -2400,6 +2400,13 @@ meltrout_74_warmelt_normatch_SCANSTEPDATA_TESTTUPLE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_74_warmelt_normatch_SCANSTEPDATA_TESTTUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2925,6 +2932,13 @@ meltrout_75_warmelt_normatch_SCANSTEPDATA_TESTWITHFLAG (meltclosure_ptr_t (struct frame_meltrout_75_warmelt_normatch_SCANSTEPDATA_TESTWITHFLAG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 8; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3183,6 +3197,13 @@ meltrout_76_warmelt_normatch_SCANSTEPDATA_TESTMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_76_warmelt_normatch_SCANSTEPDATA_TESTMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3459,6 +3480,13 @@ meltrout_77_warmelt_normatch_SCANSTEPFLAG_STEPWITHFLAG (meltclosure_ptr_t (struct frame_meltrout_77_warmelt_normatch_SCANSTEPFLAG_STEPWITHFLAG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3731,6 +3759,13 @@ meltrout_78_warmelt_normatch_SCANSTEPFLAG_STEPFLAGOPER (meltclosure_ptr_t (struct frame_meltrout_78_warmelt_normatch_SCANSTEPFLAG_STEPFLAGOPER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4056,6 +4091,13 @@ meltrout_79_warmelt_normatch_SCANSTEPFLAG_STEPWITHDATA (meltclosure_ptr_t (struct frame_meltrout_79_warmelt_normatch_SCANSTEPFLAG_STEPWITHDATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4377,6 +4419,13 @@ meltrout_80_warmelt_normatch_TRANSLPAT_ANYRECV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_80_warmelt_normatch_TRANSLPAT_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4966,6 +5015,13 @@ meltrout_81_warmelt_normatch_TRANSLPAT_JOKERPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_81_warmelt_normatch_TRANSLPAT_JOKERPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5324,6 +5380,13 @@ meltrout_82_warmelt_normatch_TRANSLPAT_CONSTPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_82_warmelt_normatch_TRANSLPAT_CONSTPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 73; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7221,6 +7284,13 @@ meltrout_83_warmelt_normatch_TRANSLPAT_LISTPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_83_warmelt_normatch_TRANSLPAT_LISTPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7626,6 +7696,13 @@ meltrout_84_warmelt_normatch_TRANSLPAT_TUPLEPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_84_warmelt_normatch_TRANSLPAT_TUPLEPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 165; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11908,6 +11985,13 @@ meltrout_85_warmelt_normatch_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_85_warmelt_normatch_LAMBDA___20___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12232,6 +12316,13 @@ meltrout_86_warmelt_normatch_TRANSLPAT_INSPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_86_warmelt_normatch_TRANSLPAT_INSPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 161; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16259,6 +16350,13 @@ meltrout_87_warmelt_normatch_TRANSLPAT_VARPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_87_warmelt_normatch_TRANSLPAT_VARPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 120; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19483,6 +19581,13 @@ meltrout_88_warmelt_normatch_TRANSLPAT_ANDPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_88_warmelt_normatch_TRANSLPAT_ANDPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 89; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21864,6 +21969,13 @@ meltrout_89_warmelt_normatch_TRANSLPAT_ORPAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_89_warmelt_normatch_TRANSLPAT_ORPAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 135; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25462,6 +25574,13 @@ meltrout_90_warmelt_normatch_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_90_warmelt_normatch_LAMBDA___21___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 27; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26185,6 +26304,13 @@ meltrout_91_warmelt_normatch_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_91_warmelt_normatch_LAMBDA___22___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26317,6 +26443,13 @@ meltrout_92_warmelt_normatch_TRANSLPAT_PATMAT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_92_warmelt_normatch_TRANSLPAT_PATMAT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 256; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33173,6 +33306,13 @@ meltrout_93_warmelt_normatch_MGALTSTEP_ANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_93_warmelt_normatch_MGALTSTEP_ANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -33530,6 +33670,13 @@ meltrout_94_warmelt_normatch_MGALTSTEP_STEPTESTVAR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_94_warmelt_normatch_MGALTSTEP_STEPTESTVAR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34544,6 +34691,13 @@ meltrout_95_warmelt_normatch_MGALTSTEP_STEPTESTINST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_95_warmelt_normatch_MGALTSTEP_STEPTESTINST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 48; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35719,6 +35873,13 @@ meltrout_96_warmelt_normatch_MGALTSTEP_STEPTESTMULT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_96_warmelt_normatch_MGALTSTEP_STEPTESTMULT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -37334,6 +37495,13 @@ meltrout_97_warmelt_normatch_MGALTSTEP_STEPTESTGROUP (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_97_warmelt_normatch_MGALTSTEP_STEPTESTGROUP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38109,6 +38277,13 @@ meltrout_98_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER (meltclosure_ptr_t (struct frame_meltrout_98_warmelt_normatch_MGALTSTEP_STEPTESTMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -39321,6 +39496,13 @@ meltrout_99_warmelt_normatch_MGALTSTEP_STEPSUCCESS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_99_warmelt_normatch_MGALTSTEP_STEPSUCCESS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 44; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -40675,6 +40857,13 @@ meltrout_100_warmelt_normatch_MGALTSTEP_STEPCLEAR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_100_warmelt_normatch_MGALTSTEP_STEPCLEAR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41454,6 +41643,13 @@ meltrout_101_warmelt_normatch_MGALTSTEP_STEPFLAGSET (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_101_warmelt_normatch_MGALTSTEP_STEPFLAGSET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normatch+04.c b/gcc/melt/generated/warmelt-normatch+04.c index 74050318c9a..13f71494597 100644 --- a/gcc/melt/generated/warmelt-normatch+04.c +++ b/gcc/melt/generated/warmelt-normatch+04.c @@ -2400,6 +2400,13 @@ meltrout_102_warmelt_normatch_MGALTSTEP_STEPFLAGOPER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_102_warmelt_normatch_MGALTSTEP_STEPFLAGOPER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 48; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4035,6 +4042,13 @@ meltrout_103_warmelt_normatch_TRANSLATE_MATCHCASE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_103_warmelt_normatch_TRANSLATE_MATCHCASE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 157; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8136,6 +8150,13 @@ meltrout_104_warmelt_normatch_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_104_warmelt_normatch_LAMBDA___23___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8341,6 +8362,13 @@ meltrout_105_warmelt_normatch_ALTMATCH_NORMALIZE_FLAG (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_105_warmelt_normatch_ALTMATCH_NORMALIZE_FLAG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8908,6 +8936,13 @@ meltrout_106_warmelt_normatch_MATCH_DATA_UPDATE_DATA_STEPS_INDEX (struct frame_meltrout_106_warmelt_normatch_MATCH_DATA_UPDATE_DATA_STEPS_INDEX_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10168,6 +10203,13 @@ meltrout_107_warmelt_normatch_MATCH_STEP_INDEX (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_107_warmelt_normatch_MATCH_STEP_INDEX_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 42; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11296,6 +11338,13 @@ meltrout_108_warmelt_normatch_COMPLETE_NORMSTEP_IF_LAST (meltclosure_ptr_t (struct frame_meltrout_108_warmelt_normatch_COMPLETE_NORMSTEP_IF_LAST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 129; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14900,6 +14949,13 @@ meltrout_109_warmelt_normatch_NORMSTEP_ANYRECV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_109_warmelt_normatch_NORMSTEP_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15436,6 +15492,13 @@ meltrout_110_warmelt_normatch_NORMSTEP_MFLAGSET (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_110_warmelt_normatch_NORMSTEP_MFLAGSET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16368,6 +16431,13 @@ meltrout_111_warmelt_normatch_NORMSTEP_MFLAGCONJ (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_111_warmelt_normatch_NORMSTEP_MFLAGCONJ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 64; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18253,6 +18323,13 @@ meltrout_112_warmelt_normatch_NORMSTEP_MTESTINSTANCE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_112_warmelt_normatch_NORMSTEP_MTESTINSTANCE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 138; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22047,6 +22124,13 @@ meltrout_113_warmelt_normatch_NORMSTEP_MTESTMULTIPLE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_113_warmelt_normatch_NORMSTEP_MTESTMULTIPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 111; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25072,6 +25156,13 @@ meltrout_114_warmelt_normatch_NORMSTEP_MTESTVAR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_114_warmelt_normatch_NORMSTEP_MTESTVAR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 109; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -28021,6 +28112,13 @@ meltrout_115_warmelt_normatch_NORMSTEP_MGROUP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_115_warmelt_normatch_NORMSTEP_MGROUP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 107; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30897,6 +30995,13 @@ meltrout_116_warmelt_normatch_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_116_warmelt_normatch_LAMBDA___24___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31037,6 +31142,13 @@ meltrout_117_warmelt_normatch_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_117_warmelt_normatch_LAMBDA___25___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31177,6 +31289,13 @@ meltrout_118_warmelt_normatch_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_118_warmelt_normatch_LAMBDA___26___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31317,6 +31436,13 @@ meltrout_119_warmelt_normatch_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_119_warmelt_normatch_LAMBDA___27___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31461,6 +31587,13 @@ meltrout_120_warmelt_normatch_NORMSTEP_MSUCCWHENFLAG (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_120_warmelt_normatch_NORMSTEP_MSUCCWHENFLAG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 105; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -34285,6 +34418,13 @@ meltrout_121_warmelt_normatch_NORMTESTMATCH_CATCHALL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_121_warmelt_normatch_NORMTESTMATCH_CATCHALL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 32; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35130,6 +35270,13 @@ meltrout_122_warmelt_normatch_NORMFILLMATCH_CATCHALL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_122_warmelt_normatch_NORMFILLMATCH_CATCHALL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -35655,6 +35802,13 @@ meltrout_123_warmelt_normatch_NORMTESTMATCH_CMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_123_warmelt_normatch_NORMTESTMATCH_CMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 114; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -38908,6 +39062,13 @@ meltrout_124_warmelt_normatch_NORMFILLMATCH_CMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_124_warmelt_normatch_NORMFILLMATCH_CMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 94; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -41444,6 +41605,13 @@ meltrout_125_warmelt_normatch_NORMSTEP_MTESTMATCHER (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_125_warmelt_normatch_NORMSTEP_MTESTMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 207; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -47145,6 +47313,13 @@ meltrout_126_warmelt_normatch_ALTMATCH_NORMALIZE_STEP (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_126_warmelt_normatch_ALTMATCH_NORMALIZE_STEP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 41; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -48194,6 +48369,13 @@ meltrout_127_warmelt_normatch_ALTMATCH_NORMALIZE_MDATA (meltclosure_ptr_t (struct frame_meltrout_127_warmelt_normatch_ALTMATCH_NORMALIZE_MDATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -49606,6 +49788,13 @@ meltrout_128_warmelt_normatch_ALTMATCH_HANDLE_NORMALIZED_MDATA (struct frame_meltrout_128_warmelt_normatch_ALTMATCH_HANDLE_NORMALIZED_MDATA_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 72; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -51569,6 +51758,13 @@ meltrout_129_warmelt_normatch_ALTMATCH_MAKE_MATCH_NORMALIZATION_CONTEXT (struct frame_meltrout_129_warmelt_normatch_ALTMATCH_MAKE_MATCH_NORMALIZATION_CONTEXT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -52485,6 +52681,13 @@ meltrout_130_warmelt_normatch_ALTMATCH_NORMALIZE_MATCH_CONTEXT (struct frame_meltrout_130_warmelt_normatch_ALTMATCH_NORMALIZE_MATCH_CONTEXT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 101; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -55205,6 +55408,13 @@ meltrout_131_warmelt_normatch_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_131_warmelt_normatch_LAMBDA___28___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -55747,6 +55957,13 @@ meltrout_132_warmelt_normatch_NORMEXP_ALTMATCH (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_132_warmelt_normatch_NORMEXP_ALTMATCH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 267; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normatch+05.c b/gcc/melt/generated/warmelt-normatch+05.c index 4847fad0035..94b42334e25 100644 --- a/gcc/melt/generated/warmelt-normatch+05.c +++ b/gcc/melt/generated/warmelt-normatch+05.c @@ -2394,6 +2394,13 @@ meltrout_133_warmelt_normatch_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_133_warmelt_normatch_LAMBDA___29___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2802,6 +2809,13 @@ meltrout_134_warmelt_normatch_ALTERNATE_MATCH_OPTSET (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_134_warmelt_normatch_ALTERNATE_MATCH_OPTSET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3074,6 +3088,13 @@ meltrout_135_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_135_warmelt_normatch_MG_ALTDRAW_GRAPHVIZ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 86; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5756,6 +5777,13 @@ meltrout_136_warmelt_normatch_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_136_warmelt_normatch_LAMBDA___30___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 38; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6668,6 +6696,13 @@ meltrout_137_warmelt_normatch_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_137_warmelt_normatch_LAMBDA___31___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7578,6 +7613,13 @@ meltrout_138_warmelt_normatch_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_138_warmelt_normatch_LAMBDA___32___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8078,6 +8120,13 @@ meltrout_139_warmelt_normatch_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_139_warmelt_normatch_LAMBDA___33___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8301,6 +8350,13 @@ meltrout_140_warmelt_normatch_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_140_warmelt_normatch_LAMBDA___34___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-normatch+meltdesc.c b/gcc/melt/generated/warmelt-normatch+meltdesc.c index dd923e8a13e..909132b9df5 100644 --- a/gcc/melt/generated/warmelt-normatch+meltdesc.c +++ b/gcc/melt/generated/warmelt-normatch+meltdesc.c @@ -36,18 +36,18 @@ const char melt_modulename[]="warmelt-normatch"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-normatch"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="f18e4b7bb486ed577eda0da8282e07ae"; +const char melt_primaryhexmd5[]="1ea5166a78e5c7af0c702d14162fad9a"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+01.c #1 */ "e5c39e61a69e2eb4e19cc201e4fcfd01", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+02.c #2 */ "9d4ae844032a8cd7913049db9a417f40", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+03.c #3 */ "718b31b97775dfb256760e2dcd692776", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+04.c #4 */ "2baa0d5e61514fd7b020e248cd42bb73", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+05.c #5 */ "073e37afdce9b2c3f10ab26621c3a027", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+01.c #1 */ "278c464e3951a7198702ee5a4ff7d346", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+02.c #2 */ "f64a8af5a62bb8e03cb1cb56f8263ff0", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+03.c #3 */ "55710da068631a7d24db40a3041254c3", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+04.c #4 */ "bce756c118c10eb418653b50e95e14ae", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-normatch+05.c #5 */ "47e5f616ad6719e08501ca047bf123bf", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -55,10 +55,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="5bbb70bfb7a24e4820998d2353aa77c5" ; +const char melt_cumulated_hexmd5[]="42213435e706d572be209b2da09825c6" ; /* include the timestamp file */ -#define meltmod_warmelt_normatch_mds__5bbb70bfb7a24e4820998d2353aa77c5 1 +#define meltmod_warmelt_normatch_mds__42213435e706d572be209b2da09825c6 1 #include "warmelt-normatch+melttime.h" diff --git a/gcc/melt/generated/warmelt-normatch+melttime.h b/gcc/melt/generated/warmelt-normatch+melttime.h index 438577d1b55..ed164e9de5c 100644 --- a/gcc/melt/generated/warmelt-normatch+melttime.h +++ b/gcc/melt/generated/warmelt-normatch+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-normatch+melttime.h is included from warmelt-normatch+meltdesc.c only. */ -#if meltmod_warmelt_normatch_mds__5bbb70bfb7a24e4820998d2353aa77c5 +#if meltmod_warmelt_normatch_mds__42213435e706d572be209b2da09825c6 /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-normatch */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:37 2012 MEST"; -const long long melt_gen_timenum=1341248917; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:24 2012 MEST"; +const long long melt_gen_timenum=1341250464; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248917; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_normatch_mds__5bbb70bfb7a24e4820998d2353aa77c5 */ + #else /* ! meltmod_warmelt_normatch_mds__42213435e706d572be209b2da09825c6 */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-normatch - #endif /* meltmod_warmelt_normatch_mds__5bbb70bfb7a24e4820998d2353aa77c5 */ + #endif /* meltmod_warmelt_normatch_mds__42213435e706d572be209b2da09825c6 */ diff --git a/gcc/melt/generated/warmelt-normatch.c b/gcc/melt/generated/warmelt-normatch.c index 00d06aaf1df..a87a09baab5 100644 --- a/gcc/melt/generated/warmelt-normatch.c +++ b/gcc/melt/generated/warmelt-normatch.c @@ -2394,6 +2394,13 @@ meltrout_1_warmelt_normatch_SCANPAT_ANYRECV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_normatch_SCANPAT_ANYRECV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2824,6 +2831,13 @@ meltrout_2_warmelt_normatch_SCANPAT_ANYPATTERN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_2_warmelt_normatch_SCANPAT_ANYPATTERN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3432,6 +3446,13 @@ meltrout_3_warmelt_normatch_SCANPAT_SRCPATVAR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_3_warmelt_normatch_SCANPAT_SRCPATVAR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 37; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4333,6 +4354,13 @@ meltrout_4_warmelt_normatch_SCANPAT_SRCPATJOKER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_4_warmelt_normatch_SCANPAT_SRCPATJOKER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4718,11 +4746,6 @@ initialize_module_meltdata_warmelt_normatch (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf - ("start initialize_module_meltdata_warmelt_normatch iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -1879); struct cdata_st { @@ -6130,6 +6153,11 @@ initialize_module_meltdata_warmelt_normatch (initial_frame_st * iniframp__, struct meltint_st dint_1373__; long spare_; } *cdat = NULL; + dbgprintf + ("start initialize_module_meltdata_warmelt_normatch iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -1879); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -25021,7 +25049,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -77499,7 +77528,8 @@ meltmod__warmelt_normatch__initialmeltchunk_27 (struct meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ diff --git a/gcc/melt/generated/warmelt-outobj+01.c b/gcc/melt/generated/warmelt-outobj+01.c index b1f2ef80c97..53824e5f9e7 100644 --- a/gcc/melt/generated/warmelt-outobj+01.c +++ b/gcc/melt/generated/warmelt-outobj+01.c @@ -2271,6 +2271,13 @@ meltrout_5_warmelt_outobj_OUTPUCOD_OBJINIELEM (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_5_warmelt_outobj_OUTPUCOD_OBJINIELEM_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3292,6 +3299,13 @@ meltrout_6_warmelt_outobj_OUTCINITFILL_ROOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_6_warmelt_outobj_OUTCINITFILL_ROOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3606,6 +3620,13 @@ meltrout_7_warmelt_outobj_OUTCINITPREDEF_ROOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_7_warmelt_outobj_OUTCINITPREDEF_ROOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3883,6 +3904,13 @@ meltrout_8_warmelt_outobj_OUTPUT_PREDEF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_8_warmelt_outobj_OUTPUT_PREDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4678,6 +4706,13 @@ meltrout_9_warmelt_outobj_OUTPUCOD_PREDEF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_9_warmelt_outobj_OUTPUCOD_PREDEF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4925,6 +4960,13 @@ meltrout_10_warmelt_outobj_OUTPUCOD_NIL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_10_warmelt_outobj_OUTPUCOD_NIL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5129,6 +5171,13 @@ meltrout_11_warmelt_outobj_OUTDECLINIT_OBJINITOBJECT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_11_warmelt_outobj_OUTDECLINIT_OBJINITOBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5299,6 +5348,13 @@ meltrout_12_warmelt_outobj_OUTCINITFILL_OBJINITOBJECT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_12_warmelt_outobj_OUTCINITFILL_OBJINITOBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 69; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7982,6 +8038,13 @@ meltrout_13_warmelt_outobj_OUTCINITPREDEF_OBJINITOBJECT (meltclosure_ptr_t (struct frame_meltrout_13_warmelt_outobj_OUTCINITPREDEF_OBJINITOBJECT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 58; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9939,6 +10002,13 @@ meltrout_14_warmelt_outobj_OUTDECLINIT_OBJINITMULTIPLE (meltclosure_ptr_t (struct frame_meltrout_14_warmelt_outobj_OUTDECLINIT_OBJINITMULTIPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10110,6 +10180,13 @@ meltrout_15_warmelt_outobj_OUTCINITFILL_OBJINITMULTIPLE (meltclosure_ptr_t (struct frame_meltrout_15_warmelt_outobj_OUTCINITFILL_OBJINITMULTIPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 28; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11126,6 +11203,13 @@ meltrout_16_warmelt_outobj_OUTDECLINIT_OBJINITCLOSURE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_16_warmelt_outobj_OUTDECLINIT_OBJINITCLOSURE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11297,6 +11381,13 @@ meltrout_17_warmelt_outobj_OUTCINITFILL_OBJINITCLOSURE (meltclosure_ptr_t (struct frame_meltrout_17_warmelt_outobj_OUTCINITFILL_OBJINITCLOSURE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12440,6 +12531,13 @@ meltrout_18_warmelt_outobj_OUTDECLINIT_OBJINITROUTINE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_18_warmelt_outobj_OUTDECLINIT_OBJINITROUTINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12611,6 +12709,13 @@ meltrout_19_warmelt_outobj_OUTCINITFILL_OBJINITROUTINE (meltclosure_ptr_t (struct frame_meltrout_19_warmelt_outobj_OUTCINITFILL_OBJINITROUTINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 51; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14493,6 +14598,13 @@ meltrout_20_warmelt_outobj_OUTDECLINIT_OBJINITSTRING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_20_warmelt_outobj_OUTDECLINIT_OBJINITSTRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14663,6 +14775,13 @@ meltrout_21_warmelt_outobj_OUTCINITFILL_OBJINITSTRING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_21_warmelt_outobj_OUTCINITFILL_OBJINITSTRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 56; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17582,6 +17701,13 @@ meltrout_22_warmelt_outobj_OUTDECLINIT_OBJINITBOXEDINTEGER (meltclosure_ptr_t (struct frame_meltrout_22_warmelt_outobj_OUTDECLINIT_OBJINITBOXEDINTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17736,6 +17862,13 @@ meltrout_23_warmelt_outobj_OUTCINITFILL_OBJINITBOXEDINTEGER (meltclosure_ptr_t (struct frame_meltrout_23_warmelt_outobj_OUTCINITFILL_OBJINITBOXEDINTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18769,6 +18902,13 @@ meltrout_24_warmelt_outobj_OUTDECLINIT_OBJINITPAIR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_24_warmelt_outobj_OUTDECLINIT_OBJINITPAIR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18920,6 +19060,13 @@ meltrout_25_warmelt_outobj_OUTCINITFILL_OBJINITPAIR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_25_warmelt_outobj_OUTCINITFILL_OBJINITPAIR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19893,6 +20040,13 @@ meltrout_26_warmelt_outobj_OUTDECLINIT_OBJINITLIST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_26_warmelt_outobj_OUTDECLINIT_OBJINITLIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20044,6 +20198,13 @@ meltrout_27_warmelt_outobj_OUTCINITFILL_OBJINITLIST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_27_warmelt_outobj_OUTCINITFILL_OBJINITLIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21016,6 +21177,13 @@ meltrout_28_warmelt_outobj_OUTPUCOD_ANYDISCR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_28_warmelt_outobj_OUTPUCOD_ANYDISCR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21488,6 +21656,13 @@ meltrout_29_warmelt_outobj_OUTPUCOD_NULL (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_29_warmelt_outobj_OUTPUCOD_NULL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) diff --git a/gcc/melt/generated/warmelt-outobj+02.c b/gcc/melt/generated/warmelt-outobj+02.c index bd3697e0486..28c8f0490d6 100644 --- a/gcc/melt/generated/warmelt-outobj+02.c +++ b/gcc/melt/generated/warmelt-outobj+02.c @@ -2272,6 +2272,13 @@ meltrout_30_warmelt_outobj_OUTPUCOD_CATCHALL_ROOT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_30_warmelt_outobj_OUTPUCOD_CATCHALL_ROOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2649,6 +2656,13 @@ meltrout_31_warmelt_outobj_OUTPUT_RAW_LOCATION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_31_warmelt_outobj_OUTPUT_RAW_LOCATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3458,6 +3472,13 @@ meltrout_32_warmelt_outobj_LINE_AND_FILE_OF_LOCATION (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_32_warmelt_outobj_LINE_AND_FILE_OF_LOCATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3773,6 +3794,13 @@ meltrout_33_warmelt_outobj_OUTPUT_LOCATION (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_33_warmelt_outobj_OUTPUT_LOCATION_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5031,6 +5059,13 @@ meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_34_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5845,6 +5880,13 @@ meltrout_35_warmelt_outobj_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_35_warmelt_outobj_LAMBDA___1___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 19; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6487,6 +6529,13 @@ meltrout_36_warmelt_outobj_OUTPUCOD_MARKER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_36_warmelt_outobj_OUTPUCOD_MARKER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6973,6 +7022,13 @@ meltrout_37_warmelt_outobj_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_37_warmelt_outobj_LAMBDA___2___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7661,8 +7717,8 @@ meltrout_38_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT (meltclosure_ptr_t struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 17 - melt_ptr_t mcfr_varptr[17]; +#define MELTFRAM_NBVARPTR 18 + melt_ptr_t mcfr_varptr[18]; #define MELTFRAM_NBVARNUM 9 long mcfr_varnum[9]; /*others*/ @@ -7677,14 +7733,21 @@ meltrout_38_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT (meltclosure_ptr_t (struct frame_meltrout_38_warmelt_outobj_OUTPUT_CURFRAME_DECLSTRUCT_INIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 17; ix++) + for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 17; + meltfram__.mcfr_nbvar = 18; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -8142,9 +8205,28 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ + argtab[0].meltbp_cstring = + " /* use arguments output_curframe_declstruct_init */\n\t\t (void) meltclosp_;\n\t\t (void) meltfirstargp_;\n\t\t (void) meltxargdescr_;\n\t\t (void) meltxargtab_;\n\t\t (void) meltxresdescr_;\n\t\t (void) meltxrestab_;\n\t\t "; + /*_.ADD2OUT__V14*/ meltfptr[12] = + melt_apply ((meltclosure_ptr_t) + (( /*!ADD2OUT */ meltfrout->tabval[2])), + (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), + (MELTBPARSTR_CSTRING ""), argtab, "", + (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-outobj.melt:1404:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUCOD_MARKER__V14*/ meltfptr[12] = + /*_.OUTPUCOD_MARKER__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) (( /*!OUTPUCOD_MARKER */ meltfrout->tabval[3])), (melt_ptr_t) ( /*_.ROU__V3*/ meltfptr[2]), @@ -8154,7 +8236,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1397:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1405:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -8163,7 +8245,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1398:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1406:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (2), 0); @@ -8171,7 +8253,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1399:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1407:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -8186,21 +8268,23 @@ lab_endgetargs:; MELT_LOCATION ("warmelt-outobj.melt:1385:/ clear"); /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; /*^clear */ - /*clear *//*_.OUTPUCOD_MARKER__V14*/ meltfptr[12] = 0; + /*clear *//*_.ADD2OUT__V14*/ meltfptr[12] = 0; + /*^clear */ + /*clear *//*_.OUTPUCOD_MARKER__V15*/ meltfptr[14] = 0; } ; } /*noelse */ ; { - MELT_LOCATION ("warmelt-outobj.melt:1402:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1410:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1403:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1411:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" memset(&meltfram__, 0, sizeof(meltfram__));")); @@ -8208,14 +8292,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1404:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1412:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1405:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1413:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltfram__.mcfr_nbvar = ")); @@ -8223,14 +8307,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1406:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1414:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBVAL__L1*/ meltfnum[0])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1407:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1415:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -8238,17 +8322,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1408:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1416:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1409:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1417:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOT__L6*/ meltfnum[5] = (!( /*_#ISINITIAL__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1409:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1417:/ cond"); /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -8258,7 +8342,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1411:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1419:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -8267,13 +8351,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1412:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1420:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1410:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1418:/ quasiblock"); /*epilog */ @@ -8283,7 +8367,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1413:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1421:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;")); @@ -8291,14 +8375,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1414:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1422:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1415:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1423:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_topframe = (struct melt_callframe_st *) &meltfram__;")); @@ -8306,14 +8390,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1416:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1424:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1417:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1425:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8324,7 +8408,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1418:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1426:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8338,7 +8422,7 @@ lab_endgetargs:; { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*!BUFFER_LIMIT_CONT */ meltfrout->tabval[4])), 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V16*/ + /*_.REFERENCED_VALUE__V17*/ meltfptr[12] = slot; }; ; @@ -8346,28 +8430,28 @@ lab_endgetargs:; else { /*^cond.else */ - /*_.REFERENCED_VALUE__V16*/ meltfptr[12] = NULL;; + /*_.REFERENCED_VALUE__V17*/ meltfptr[12] = NULL;; } ; /*^compute */ /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int - ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V16*/ meltfptr[12])));; + ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V17*/ meltfptr[12])));; /*^compute */ /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:1417:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1425:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ - /*_.IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);; + /*_.IFELSE___V18*/ meltfptr[14] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:1417:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1425:/ cond.else"); /*^block */ /*anyblock */ @@ -8381,11 +8465,11 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1417) ? (1417) : __LINE__, __FUNCTION__); + (1425) ? (1425) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; + /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; /*epilog */ } ; @@ -8393,29 +8477,29 @@ lab_endgetargs:; ; /*^compute */ - /*_.IFCPP___V15*/ meltfptr[11] = /*_.IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[11] = /*_.IFELSE___V18*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1417:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1425:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ - /*clear *//*_.REFERENCED_VALUE__V16*/ meltfptr[12] = 0; + /*clear *//*_.REFERENCED_VALUE__V17*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_#GET_INT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#I__L9*/ meltfnum[8] = 0; /*^clear */ - /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; + /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V15*/ meltfptr[11] = ( /*nil */ NULL); + /*_.IFCPP___V16*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V15*/ meltfptr[11];; + /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V16*/ meltfptr[11];; MELT_LOCATION ("warmelt-outobj.melt:1349:/ clear"); /*clear *//*_.OBODY__V6*/ meltfptr[5] = 0; @@ -8442,7 +8526,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_#NOT__L6*/ meltfnum[5] = 0; /*^clear */ - /*clear *//*_.IFCPP___V15*/ meltfptr[11] = 0; + /*clear *//*_.IFCPP___V16*/ meltfptr[11] = 0; MELT_LOCATION ("warmelt-outobj.melt:1348:/ quasiblock"); @@ -8538,6 +8622,13 @@ meltrout_39_warmelt_outobj_OUTPUCOD_PROCROUTINE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_39_warmelt_outobj_OUTPUCOD_PROCROUTINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 68; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8553,7 +8644,7 @@ meltrout_39_warmelt_outobj_OUTPUCOD_PROCROUTINE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1422:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ getarg"); /*_.PROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8591,7 +8682,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1423:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1431:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8603,7 +8694,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_PROCROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1423:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1431:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8611,7 +8702,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1423:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1431:/ cond.else"); /*^block */ /*anyblock */ @@ -8625,7 +8716,7 @@ lab_endgetargs:; melt_assert_failed (("check prou"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1423) ? (1423) : __LINE__, __FUNCTION__); + (1431) ? (1431) : __LINE__, __FUNCTION__); ; } ; @@ -8640,7 +8731,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1423:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1431:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8651,7 +8742,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1424:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1432:/ quasiblock"); /*^getslot */ @@ -8662,7 +8753,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1425:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1433:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 3, "OBROUT_BODY"); @@ -8670,7 +8761,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1426:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1434:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 4, "OBROUT_NBVAL"); @@ -8678,7 +8769,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1427:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1435:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 5, "OBROUT_NBLONG"); @@ -8692,7 +8783,7 @@ lab_endgetargs:; /*_#NBLONG__L4*/ meltfnum[3] = (melt_get_int ((melt_ptr_t) ( /*_.ONBLONG__V11*/ meltfptr[10])));; - MELT_LOCATION ("warmelt-outobj.melt:1430:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1438:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 6, "OBROUT_OTHERS"); @@ -8700,7 +8791,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1431:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1439:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 10, "OPROUT_GETARGS"); @@ -8708,7 +8799,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1432:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1440:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 7, "OBROUT_RETVAL"); @@ -8716,7 +8807,7 @@ lab_endgetargs:; meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1433:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1441:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 11, "OPROUT_LOC"); @@ -8724,7 +8815,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1434:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1442:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 12, "OPROUT_FUNAM"); @@ -8732,7 +8823,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1435:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1443:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PROU__V2*/ meltfptr[1]), 13, "OPROUT_RESTNAM"); @@ -8740,7 +8831,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1437:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1445:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = @@ -8750,7 +8841,7 @@ lab_endgetargs:; /*_#NOT__L6*/ meltfnum[5] = (!( /*_#IS_STRING__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:1437:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1445:/ cond"); /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -8758,13 +8849,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1438:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:1446:/ compute"); /*_.OFUNAM__V16*/ meltfptr[15] = /*_.SETQ___V19*/ meltfptr[18] = ( /*!konst_1 */ meltfrout->tabval[1]);; /*_.IF___V18*/ meltfptr[17] = /*_.SETQ___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1437:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1445:/ clear"); /*clear *//*_.SETQ___V19*/ meltfptr[18] = 0; } ; @@ -8777,19 +8868,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1440:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1448:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1441:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1449:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1442:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1450:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8813,18 +8904,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1443:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1451:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1444:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1452:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L7*/ meltfnum[6] = (melt_magic_discr ((melt_ptr_t) ( /*_.ORLOC__V15*/ meltfptr[14])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-outobj.melt:1444:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1452:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -8832,7 +8923,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1444:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1452:/ cond.else"); /*^block */ /*anyblock */ @@ -8846,7 +8937,7 @@ lab_endgetargs:; /*_#OR___L8*/ meltfnum[7] = /*_#IS_MIXLOC__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1444:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1452:/ clear"); /*clear *//*_#IS_MIXLOC__L9*/ meltfnum[8] = 0; } ; @@ -8860,7 +8951,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1445:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1453:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8888,7 +8979,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1444:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1452:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V22*/ meltfptr[21] = 0; } ; @@ -8901,7 +8992,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1447:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1455:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("melt_ptr_t MELT_MODULE_VISIBILITY ")); @@ -8909,7 +9000,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1448:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1456:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) @@ -8918,7 +9009,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1449:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1457:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("(meltclosure_ptr_t meltclosp_,")); @@ -8926,7 +9017,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1450:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1458:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" melt_ptr_t meltfirstargp_,")); @@ -8934,7 +9025,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1451:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1459:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" const melt_argdescr_cell_t meltxargdescr_[],")); @@ -8942,7 +9033,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1452:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1460:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" union meltparam_un *meltxargtab_,")); @@ -8950,7 +9041,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1453:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1461:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" const melt_argdescr_cell_t meltxresdescr_[],")); @@ -8958,7 +9049,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1454:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1462:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (" union meltparam_un *meltxrestab_);")); @@ -8966,35 +9057,35 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1455:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1463:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1457:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1465:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1458:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1466:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1459:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1467:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1460:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1468:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_ptr_t MELT_MODULE_VISIBILITY ")); @@ -9002,14 +9093,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1461:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1469:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1462:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1470:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9018,7 +9109,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1463:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1471:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(meltclosure_ptr_t meltclosp_,")); @@ -9026,7 +9117,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1464:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1472:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_ptr_t meltfirstargp_,")); @@ -9034,7 +9125,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1465:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1473:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" const melt_argdescr_cell_t meltxargdescr_[],")); @@ -9042,7 +9133,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1466:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1474:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" union meltparam_un *meltxargtab_,")); @@ -9050,14 +9141,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1467:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1475:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (5), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1468:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1476:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" const melt_argdescr_cell_t meltxresdescr_[],")); @@ -9065,7 +9156,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1469:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1477:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" union meltparam_un *meltxrestab_)")); @@ -9073,20 +9164,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1470:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1478:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1471:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1479:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1472:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1480:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -9097,7 +9188,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1473:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1481:/ quasiblock"); /*^checksignal */ @@ -9115,7 +9206,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1474:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1482:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9132,7 +9223,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1476:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1484:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); @@ -9140,7 +9231,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1477:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1485:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9149,7 +9240,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1478:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1486:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9160,7 +9251,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1479:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1487:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9169,7 +9260,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1480:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1488:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9180,7 +9271,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1481:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1489:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9189,7 +9280,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1482:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1490:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -9197,7 +9288,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1489:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1497:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9206,7 +9297,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1490:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1498:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9217,7 +9308,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1491:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1499:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")")); @@ -9225,7 +9316,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1492:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1500:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -9233,7 +9324,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1493:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1501:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9242,7 +9333,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1494:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1502:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9253,14 +9344,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1495:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1503:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1473:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1481:/ clear"); /*clear *//*_.OVARIADICINDEX__V23*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.OVARIADICLENGTH__V24*/ meltfptr[23] = 0; @@ -9271,12 +9362,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1498:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1506:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1499:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1507:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9300,12 +9391,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1508:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1501:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1509:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9329,7 +9420,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1502:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1510:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_trace_start(\"")); @@ -9337,7 +9428,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1503:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1511:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9347,7 +9438,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1504:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1512:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", meltcallcount);")); @@ -9355,14 +9446,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1505:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1513:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1507:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1515:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*getargs*/")); @@ -9370,14 +9461,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1508:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1516:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1509:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1517:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9391,7 +9482,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OGARGS__V13*/ meltfptr[12])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:1509:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1517:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -9399,7 +9490,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1509:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1517:/ cond.else"); /*^block */ /*anyblock */ @@ -9413,7 +9504,7 @@ lab_endgetargs:; melt_assert_failed (("check ogargs"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1509) ? (1509) : __LINE__, __FUNCTION__); + (1517) ? (1517) : __LINE__, __FUNCTION__); ; } ; @@ -9428,7 +9519,7 @@ lab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[26] = /*_.IFELSE___V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1509:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1517:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0; @@ -9457,7 +9548,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1513:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1521:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); @@ -9465,7 +9556,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1514:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1522:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9474,7 +9565,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1515:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1523:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CURANK__L11*/ meltfnum[8])); @@ -9482,7 +9573,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1516:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1524:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -9490,13 +9581,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1517:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1525:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1518:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1526:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9520,13 +9611,13 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1520:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1528:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1520:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1528:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9565,7 +9656,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[14] = (( /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11]) > ( /*_#IRAW__L14*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:1520:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1528:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -9575,7 +9666,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1521:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1529:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -9586,7 +9677,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1522:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1530:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9612,7 +9703,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1522:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1530:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -9628,7 +9719,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1522:/ checksignal"); + ("warmelt-outobj.melt:1530:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9642,7 +9733,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1522; + argtab[2].meltbp_long = 1530; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_procroutine huge implbuf="; @@ -9664,7 +9755,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1522:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1530:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ @@ -9678,7 +9769,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1522:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1530:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[34] = @@ -9689,7 +9780,7 @@ lab_endgetargs:; /*_.PROGN___V36*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1522:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1530:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V34*/ meltfptr[33] = 0; @@ -9704,7 +9795,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1523:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1531:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9716,7 +9807,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1524:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1532:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9751,7 +9842,7 @@ lab_endgetargs:; /*_#I__L20*/ meltfnum[19] = (( /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[16]) < ( /*_#GET_INT__L19*/ meltfnum[15]));; - MELT_LOCATION ("warmelt-outobj.melt:1523:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1531:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -9759,7 +9850,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1523:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1531:/ cond.else"); /*^block */ /*anyblock */ @@ -9774,7 +9865,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1523) ? (1523) : __LINE__, + (1531) ? (1531) : __LINE__, __FUNCTION__); ; } @@ -9791,7 +9882,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1523:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1531:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L18*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V38*/ meltfptr[34] = 0; @@ -9808,7 +9899,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1520:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1528:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[34] = @@ -9819,7 +9910,7 @@ lab_endgetargs:; /*_.PROGN___V40*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1520:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1528:/ clear"); /*clear *//*_.IFCPP___V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V37*/ meltfptr[33] = 0; @@ -9840,7 +9931,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1510:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1518:/ clear"); /*clear *//*_.CURGET__V29*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#CURANK__L11*/ meltfnum[8] = 0; @@ -9862,7 +9953,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1526:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1534:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -9870,14 +9961,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1527:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1535:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1528:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1536:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto lab_endgetargs;")); @@ -9885,14 +9976,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1529:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1537:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1530:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1538:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("lab_endgetargs:;")); @@ -9900,14 +9991,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1531:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1539:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1533:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1541:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9918,7 +10009,7 @@ lab_endgetargs:; /*_#IS_LIST__L21*/ meltfnum[16] = (melt_magic_discr ((melt_ptr_t) ( /*_.OBODY__V9*/ meltfptr[8])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:1533:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1541:/ cond"); /*cond */ if ( /*_#IS_LIST__L21*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -9926,7 +10017,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1533:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1541:/ cond.else"); /*^block */ /*anyblock */ @@ -9940,7 +10031,7 @@ lab_endgetargs:; melt_assert_failed (("check obody"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1533) ? (1533) : __LINE__, __FUNCTION__); + (1541) ? (1541) : __LINE__, __FUNCTION__); ; } ; @@ -9955,7 +10046,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[38] = /*_.IFELSE___V42*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1533:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1541:/ clear"); /*clear *//*_#IS_LIST__L21*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V42*/ meltfptr[32] = 0; @@ -9968,7 +10059,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1534:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1542:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*body*/")); @@ -9976,12 +10067,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1535:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1543:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1538:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ quasiblock"); /*^newclosure */ @@ -10019,7 +10110,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V43*/ meltfptr[33] = /*_.LAMBDA___V44*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:1536:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1544:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10040,7 +10131,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1547:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1555:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -10048,14 +10139,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1548:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1556:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1549:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1557:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labend_rout;")); @@ -10063,14 +10154,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1550:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1558:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1551:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1559:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("labend_rout:")); @@ -10078,14 +10169,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1552:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1560:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1553:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1561:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_trace_end(\"")); @@ -10093,7 +10184,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1554:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1562:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10103,7 +10194,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1555:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1563:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", meltcallcount);")); @@ -10111,12 +10202,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1556:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1564:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1557:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1565:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10141,14 +10232,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1558:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1566:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1559:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1567:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_topframe = (struct melt_callframe_st*) meltfram__.mcfr_prev;")); @@ -10156,20 +10247,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1560:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1568:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1561:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1569:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" return (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1562:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1570:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10180,7 +10271,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1563:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1571:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -10208,7 +10299,7 @@ lab_endgetargs:; /*_.OUTPUT_C_CODE__V48*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1562:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1570:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V48*/ meltfptr[47] = 0; } ; @@ -10224,7 +10315,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1564:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1572:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -10239,13 +10330,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1565:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1573:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1566:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1574:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10258,7 +10349,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1568:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1576:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -10266,7 +10357,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1569:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1577:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -10275,7 +10366,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1570:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1578:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -10283,7 +10374,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1571:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1579:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -10292,13 +10383,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1572:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1580:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1567:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1575:/ quasiblock"); /*epilog */ @@ -10308,14 +10399,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1573:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1581:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1574:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1582:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltcallcount")); @@ -10323,14 +10414,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1575:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1583:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1576:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1584:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltfram__")); @@ -10338,14 +10429,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1577:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1585:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1578:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1586:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARNUM")); @@ -10353,14 +10444,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1579:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1587:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1580:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1588:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARPTR")); @@ -10368,14 +10459,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1581:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1589:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1582:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1590:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end ")); @@ -10383,7 +10474,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1583:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1591:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10392,7 +10483,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1584:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1592:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -10400,24 +10491,24 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1585:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1593:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1586:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1594:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L22*/ meltfnum[15] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10458,7 +10549,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[24] = (( /*_#STRBUF_USEDLENGTH__L22*/ meltfnum[15]) > ( /*_#IRAW__L24*/ meltfnum[16]));; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ cond"); /*cond */ if ( /*_#I__L25*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -10468,7 +10559,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1589:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1597:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -10480,7 +10571,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1590:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10506,7 +10597,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1590:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then */ { /*^cond.then */ @@ -10521,7 +10612,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1590:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10535,7 +10626,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1590; + argtab[2].meltbp_long = 1598; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_procroutine huge declbuf="; @@ -10557,7 +10648,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1590:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0; @@ -10570,7 +10661,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1590:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[52] = /*_.IF___V52*/ meltfptr[51];; @@ -10579,7 +10670,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[50] = /*_.PROGN___V54*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1590:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1598:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[51] = 0; @@ -10594,7 +10685,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1591:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1599:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10605,7 +10696,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L28*/ meltfnum[26] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1592:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1600:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10640,7 +10731,7 @@ lab_endgetargs:; /*_#I__L30*/ meltfnum[29] = (( /*_#STRBUF_USEDLENGTH__L28*/ meltfnum[26]) < ( /*_#GET_INT__L29*/ meltfnum[25]));; - MELT_LOCATION ("warmelt-outobj.melt:1591:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1599:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -10648,7 +10739,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1591:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1599:/ cond.else"); /*^block */ /*anyblock */ @@ -10662,7 +10753,7 @@ lab_endgetargs:; melt_assert_failed (("check limited declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1591) ? (1591) : __LINE__, + (1599) ? (1599) : __LINE__, __FUNCTION__); ; } @@ -10678,7 +10769,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[51] = /*_.IFELSE___V57*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1591:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1599:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L28*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V56*/ meltfptr[52] = 0; @@ -10695,7 +10786,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[51] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1588:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[52] = /*_.IFCPP___V55*/ meltfptr[51];; @@ -10704,7 +10795,7 @@ lab_endgetargs:; /*_.IFELSE___V50*/ meltfptr[49] = /*_.PROGN___V58*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1588:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1596:/ clear"); /*clear *//*_.IFCPP___V51*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.IFCPP___V55*/ meltfptr[51] = 0; @@ -10719,12 +10810,12 @@ lab_endgetargs:; /*_.IFELSE___V50*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1602:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L31*/ meltfnum[26] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1602:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10765,7 +10856,7 @@ lab_endgetargs:; /*_#I__L34*/ meltfnum[33] = (( /*_#STRBUF_USEDLENGTH__L31*/ meltfnum[26]) > ( /*_#IRAW__L33*/ meltfnum[29]));; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1602:/ cond"); /*cond */ if ( /*_#I__L34*/ meltfnum[33]) /*then */ { /*^cond.then */ @@ -10775,7 +10866,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1595:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1603:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -10787,7 +10878,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1596:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1604:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10813,7 +10904,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1596:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1604:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -10828,7 +10919,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1596:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1604:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10842,7 +10933,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1596; + argtab[2].meltbp_long = 1604; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_procroutine huge implbuf="; @@ -10864,7 +10955,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1596:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1604:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L36*/ meltfnum[35] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0; @@ -10877,7 +10968,7 @@ lab_endgetargs:; /*_.IF___V62*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1596:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1604:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[62] = /*_.IF___V62*/ meltfptr[52];; @@ -10886,7 +10977,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[51] = /*_.PROGN___V64*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1596:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1604:/ clear"); /*clear *//*_#MELT_NEED_DBG__L35*/ meltfnum[34] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[52] = 0; @@ -10901,7 +10992,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1597:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1605:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10912,7 +11003,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L37*/ meltfnum[35] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1598:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1606:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10947,7 +11038,7 @@ lab_endgetargs:; /*_#I__L39*/ meltfnum[38] = (( /*_#STRBUF_USEDLENGTH__L37*/ meltfnum[35]) < ( /*_#GET_INT__L38*/ meltfnum[34]));; - MELT_LOCATION ("warmelt-outobj.melt:1597:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1605:/ cond"); /*cond */ if ( /*_#I__L39*/ meltfnum[38]) /*then */ { /*^cond.then */ @@ -10955,7 +11046,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1597:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1605:/ cond.else"); /*^block */ /*anyblock */ @@ -10969,7 +11060,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1597) ? (1597) : __LINE__, + (1605) ? (1605) : __LINE__, __FUNCTION__); ; } @@ -10985,7 +11076,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[52] = /*_.IFELSE___V67*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1597:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1605:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L37*/ meltfnum[35] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V66*/ meltfptr[62] = 0; @@ -11002,7 +11093,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1594:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1602:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[62] = /*_.IFCPP___V65*/ meltfptr[52];; @@ -11011,7 +11102,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[50] = /*_.PROGN___V68*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1594:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1602:/ clear"); /*clear *//*_.IFCPP___V61*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.IFCPP___V65*/ meltfptr[52] = 0; @@ -11030,7 +11121,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFELSE___V60*/ meltfptr[50];; - MELT_LOCATION ("warmelt-outobj.melt:1424:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1432:/ clear"); /*clear *//*_.ONAM__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OBODY__V9*/ meltfptr[8] = 0; @@ -11108,7 +11199,7 @@ lab_endgetargs:; /*clear *//*_#I__L34*/ meltfnum[33] = 0; /*^clear */ /*clear *//*_.IFELSE___V60*/ meltfptr[50] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1422:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11117,7 +11208,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:1422:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11205,6 +11296,13 @@ meltrout_40_warmelt_outobj_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_40_warmelt_outobj_LAMBDA___3___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11220,7 +11318,7 @@ meltrout_40_warmelt_outobj_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1538:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ getarg"); /*_.CURBODY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -11230,7 +11328,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1539:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1547:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -11258,7 +11356,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = /*_#NOT__L3*/ meltfnum[2];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1539:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1547:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L3*/ meltfnum[2] = 0; @@ -11271,7 +11369,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1539:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1547:/ cond"); /*cond */ if ( /*_#IF___L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11279,7 +11377,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1541:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1549:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11305,18 +11403,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1542:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1550:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1540:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1548:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1539:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1547:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = 0; } ; @@ -11324,7 +11422,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1543:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1551:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11335,7 +11433,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:1544:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1552:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11370,7 +11468,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1543:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1551:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11378,7 +11476,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1543:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1551:/ cond.else"); /*^block */ /*anyblock */ @@ -11392,7 +11490,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1543) ? (1543) : __LINE__, __FUNCTION__); + (1551) ? (1551) : __LINE__, __FUNCTION__); ; } ; @@ -11407,7 +11505,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[2] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1543:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1551:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -11424,7 +11522,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1538:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11433,7 +11531,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V4*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-outobj.melt:1538:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11529,6 +11627,13 @@ meltrout_41_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT (meltclosure_ptr_t (struct frame_meltrout_41_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11544,7 +11649,7 @@ meltrout_41_warmelt_outobj_OUTPUT_CURFRAME_CDAT_STRUCT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1606:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ getarg"); /*_.IDATUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11566,14 +11671,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1607:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1615:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1608:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1616:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("struct cdata_st {")); @@ -11597,13 +11702,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1612:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1620:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1613:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1621:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11627,7 +11732,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1609:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1617:/ clear"); /*clear *//*_.CURDAT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#CURK__L1*/ meltfnum[0] = 0; @@ -11637,14 +11742,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1614:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1622:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1615:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1623:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" long spare_;")); @@ -11652,25 +11757,25 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1616:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1624:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1617:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1625:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("}")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1626:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1626:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11710,7 +11815,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) > ( /*_#IRAW__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1626:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -11720,7 +11825,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1619:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1627:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -11731,7 +11836,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1620:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11757,7 +11862,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1620:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11772,7 +11877,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1620:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11786,7 +11891,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1620; + argtab[2].meltbp_long = 1628; /*^apply.arg */ argtab[3].meltbp_cstring = "output_curframe_cdat_struct huge implbuf="; @@ -11808,7 +11913,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1620:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -11821,7 +11926,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1620:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -11830,7 +11935,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1620:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1628:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -11845,7 +11950,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1621:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1629:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11856,7 +11961,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1622:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1630:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11891,7 +11996,7 @@ lab_endgetargs:; /*_#I__L10*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[6]) < ( /*_#GET_INT__L9*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:1621:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1629:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -11899,7 +12004,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1621:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1629:/ cond.else"); /*^block */ /*anyblock */ @@ -11913,7 +12018,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1621) ? (1621) : __LINE__, + (1629) ? (1629) : __LINE__, __FUNCTION__); ; } @@ -11929,7 +12034,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1621:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1629:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L8*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V13*/ meltfptr[9] = 0; @@ -11946,7 +12051,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1618:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1626:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[9] = /*_.IFCPP___V12*/ meltfptr[8];; @@ -11955,7 +12060,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.PROGN___V15*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1618:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1626:/ clear"); /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.IFCPP___V12*/ meltfptr[8] = 0; @@ -11970,7 +12075,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1606:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11979,7 +12084,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-outobj.melt:1606:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12082,6 +12187,13 @@ meltrout_42_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_42_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12097,7 +12209,7 @@ meltrout_42_warmelt_outobj_OUTPUT_CURFRAME_CDAT_FILL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1628:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ getarg"); /*_.IDATUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12119,7 +12231,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1630:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1638:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" cdat = (struct cdata_st*) meltgc_allocate(sizeof(*cdat),0);")); @@ -12127,14 +12239,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1631:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1639:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1632:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1640:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" melt_prohibit_garbcoll = TRUE;")); @@ -12142,14 +12254,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1633:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1641:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1636:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1644:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("/*initial routine predef*/")); @@ -12157,7 +12269,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1637:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1645:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } @@ -12178,7 +12290,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:1641:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1649:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12208,7 +12320,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1638:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1646:/ clear"); /*clear *//*_.CURPDAT__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#CURK__L1*/ meltfnum[0] = 0; @@ -12218,7 +12330,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1644:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1652:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), ("/*initial routine fill*/")); @@ -12226,7 +12338,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1645:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1653:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } @@ -12249,13 +12361,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1649:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1657:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1650:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1658:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12285,7 +12397,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1646:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1654:/ clear"); /*clear *//*_.CURFIL__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#CURK__L2*/ meltfnum[1] = 0; @@ -12295,7 +12407,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1655:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1663:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" cdat = NULL;")); @@ -12303,14 +12415,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1656:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1664:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1657:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1665:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (" melt_prohibit_garbcoll = FALSE;")); @@ -12318,17 +12430,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1658:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1666:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1668:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1668:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12368,7 +12480,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2]) > ( /*_#IRAW__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1668:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -12378,7 +12490,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1661:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1669:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -12390,7 +12502,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1662:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1670:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12416,7 +12528,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1662:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1670:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12431,7 +12543,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1662:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1670:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12445,7 +12557,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1662; + argtab[2].meltbp_long = 1670; /*^apply.arg */ argtab[3].meltbp_cstring = "output_curframe_cdat_fill huge implbuf="; @@ -12467,7 +12579,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1662:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1670:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -12480,7 +12592,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1662:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1670:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -12489,7 +12601,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1662:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1670:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -12504,7 +12616,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1663:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1671:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12515,7 +12627,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:1664:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1672:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12550,7 +12662,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7]) < ( /*_#GET_INT__L10*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:1663:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1671:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -12558,7 +12670,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1663:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1671:/ cond.else"); /*^block */ /*anyblock */ @@ -12572,7 +12684,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1663) ? (1663) : __LINE__, + (1671) ? (1671) : __LINE__, __FUNCTION__); ; } @@ -12588,7 +12700,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[10] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1663:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1671:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[11] = 0; @@ -12605,7 +12717,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1660:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1668:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[11] = /*_.IFCPP___V14*/ meltfptr[10];; @@ -12614,7 +12726,7 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[8] = /*_.PROGN___V17*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1660:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1668:/ clear"); /*clear *//*_.IFCPP___V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[10] = 0; @@ -12629,7 +12741,7 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1628:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12638,7 +12750,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V9*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-outobj.melt:1628:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12738,6 +12850,13 @@ meltrout_43_warmelt_outobj_OUTPUCOD_INITIALROUTINE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_43_warmelt_outobj_OUTPUCOD_INITIALROUTINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 74; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12753,7 +12872,7 @@ meltrout_43_warmelt_outobj_OUTPUCOD_INITIALROUTINE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1671:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ getarg"); /*_.PINI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12791,7 +12910,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1672:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1680:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12803,7 +12922,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_INITIALROUTINEOBJ */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:1672:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1680:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -12811,7 +12930,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1672:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1680:/ cond.else"); /*^block */ /*anyblock */ @@ -12825,7 +12944,7 @@ lab_endgetargs:; melt_assert_failed (("check pini"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1672) ? (1672) : __LINE__, __FUNCTION__); + (1680) ? (1680) : __LINE__, __FUNCTION__); ; } ; @@ -12840,7 +12959,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1672:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1680:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -12851,10 +12970,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1673:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1681:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:1674:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1682:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 10, "OIROUT_DATA"); @@ -12862,7 +12981,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1675:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1683:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 12, "OIROUT_FILL"); @@ -12870,7 +12989,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1676:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1684:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 11, "OIROUT_PROLOG"); @@ -12878,7 +12997,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1677:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1685:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 7, "OBROUT_RETVAL"); @@ -12886,7 +13005,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1678:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:1686:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.PINI__V2*/ meltfptr[1]), 13, "OIROUT_MODULENAME"); @@ -12894,7 +13013,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:1679:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1687:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12937,19 +13056,19 @@ lab_endgetargs:; ((1) + ( /*_#IRAW__L5*/ meltfnum[4]));; { - MELT_LOCATION ("warmelt-outobj.melt:1683:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1691:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1684:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1692:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1685:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12970,34 +13089,34 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1691:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1699:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1692:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1700:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1693:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1701:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1694:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1702:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("typedef ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1695:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1703:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13017,7 +13136,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1696:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1704:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" initial_frame_st;")); @@ -13025,28 +13144,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1697:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1705:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1698:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1706:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1699:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1707:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1700:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1708:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("static void initialize_module_meltdata_")); @@ -13054,7 +13173,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1701:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1709:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13063,7 +13182,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1702:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1710:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" (initial_frame_st *iniframp__, char meltpredefinited[])")); @@ -13071,14 +13190,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1703:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1711:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1704:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1712:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -13086,14 +13205,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1705:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1713:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1706:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1714:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#define meltfram__ (*iniframp__)")); @@ -13101,14 +13220,48 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1707:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1715:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; + MELT_LOCATION ("warmelt-outobj.melt:1716:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.IMPLBUF__V4*/ meltfptr[3]; + /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V16*/ meltfptr[15] = + melt_apply ((meltclosure_ptr_t) + (( /*!OUTPUT_CURFRAME_CDAT_STRUCT */ meltfrout-> + tabval[4])), + (melt_ptr_t) ( /*_.IDATUP__V8*/ meltfptr[7]), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; { - MELT_LOCATION ("warmelt-outobj.melt:1708:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1717:/ locexp"); + /*add2sbuf_strconst */ + meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), + (" *cdat = NULL;")); + } + ; + + { + MELT_LOCATION ("warmelt-outobj.melt:1718:/ locexp"); + meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), + (0), 0); + } + ; + + { + MELT_LOCATION ("warmelt-outobj.melt:1719:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" dbgprintf (\"start initialize_module_meltdata_")); @@ -13116,7 +13269,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1709:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1720:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13125,7 +13278,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1710:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1721:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" iniframp__=%p\", (void*) iniframp__);")); @@ -13133,14 +13286,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1711:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1722:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1712:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1723:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_assertmsg (\"check module initial frame\", iniframp__->mcfr_nbvar == /*minihash*/ -")); @@ -13148,14 +13301,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1713:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1724:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MINIHASH__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1714:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1725:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -13163,46 +13316,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1715:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1726:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1716:/ checksignal"); - MELT_CHECK_SIGNAL (); - ; - /*^apply */ - /*apply */ - { - union meltparam_un argtab[1]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V16*/ meltfptr[15] = - melt_apply ((meltclosure_ptr_t) - (( /*!OUTPUT_CURFRAME_CDAT_STRUCT */ meltfrout-> - tabval[4])), - (melt_ptr_t) ( /*_.IDATUP__V8*/ meltfptr[7]), - (MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); - } - ; - - { - MELT_LOCATION ("warmelt-outobj.melt:1717:/ locexp"); - /*add2sbuf_strconst */ - meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), - (" *cdat = NULL;")); - } - ; - - { - MELT_LOCATION ("warmelt-outobj.melt:1718:/ locexp"); - meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), - (0), 0); - } - ; - MELT_LOCATION ("warmelt-outobj.melt:1720:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13222,14 +13341,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1721:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1729:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1722:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1730:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltfram__")); @@ -13237,14 +13356,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1723:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1731:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1724:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1732:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end initialize_module_meltdata_")); @@ -13252,7 +13371,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1725:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1733:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13261,7 +13380,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1726:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1734:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -13269,28 +13388,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1727:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1735:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1728:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1736:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1731:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1739:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1732:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1740:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("/* define different names when debugging or not */")); @@ -13298,14 +13417,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1734:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1742:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1735:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1743:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#if MELT_HAVE_DEBUG")); @@ -13313,14 +13432,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1736:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1744:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1737:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1745:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("extern")); @@ -13328,12 +13447,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1738:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1746:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1739:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1747:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13354,7 +13473,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1744:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1752:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("const char meltmodule_")); @@ -13362,7 +13481,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1745:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1753:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13371,7 +13490,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1746:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1754:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_enabled[];")); @@ -13379,14 +13498,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1747:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1755:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1748:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1756:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#define melt_have_debug_string meltmodule_")); @@ -13394,7 +13513,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1749:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1757:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13403,7 +13522,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1750:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1758:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_enabled")); @@ -13411,14 +13530,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1751:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1759:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1752:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1760:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#else /*!MELT_HAVE_DEBUG*/")); @@ -13426,14 +13545,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1753:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1761:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1754:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1762:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("extern")); @@ -13441,12 +13560,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1755:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1763:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1756:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1764:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13467,7 +13586,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1761:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1769:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("const char meltmodule_")); @@ -13475,7 +13594,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1762:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1770:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13484,7 +13603,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1763:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1771:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_disabled[];")); @@ -13492,14 +13611,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1764:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1772:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1765:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1773:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#define melt_have_debug_string meltmodule_")); @@ -13507,7 +13626,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1766:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1774:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13516,7 +13635,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1767:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1775:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__melt_have_debug_disabled")); @@ -13524,14 +13643,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1768:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1776:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1769:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1777:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("#endif /*!MELT_HAVE_DEBUG*/")); @@ -13539,28 +13658,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1770:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1778:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1771:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1779:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1773:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1781:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1774:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1782:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#if MELT_HAVE_DEBUG")); @@ -13568,14 +13687,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1775:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1783:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1776:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1784:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("const char meltmodule_")); @@ -13583,7 +13702,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1777:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1785:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13592,7 +13711,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1778:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1786:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__melt_have_debug_enabled[] = \"MELT module ")); @@ -13600,7 +13719,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1779:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1787:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13609,7 +13728,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1780:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1788:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" have debug enabled\";")); @@ -13617,14 +13736,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1781:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1789:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1782:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1790:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#else /*!MELT_HAVE_DEBUG*/")); @@ -13632,14 +13751,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1783:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1791:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1784:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1792:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("const char meltmodule_")); @@ -13647,7 +13766,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1785:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1793:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13656,7 +13775,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1786:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1794:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__melt_have_debug_disabled[] = \"MELT module ")); @@ -13664,7 +13783,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1787:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1795:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13673,7 +13792,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1788:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1796:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" have debug disabled\";")); @@ -13681,14 +13800,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1789:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1797:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1790:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1798:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#endif /*MELT_HAVE_DEBUG*/")); @@ -13696,31 +13815,31 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1791:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1799:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1730:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1738:/ quasiblock"); { - MELT_LOCATION ("warmelt-outobj.melt:1794:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1802:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1795:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1803:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1796:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1804:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("void* start_module_melt(void* modargp_) {")); @@ -13728,21 +13847,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1797:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1805:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1799:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1807:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1800:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1808:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("char meltpredefinited[MELTGLOB__LASTGLOB+8];")); @@ -13750,12 +13869,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1801:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1809:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1804:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1812:/ quasiblock"); /*^newclosure */ @@ -13767,7 +13886,7 @@ lab_endgetargs:; tabval[7])), (0)); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:1803:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1811:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13790,7 +13909,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1811:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1819:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**initial routine prologue**/")); @@ -13798,14 +13917,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1812:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1820:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1813:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1821:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/* set initial frame marking */")); @@ -13813,14 +13932,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1814:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1822:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1815:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1823:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((struct melt_callframe_st*)&meltfram__)->mcfr_nbvar = /*minihash*/ -")); @@ -13828,14 +13947,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1816:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1824:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MINIHASH__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1817:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1825:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -13843,14 +13962,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1818:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1826:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1819:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1827:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((struct melt_callframe_st*)&meltfram__)->mcfr_forwmarkrout = meltmod__")); @@ -13858,7 +13977,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1820:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1828:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13867,7 +13986,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1821:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1829:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__forward_or_mark_module_start_frame;")); @@ -13875,12 +13994,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1822:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1830:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1825:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1833:/ quasiblock"); /*^newclosure */ @@ -13918,7 +14037,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-outobj.melt:1823:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1831:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13939,7 +14058,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1831:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1839:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**initial routine cdata initializer**/")); @@ -13947,21 +14066,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1832:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1840:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1834:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1842:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1835:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1843:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("memset(meltpredefinited, 0, sizeof(meltpredefinited));")); @@ -13969,14 +14088,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1836:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1844:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1837:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1845:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("initialize_module_meltdata_")); @@ -13984,7 +14103,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1838:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1846:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -13993,7 +14112,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1839:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1847:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" (&meltfram__, meltpredefinited);")); @@ -14001,14 +14120,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1840:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1848:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1843:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1851:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**initial routine body**/")); @@ -14016,12 +14135,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1844:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1852:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1846:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1854:/ quasiblock"); /*^getslot */ @@ -14054,7 +14173,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.CURPAIR__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-outobj.melt:1853:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1861:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -14081,7 +14200,7 @@ lab_endgetargs:; /*_#IF___L7*/ meltfnum[6] = /*_#NOT__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1853:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1861:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#NOT__L9*/ meltfnum[8] = 0; @@ -14094,7 +14213,7 @@ lab_endgetargs:; /*_#IF___L7*/ meltfnum[6] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1853:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1861:/ cond"); /*cond */ if ( /*_#IF___L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -14104,7 +14223,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1854:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1862:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.BODYLIST__V27*/ meltfptr[26]), (melt_ptr_t) ( /*_.CURBODY__V30*/ @@ -14123,7 +14242,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1850:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1858:/ clear"); /*clear *//*_.CURPAIR__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.CURBODY__V30*/ meltfptr[29] = 0; @@ -14131,7 +14250,7 @@ lab_endgetargs:; /*clear *//*_#IF___L7*/ meltfnum[6] = 0; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:1855:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1863:/ quasiblock"); /*^checksignal */ @@ -14178,7 +14297,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:1864:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1872:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IRAW__L13*/ meltfnum[12] = @@ -14187,7 +14306,7 @@ lab_endgetargs:; /*_#I__L14*/ meltfnum[13] = (( /*_#IRAW__L13*/ meltfnum[12]) == (0));; - MELT_LOCATION ("warmelt-outobj.melt:1864:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1872:/ cond"); /*cond */ if ( /*_#I__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -14195,7 +14314,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1865:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1873:/ quasiblock"); /*_#CHUNKIX__L15*/ meltfnum[14] = @@ -14209,27 +14328,27 @@ lab_endgetargs:; tabval[16])), (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:1869:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1877:/ locexp"); /*increment *//*_#CHUNKCOUNT__L11*/ meltfnum[8] += 1; ; } ; { - MELT_LOCATION ("warmelt-outobj.melt:1870:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1878:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CHUNKBUFLIST__V28*/ meltfptr[27]), (melt_ptr_t) ( /*_.NEWCHUNKBUF__V36*/ meltfptr[35])); } ; - MELT_LOCATION ("warmelt-outobj.melt:1871:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:1879:/ compute"); /*_.CHUNKBUF__V32*/ meltfptr[31] = /*_.SETQ___V37*/ meltfptr[36] = /*_.NEWCHUNKBUF__V36*/ meltfptr[35];; /*_.LET___V35*/ meltfptr[34] = /*_.SETQ___V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-outobj.melt:1865:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1873:/ clear"); /*clear *//*_#CHUNKIX__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.NEWCHUNKBUF__V36*/ meltfptr[35] = 0; @@ -14238,7 +14357,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.LET___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1864:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1872:/ clear"); /*clear *//*_.LET___V35*/ meltfptr[34] = 0; } ; @@ -14249,7 +14368,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1873:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14270,7 +14389,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVLOC_CONTAINER */ meltfrout->tabval[17])); ; - MELT_LOCATION ("warmelt-outobj.melt:1874:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1882:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14291,7 +14410,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVIMPLBUF_CONTAINER */ meltfrout->tabval[18])); ; - MELT_LOCATION ("warmelt-outobj.melt:1875:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1883:/ quasiblock"); /*^cond */ @@ -14319,7 +14438,7 @@ lab_endgetargs:; /*_.CURLOC__V39*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1877:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1885:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -14330,7 +14449,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1878:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1886:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14360,7 +14479,7 @@ lab_endgetargs:; /*_.OUTPUT_LOCATION__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1877:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1885:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V41*/ meltfptr[40] = 0; } ; @@ -14375,11 +14494,11 @@ lab_endgetargs:; /*_.LET___V38*/ meltfptr[35] = /*_.IF___V40*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:1875:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1883:/ clear"); /*clear *//*_.CURLOC__V39*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[34] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1880:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1888:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -14405,19 +14524,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1881:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1889:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.CHUNKBUF__V32*/ meltfptr[31]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1882:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1890:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[14] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.CHUNKBUF__V32*/ meltfptr[31]));; - MELT_LOCATION ("warmelt-outobj.melt:1882:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1890:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14456,7 +14575,7 @@ lab_endgetargs:; /*_#I__L19*/ meltfnum[18] = (( /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[14]) > ( /*_#IRAW__L18*/ meltfnum[17]));; - MELT_LOCATION ("warmelt-outobj.melt:1882:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1890:/ cond"); /*cond */ if ( /*_#I__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -14466,7 +14585,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1883:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1891:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -14477,7 +14596,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1884:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14503,7 +14622,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1884:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -14519,7 +14638,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1884:/ checksignal"); + ("warmelt-outobj.melt:1892:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14533,7 +14652,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1884; + argtab[2].meltbp_long = 1892; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_initialroutine huge chunkbuf="; @@ -14555,7 +14674,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1884:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; /*^clear */ @@ -14569,7 +14688,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1884:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[46] = @@ -14580,7 +14699,7 @@ lab_endgetargs:; /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1884:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1892:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[45] = 0; @@ -14595,7 +14714,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1885:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1893:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14607,7 +14726,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.CHUNKBUF__V32*/ meltfptr[31]));; - MELT_LOCATION ("warmelt-outobj.melt:1886:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1894:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14642,7 +14761,7 @@ lab_endgetargs:; /*_#I__L24*/ meltfnum[23] = (( /*_#STRBUF_USEDLENGTH__L22*/ meltfnum[20]) < ( /*_#GET_INT__L23*/ meltfnum[19]));; - MELT_LOCATION ("warmelt-outobj.melt:1885:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1893:/ cond"); /*cond */ if ( /*_#I__L24*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -14650,7 +14769,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1885:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1893:/ cond.else"); /*^block */ /*anyblock */ @@ -14665,7 +14784,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1885) ? (1885) : __LINE__, + (1893) ? (1893) : __LINE__, __FUNCTION__); ; } @@ -14682,7 +14801,7 @@ lab_endgetargs:; /*_.IFELSE___V51*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1885:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1893:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L22*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V50*/ meltfptr[46] = 0; @@ -14699,7 +14818,7 @@ lab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1882:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1890:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[46] = @@ -14710,7 +14829,7 @@ lab_endgetargs:; /*_.PROGN___V52*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1882:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1890:/ clear"); /*clear *//*_.IFCPP___V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.IFCPP___V49*/ meltfptr[45] = 0; @@ -14731,7 +14850,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1860:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1868:/ clear"); /*clear *//*_.CURBODY__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_#BODIX__L12*/ meltfnum[11] = 0; @@ -14760,7 +14879,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:1855:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1863:/ clear"); /*clear *//*_.BODTUP__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.CHUNKBUF__V32*/ meltfptr[31] = 0; @@ -14768,7 +14887,7 @@ lab_endgetargs:; /*clear *//*_#NBBODY__L10*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#CHUNKCOUNT__L11*/ meltfnum[8] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1890:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1898:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14787,7 +14906,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVLOC_CONTAINER */ meltfrout->tabval[17])); ; - MELT_LOCATION ("warmelt-outobj.melt:1891:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1899:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14808,7 +14927,7 @@ lab_endgetargs:; meltgc_touch (( /*!PREVIMPLBUF_CONTAINER */ meltfrout->tabval[18])); ; - MELT_LOCATION ("warmelt-outobj.melt:1892:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1900:/ quasiblock"); /*^checksignal */ @@ -14832,14 +14951,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1895:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1903:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1896:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1904:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("struct frame_start_module_melt_st;")); @@ -14864,7 +14983,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1900:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1908:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); @@ -14872,7 +14991,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1901:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1909:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), @@ -14881,7 +15000,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1902:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1910:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) @@ -14891,7 +15010,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1903:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1911:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), @@ -14900,7 +15019,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1904:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1912:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ( /*_#CHUNKIX__L25*/ meltfnum[20])); @@ -14908,7 +15027,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1905:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1913:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), @@ -14917,7 +15036,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1906:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1914:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); @@ -14925,7 +15044,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1907:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1915:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14934,7 +15053,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1908:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1916:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -14944,7 +15063,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1909:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1917:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14953,7 +15072,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1910:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1918:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CHUNKIX__L25*/ meltfnum[20])); @@ -14961,7 +15080,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1911:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1919:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14974,7 +15093,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1897:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1905:/ clear"); /*clear *//*_.CURCHUNK__V54*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_#CHUNKIX__L25*/ meltfnum[20] = 0; @@ -14982,14 +15101,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1913:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1921:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1916:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1924:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -14997,14 +15116,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1917:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1925:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1918:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1926:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labend_rout;")); @@ -15012,14 +15131,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1919:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1927:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1920:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1928:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("labend_rout:;")); @@ -15027,14 +15146,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1921:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1929:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1922:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1930:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev;")); @@ -15042,14 +15161,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1923:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1931:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1924:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1932:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/* popped initial frame */")); @@ -15057,14 +15176,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1925:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1933:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1926:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1934:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ /* clear initial frame & return */")); @@ -15072,13 +15191,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1927:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1935:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_ptr_t retval = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1928:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1936:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -15089,7 +15208,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1929:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1937:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -15117,7 +15236,7 @@ lab_endgetargs:; /*_.OUTPUT_C_CODE__V56*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1928:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1936:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V56*/ meltfptr[46] = 0; } ; @@ -15133,7 +15252,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1930:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1938:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15148,7 +15267,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1931:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1939:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -15156,14 +15275,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1932:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1940:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1933:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1941:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" memset((void*) &meltfram__, 0, sizeof(meltfram__));")); @@ -15171,14 +15290,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1934:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1942:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1935:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1943:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" return retval;}")); @@ -15186,14 +15305,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1936:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1944:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1937:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1945:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltcallcount")); @@ -15201,14 +15320,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1938:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1946:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1939:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1947:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef meltfram__")); @@ -15216,14 +15335,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1940:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1948:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1941:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1949:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARNUM")); @@ -15231,14 +15350,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1942:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1950:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1943:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1951:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#undef MELTFRAM_NBVARPTR")); @@ -15246,21 +15365,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1944:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1952:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1945:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1953:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1946:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1954:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /* end start_module_melt */")); @@ -15268,7 +15387,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1947:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1955:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } @@ -15292,7 +15411,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1952:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1960:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15300,7 +15419,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1953:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1961:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15309,7 +15428,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1954:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1962:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -15319,7 +15438,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1955:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1963:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15328,7 +15447,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1956:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1964:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CHUNKIX__L26*/ meltfnum[19])); @@ -15336,7 +15455,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1957:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1965:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15345,7 +15464,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1958:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1966:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15353,7 +15472,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1959:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1967:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15362,7 +15481,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1960:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1968:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15370,7 +15489,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1961:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1969:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15379,7 +15498,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1962:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1970:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15387,7 +15506,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1963:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1971:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15396,7 +15515,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1964:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1972:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15404,7 +15523,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1965:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1973:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15413,7 +15532,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1966:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1974:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15421,7 +15540,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1967:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1975:/ locexp"); /*add2sbuf_sbuf */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15432,7 +15551,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1968:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1976:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15440,7 +15559,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1969:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1977:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15449,7 +15568,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1970:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1978:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -15457,7 +15576,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1971:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1979:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15466,7 +15585,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1972:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1980:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -15476,7 +15595,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1973:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1981:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15485,7 +15604,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1974:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1982:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CHUNKIX__L26*/ meltfnum[19])); @@ -15493,7 +15612,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1975:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1983:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -15501,19 +15620,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1976:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1984:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1978:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1986:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L27*/ meltfnum[23] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1978:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1986:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15552,7 +15671,7 @@ lab_endgetargs:; /*_#I__L30*/ meltfnum[29] = (( /*_#STRBUF_USEDLENGTH__L27*/ meltfnum[23]) > ( /*_#IRAW__L29*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:1978:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1986:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -15562,7 +15681,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1979:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1987:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -15573,7 +15692,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1980:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1988:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15599,7 +15718,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:1980:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1988:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -15615,7 +15734,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:1980:/ checksignal"); + ("warmelt-outobj.melt:1988:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15629,7 +15748,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1980; + argtab[2].meltbp_long = 1988; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_initialroutine huge implbuf="; @@ -15651,7 +15770,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1980:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1988:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = 0; /*^clear */ @@ -15665,7 +15784,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1980:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1988:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = @@ -15676,7 +15795,7 @@ lab_endgetargs:; /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1980:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1988:/ clear"); /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -15691,7 +15810,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:1981:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:1989:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15703,7 +15822,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:1982:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1990:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15738,7 +15857,7 @@ lab_endgetargs:; /*_#I__L35*/ meltfnum[34] = (( /*_#STRBUF_USEDLENGTH__L33*/ meltfnum[31]) < ( /*_#GET_INT__L34*/ meltfnum[30]));; - MELT_LOCATION ("warmelt-outobj.melt:1981:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1989:/ cond"); /*cond */ if ( /*_#I__L35*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -15746,7 +15865,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:1981:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:1989:/ cond.else"); /*^block */ /*anyblock */ @@ -15761,7 +15880,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (1981) ? (1981) : __LINE__, + (1989) ? (1989) : __LINE__, __FUNCTION__); ; } @@ -15778,7 +15897,7 @@ lab_endgetargs:; /*_.IFELSE___V66*/ meltfptr[65];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1981:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1989:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L33*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V65*/ meltfptr[61] = 0; @@ -15795,7 +15914,7 @@ lab_endgetargs:; /*_.IFCPP___V64*/ meltfptr[60] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:1978:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1986:/ quasiblock"); /*_.PROGN___V67*/ meltfptr[61] = @@ -15806,7 +15925,7 @@ lab_endgetargs:; /*_.PROGN___V67*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1978:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1986:/ clear"); /*clear *//*_.IFCPP___V60*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.IFCPP___V64*/ meltfptr[60] = 0; @@ -15827,7 +15946,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:1949:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1957:/ clear"); /*clear *//*_.CURCHUNK__V57*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_#CHUNKIX__L26*/ meltfnum[19] = 0; @@ -15846,12 +15965,12 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:1892:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1900:/ clear"); /*clear *//*_.CHUNKTUP__V53*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.IFELSE___V55*/ meltfptr[45] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1846:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1854:/ clear"); /*clear *//*_.RAWBODY__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.BODYLIST__V27*/ meltfptr[26] = 0; @@ -15859,14 +15978,14 @@ lab_endgetargs:; /*clear *//*_.CHUNKBUFLIST__V28*/ meltfptr[27] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:1987:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1995:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1988:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1996:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("void MELT_MODULE_VISIBILITY meltmod__")); @@ -15874,7 +15993,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1989:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1997:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15883,7 +16002,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1990:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1998:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), ("__forward_or_mark_module_start_frame (struct melt_callframe_st* fp, int marking);")); @@ -15891,14 +16010,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1991:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1999:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1992:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2000:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("void meltmod__")); @@ -15906,7 +16025,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1993:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2001:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -15915,7 +16034,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1994:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2002:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__forward_or_mark_module_start_frame (struct melt_callframe_st* fp, int marking)")); @@ -15923,14 +16042,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1995:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2003:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1996:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2004:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -15938,14 +16057,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1997:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2005:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1998:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2006:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("int ix=0;")); @@ -15953,14 +16072,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1999:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2007:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2000:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2008:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("initial_frame_st* meltframptr_= (initial_frame_st*)fp;")); @@ -15968,14 +16087,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2001:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2009:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2002:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2010:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_assertmsg (\"check module frame\", meltframptr_->mcfr_nbvar == /*minihash*/ -")); @@ -15983,14 +16102,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2003:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2011:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MINIHASH__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2004:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2012:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -15998,14 +16117,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2005:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2013:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2007:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2015:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (!marking && melt_is_forwarding) {")); @@ -16013,14 +16132,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2008:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2016:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2009:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2017:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("dbgprintf (\"forward_or_mark_module_start_frame_")); @@ -16028,7 +16147,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2010:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2018:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -16037,7 +16156,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2011:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2019:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" forwarding %d pointers in frame %p\", ")); @@ -16045,14 +16164,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2012:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2020:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBVAL__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2013:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2021:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (", (void*) meltframptr_);")); @@ -16060,14 +16179,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2014:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2022:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2015:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2023:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("for (ix = 0; ix < ")); @@ -16075,14 +16194,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2016:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2024:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBVAL__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2017:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2025:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("; ix++) MELT_FORWARDED(meltframptr_->mcfr_varptr[ix]);")); @@ -16090,14 +16209,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2018:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2026:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2019:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2027:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" return;")); @@ -16105,14 +16224,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2020:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2028:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2021:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2029:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end forwarding*/")); @@ -16120,14 +16239,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2022:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2030:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2024:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2032:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("dbgprintf (\"forward_or_mark_module_start_frame_")); @@ -16135,7 +16254,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2025:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2033:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -16144,7 +16263,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2026:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2034:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" marking in frame %p\", (void*) meltframptr_);")); @@ -16152,12 +16271,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2027:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2035:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2028:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2036:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16177,14 +16296,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2029:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2037:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2030:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2038:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /* end meltmod__")); @@ -16192,7 +16311,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2031:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2039:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.OMODNAM__V12*/ @@ -16201,7 +16320,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2032:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2040:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("__forward_or_mark_module_start_frame */")); @@ -16209,21 +16328,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2033:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2041:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2034:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2042:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2035:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2043:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16234,7 +16353,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L36*/ meltfnum[31] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2036:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2044:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16269,7 +16388,7 @@ lab_endgetargs:; /*_#I__L38*/ meltfnum[34] = (( /*_#STRBUF_USEDLENGTH__L36*/ meltfnum[31]) < ( /*_#GET_INT__L37*/ meltfnum[30]));; - MELT_LOCATION ("warmelt-outobj.melt:2035:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2043:/ cond"); /*cond */ if ( /*_#I__L38*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -16277,7 +16396,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2035:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2043:/ cond.else"); /*^block */ /*anyblock */ @@ -16291,7 +16410,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2035) ? (2035) : __LINE__, __FUNCTION__); + (2043) ? (2043) : __LINE__, __FUNCTION__); ; } ; @@ -16306,7 +16425,7 @@ lab_endgetargs:; /*_.IFCPP___V69*/ meltfptr[59] = /*_.IFELSE___V71*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2035:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2043:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L36*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V70*/ meltfptr[60] = 0; @@ -16325,7 +16444,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2037:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2045:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16336,7 +16455,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[31] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2038:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2046:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16371,7 +16490,7 @@ lab_endgetargs:; /*_#I__L41*/ meltfnum[34] = (( /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[31]) < ( /*_#GET_INT__L40*/ meltfnum[30]));; - MELT_LOCATION ("warmelt-outobj.melt:2037:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2045:/ cond"); /*cond */ if ( /*_#I__L41*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -16379,7 +16498,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2037:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2045:/ cond.else"); /*^block */ /*anyblock */ @@ -16393,7 +16512,7 @@ lab_endgetargs:; melt_assert_failed (("check limited declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2037) ? (2037) : __LINE__, __FUNCTION__); + (2045) ? (2045) : __LINE__, __FUNCTION__); ; } ; @@ -16408,7 +16527,7 @@ lab_endgetargs:; /*_.IFCPP___V72*/ meltfptr[50] = /*_.IFELSE___V74*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2037:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2045:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L39*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V73*/ meltfptr[45] = 0; @@ -16429,7 +16548,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V72*/ meltfptr[50];; - MELT_LOCATION ("warmelt-outobj.melt:1673:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1681:/ clear"); /*clear *//*_.IDATUP__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.IRFILL__V9*/ meltfptr[8] = 0; @@ -16475,7 +16594,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V69*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.IFCPP___V72*/ meltfptr[50] = 0; - MELT_LOCATION ("warmelt-outobj.melt:1671:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16484,7 +16603,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:1671:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16572,6 +16691,13 @@ meltrout_44_warmelt_outobj_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_44_warmelt_outobj_LAMBDA___4___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16587,7 +16713,7 @@ meltrout_44_warmelt_outobj_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1804:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1812:/ getarg"); /*_.ROU__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16609,20 +16735,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:1805:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1813:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:1806:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1814:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DSBUF__V3*/ meltfptr[2]), ("initial_frame_st ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:1804:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1812:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -16695,6 +16821,13 @@ meltrout_45_warmelt_outobj_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_45_warmelt_outobj_LAMBDA___5___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16710,7 +16843,7 @@ meltrout_45_warmelt_outobj_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:1825:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:1833:/ getarg"); /*_.CURPROL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -16720,7 +16853,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:1826:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1834:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -16748,7 +16881,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = /*_#NOT__L3*/ meltfnum[2];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1826:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1834:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L3*/ meltfnum[2] = 0; @@ -16761,7 +16894,7 @@ lab_endgetargs:; /*_#IF___L1*/ meltfnum[0] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:1826:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:1834:/ cond"); /*cond */ if ( /*_#IF___L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16769,7 +16902,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:1828:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:1836:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16795,18 +16928,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:1829:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:1837:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:1827:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:1835:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1826:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1834:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = 0; } ; @@ -16814,7 +16947,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:1825:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:1833:/ clear"); /*clear *//*_#IF___L1*/ meltfnum[0] = 0; } @@ -16886,6 +17019,13 @@ meltrout_46_warmelt_outobj_OUTPUCOD_GETARG (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_46_warmelt_outobj_OUTPUCOD_GETARG_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16901,7 +17041,7 @@ meltrout_46_warmelt_outobj_OUTPUCOD_GETARG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2045:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ getarg"); /*_.GARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16939,7 +17079,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2046:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16951,7 +17091,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETARG */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2046:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16959,7 +17099,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2046:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ cond.else"); /*^block */ /*anyblock */ @@ -16973,7 +17113,7 @@ lab_endgetargs:; melt_assert_failed (("check garg"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2046) ? (2046) : __LINE__, __FUNCTION__); + (2054) ? (2054) : __LINE__, __FUNCTION__); ; } ; @@ -16988,7 +17128,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2046:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2054:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -16999,7 +17139,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2047:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2055:/ quasiblock"); /*^getslot */ @@ -17010,7 +17150,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2048:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2056:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -17018,7 +17158,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2049:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2057:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 2, "OBARG_BIND"); @@ -17028,7 +17168,7 @@ lab_endgetargs:; ; /*_#RKBIND__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2051:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2059:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), 1, "FBIND_TYPE"); @@ -17038,7 +17178,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2053:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2061:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17050,7 +17190,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2053:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2061:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17058,7 +17198,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2053:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2061:/ cond.else"); /*^block */ /*anyblock */ @@ -17072,7 +17212,7 @@ lab_endgetargs:; melt_assert_failed (("check obind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2053) ? (2053) : __LINE__, __FUNCTION__); + (2061) ? (2061) : __LINE__, __FUNCTION__); ; } ; @@ -17087,7 +17227,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2053:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2061:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -17098,7 +17238,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2054:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2062:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17122,7 +17262,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2055:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2063:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17134,7 +17274,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:2055:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2063:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17142,7 +17282,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2055:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2063:/ cond.else"); /*^block */ /*anyblock */ @@ -17156,7 +17296,7 @@ lab_endgetargs:; melt_assert_failed (("check oloc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2055) ? (2055) : __LINE__, __FUNCTION__); + (2063) ? (2063) : __LINE__, __FUNCTION__); ; } ; @@ -17171,7 +17311,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2055:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2063:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -17184,7 +17324,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2056:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2064:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17196,7 +17336,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-outobj.melt:2056:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2064:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17204,7 +17344,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2056:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2064:/ cond.else"); /*^block */ /*anyblock */ @@ -17218,7 +17358,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2056) ? (2056) : __LINE__, __FUNCTION__); + (2064) ? (2064) : __LINE__, __FUNCTION__); ; } ; @@ -17233,7 +17373,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2056:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2064:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -17244,12 +17384,12 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2057:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2065:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[3] = (( /*_#RKBIND__L3*/ meltfnum[1]) == (0));; - MELT_LOCATION ("warmelt-outobj.melt:2057:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2065:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17259,7 +17399,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2059:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17270,7 +17410,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[7] = (( /*_.CTYBIND__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2059:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17278,7 +17418,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2059:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ cond.else"); /*^block */ /*anyblock */ @@ -17292,7 +17432,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind first"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2059) ? (2059) : __LINE__, + (2067) ? (2067) : __LINE__, __FUNCTION__); ; } @@ -17308,7 +17448,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2059:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2067:/ clear"); /*clear *//*_#__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; @@ -17319,7 +17459,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2060:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2068:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17345,7 +17485,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2061:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2069:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17354,18 +17494,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2062:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2070:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2058:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2066:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2057:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2065:/ clear"); /*clear *//*_.IFCPP___V19*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V21*/ meltfptr[19] = 0; @@ -17379,10 +17519,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2064:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2072:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2066:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2074:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), 4, "CTYPE_PARCHAR"); @@ -17390,7 +17530,7 @@ lab_endgetargs:; meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2067:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2075:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), 6, "CTYPE_ARGFIELD"); @@ -17398,7 +17538,7 @@ lab_endgetargs:; meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2069:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2077:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[7] = @@ -17408,7 +17548,7 @@ lab_endgetargs:; /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_STRING__L9*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2069:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2077:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -17416,7 +17556,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2071:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2079:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -17426,7 +17566,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2070:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2078:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), ("impossible argument ctype"), (melt_ptr_t) ( /*_.NAMED_NAME__V24*/ @@ -17435,7 +17575,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2069:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2077:/ clear"); /*clear *//*_.NAMED_NAME__V24*/ meltfptr[23] = 0; } ; @@ -17443,7 +17583,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2072:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2080:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17454,7 +17594,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2073:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2081:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10])); @@ -17462,7 +17602,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2074:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2082:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] != ")); @@ -17470,7 +17610,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2075:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2083:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17481,7 +17621,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2076:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2084:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17490,19 +17630,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2077:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2085:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2078:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2086:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L12*/ meltfnum[11] = (( /*_.CTYBIND__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2078:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2086:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -17510,7 +17650,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2080:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2088:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17537,7 +17677,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2081:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2089:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17548,7 +17688,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2082:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2090:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[12])); @@ -17556,7 +17696,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2083:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2091:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17567,7 +17707,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2084:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2092:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13])); @@ -17575,7 +17715,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2085:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2093:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17584,7 +17724,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2086:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2094:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), @@ -17593,14 +17733,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2087:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2095:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("gcc_assert(melt_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2088:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2096:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17627,7 +17767,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2089:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2097:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17636,19 +17776,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2090:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2098:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2079:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2087:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2078:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2086:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V25*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_#I__L13*/ meltfnum[12] = 0; @@ -17666,7 +17806,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2093:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2101:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17693,7 +17833,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2094:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2102:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17704,7 +17844,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2095:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2103:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L15*/ meltfnum[12])); @@ -17712,7 +17852,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2096:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2104:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17721,7 +17861,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2097:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2105:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -17732,19 +17872,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2098:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2106:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2092:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2100:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2078:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2086:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V27*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_#I__L15*/ meltfnum[12] = 0; @@ -17754,14 +17894,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2101:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2109:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2064:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2072:/ clear"); /*clear *//*_.PARC__V22*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.ARGF__V23*/ meltfptr[19] = 0; @@ -17780,7 +17920,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2103:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2111:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17791,7 +17931,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2104:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2112:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17826,7 +17966,7 @@ lab_endgetargs:; /*_#I__L18*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13]) < ( /*_#GET_INT__L17*/ meltfnum[12]));; - MELT_LOCATION ("warmelt-outobj.melt:2103:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2111:/ cond"); /*cond */ if ( /*_#I__L18*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17834,7 +17974,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2103:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2111:/ cond.else"); /*^block */ /*anyblock */ @@ -17848,7 +17988,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2103) ? (2103) : __LINE__, __FUNCTION__); + (2111) ? (2111) : __LINE__, __FUNCTION__); ; } ; @@ -17863,7 +18003,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[25] = /*_.IFELSE___V30*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2103:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2111:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L16*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V29*/ meltfptr[23] = 0; @@ -17884,7 +18024,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V28*/ meltfptr[25];; - MELT_LOCATION ("warmelt-outobj.melt:2047:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2055:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.NLOC__V9*/ meltfptr[8] = 0; @@ -17906,7 +18046,7 @@ lab_endgetargs:; /*clear *//*_#I__L7*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2045:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -17915,7 +18055,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2045:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18006,6 +18146,13 @@ meltrout_47_warmelt_outobj_OUTPUCOD_GETARGREST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_47_warmelt_outobj_OUTPUCOD_GETARGREST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18021,7 +18168,7 @@ meltrout_47_warmelt_outobj_OUTPUCOD_GETARGREST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2110:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ getarg"); /*_.GARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18059,7 +18206,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2111:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18071,7 +18218,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGETARGREST */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2111:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18079,7 +18226,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2111:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ cond.else"); /*^block */ /*anyblock */ @@ -18093,7 +18240,7 @@ lab_endgetargs:; melt_assert_failed (("check garg"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2111) ? (2111) : __LINE__, __FUNCTION__); + (2119) ? (2119) : __LINE__, __FUNCTION__); ; } ; @@ -18108,7 +18255,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2111:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2119:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -18119,7 +18266,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2112:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2120:/ quasiblock"); /*^getslot */ @@ -18130,7 +18277,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2113:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2121:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -18138,7 +18285,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2114:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2122:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.GARG__V2*/ meltfptr[1]), 2, "OBARG_BIND"); @@ -18146,7 +18293,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2115:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2123:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18174,7 +18321,7 @@ lab_endgetargs:; /*_#RKBIND__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2117:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2125:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), 1, "FBIND_TYPE"); @@ -18182,7 +18329,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2118:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18195,7 +18342,7 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2119:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2127:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18210,7 +18357,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2121:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2129:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18222,7 +18369,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBIND__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:2121:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2129:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18230,7 +18377,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2121:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2129:/ cond.else"); /*^block */ /*anyblock */ @@ -18244,7 +18391,7 @@ lab_endgetargs:; melt_assert_failed (("check obind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2121) ? (2121) : __LINE__, __FUNCTION__); + (2129) ? (2129) : __LINE__, __FUNCTION__); ; } ; @@ -18259,7 +18406,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2121:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2129:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -18270,7 +18417,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2122:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2130:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18294,7 +18441,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2123:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2131:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18306,7 +18453,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2123:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2131:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18314,7 +18461,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2123:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2131:/ cond.else"); /*^block */ /*anyblock */ @@ -18328,7 +18475,7 @@ lab_endgetargs:; melt_assert_failed (("check oloc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2123) ? (2123) : __LINE__, __FUNCTION__); + (2131) ? (2131) : __LINE__, __FUNCTION__); ; } ; @@ -18343,7 +18490,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2123:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2131:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -18356,7 +18503,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2124:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2132:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18368,7 +18515,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:2124:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2132:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18376,7 +18523,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2124:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2132:/ cond.else"); /*^block */ /*anyblock */ @@ -18390,7 +18537,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2124) ? (2124) : __LINE__, __FUNCTION__); + (2132) ? (2132) : __LINE__, __FUNCTION__); ; } ; @@ -18405,7 +18552,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2124:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2132:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -18416,12 +18563,12 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2125:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2133:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[3] = (( /*_#RKBIND__L3*/ meltfnum[1]) == (0));; - MELT_LOCATION ("warmelt-outobj.melt:2125:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2133:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -18431,7 +18578,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2127:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18442,7 +18589,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[7] = (( /*_.CTYBIND__V12*/ meltfptr[11]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:2127:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -18450,7 +18597,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2127:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ cond.else"); /*^block */ /*anyblock */ @@ -18464,7 +18611,7 @@ lab_endgetargs:; melt_assert_failed (("check ctybind first"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2127) ? (2127) : __LINE__, + (2135) ? (2135) : __LINE__, __FUNCTION__); ; } @@ -18480,7 +18627,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2127:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2135:/ clear"); /*clear *//*_#__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; @@ -18491,7 +18638,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2128:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18517,7 +18664,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2129:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2137:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18526,18 +18673,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2130:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2138:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2126:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2134:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2125:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2133:/ clear"); /*clear *//*_.IFCPP___V22*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V24*/ meltfptr[22] = 0; @@ -18551,10 +18698,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2132:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2140:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2134:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2142:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), 4, "CTYPE_PARCHAR"); @@ -18562,7 +18709,7 @@ lab_endgetargs:; meltfptr[20] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2135:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2143:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), 6, "CTYPE_ARGFIELD"); @@ -18570,7 +18717,7 @@ lab_endgetargs:; meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2137:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2145:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[7] = @@ -18580,7 +18727,7 @@ lab_endgetargs:; /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_STRING__L9*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2137:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2145:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -18588,7 +18735,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2139:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2147:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CTYBIND__V12*/ meltfptr[11]), 1, "NAMED_NAME"); @@ -18598,7 +18745,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2138:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2146:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), ("impossible argument ctype"), (melt_ptr_t) ( /*_.NAMED_NAME__V27*/ @@ -18607,7 +18754,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2137:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2145:/ clear"); /*clear *//*_.NAMED_NAME__V27*/ meltfptr[26] = 0; } ; @@ -18615,7 +18762,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2140:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2148:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18626,7 +18773,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2141:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2149:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10])); @@ -18634,7 +18781,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2142:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2150:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] != ")); @@ -18642,7 +18789,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2143:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2151:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18653,7 +18800,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2144:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2152:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18664,7 +18811,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2145:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2153:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L12*/ meltfnum[11]), 0); @@ -18672,7 +18819,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2146:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2154:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18683,7 +18830,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2147:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2155:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -18691,7 +18838,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2148:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2156:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18702,7 +18849,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2149:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2157:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -18712,7 +18859,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2150:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2158:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[12]), 0); @@ -18720,7 +18867,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2151:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2159:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18729,7 +18876,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2152:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2160:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -18737,7 +18884,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2153:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2161:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -18745,7 +18892,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2154:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2162:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -18753,7 +18900,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2155:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2163:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18764,7 +18911,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2156:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2164:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -18772,7 +18919,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2157:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2165:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#RKBIND__L3*/ meltfnum[1])); @@ -18780,7 +18927,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2158:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2166:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -18788,19 +18935,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2159:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2167:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2160:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2168:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L14*/ meltfnum[13] = (( /*_.CTYBIND__V12*/ meltfptr[11]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:2160:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2168:/ cond"); /*cond */ if ( /*_#__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -18808,7 +18955,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2162:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2170:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18835,7 +18982,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2163:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2171:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18846,7 +18993,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2164:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2172:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L15*/ meltfnum[14])); @@ -18854,7 +19001,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2165:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2173:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18865,7 +19012,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2166:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2174:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L16*/ meltfnum[15])); @@ -18873,7 +19020,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2167:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2175:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18882,7 +19029,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2168:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2176:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), @@ -18891,14 +19038,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2169:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2177:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("gcc_assert(melt_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2170:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2178:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18925,7 +19072,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2171:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2179:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18934,19 +19081,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2172:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2180:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2161:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2169:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2160:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2168:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V28*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_#I__L15*/ meltfnum[14] = 0; @@ -18964,7 +19111,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2175:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2183:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18991,7 +19138,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2176:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2184:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19002,7 +19149,7 @@ lab_endgetargs:; (( /*_#RKBIND__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2177:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2185:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L17*/ meltfnum[14])); @@ -19010,7 +19157,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2178:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2186:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19019,7 +19166,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2179:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2187:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19030,19 +19177,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2180:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2188:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2174:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2182:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2160:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2168:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V30*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_#I__L17*/ meltfnum[14] = 0; @@ -19052,14 +19199,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2183:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2191:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2132:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2140:/ clear"); /*clear *//*_.PARC__V25*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.ARGF__V26*/ meltfptr[22] = 0; @@ -19082,7 +19229,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2185:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2193:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19093,7 +19240,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2186:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2194:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19128,7 +19275,7 @@ lab_endgetargs:; /*_#I__L20*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15]) < ( /*_#GET_INT__L19*/ meltfnum[14]));; - MELT_LOCATION ("warmelt-outobj.melt:2185:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2193:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -19136,7 +19283,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2185:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2193:/ cond.else"); /*^block */ /*anyblock */ @@ -19150,7 +19297,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2185) ? (2185) : __LINE__, __FUNCTION__); + (2193) ? (2193) : __LINE__, __FUNCTION__); ; } ; @@ -19165,7 +19312,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[28] = /*_.IFELSE___V33*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2185:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2193:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L18*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[26] = 0; @@ -19186,7 +19333,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V31*/ meltfptr[28];; - MELT_LOCATION ("warmelt-outobj.melt:2112:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2120:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.NLOC__V9*/ meltfptr[8] = 0; @@ -19214,7 +19361,7 @@ lab_endgetargs:; /*clear *//*_#I__L7*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2110:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19223,7 +19370,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2110:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19314,6 +19461,13 @@ meltrout_48_warmelt_outobj_OUTPUCOD_OBJLOCV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_48_warmelt_outobj_OUTPUCOD_OBJLOCV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 12; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19329,7 +19483,7 @@ meltrout_48_warmelt_outobj_OUTPUCOD_OBJLOCV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2193:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ getarg"); /*_.LOCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19367,7 +19521,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2194:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2202:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19379,7 +19533,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLOCV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2194:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2202:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19387,7 +19541,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2194:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2202:/ cond.else"); /*^block */ /*anyblock */ @@ -19401,7 +19555,7 @@ lab_endgetargs:; melt_assert_failed (("check locv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2194) ? (2194) : __LINE__, __FUNCTION__); + (2202) ? (2202) : __LINE__, __FUNCTION__); ; } ; @@ -19416,7 +19570,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2194:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2202:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -19427,10 +19581,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2195:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2203:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2196:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2204:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -19438,7 +19592,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2197:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2205:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), 1, "OBL_OFF"); @@ -19446,7 +19600,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2198:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2206:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.LOCV__V2*/ meltfptr[1]), 3, "OBL_CNAME"); @@ -19454,13 +19608,13 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2201:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2209:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L3*/ meltfnum[1] = (( /*_.LTYP__V7*/ meltfptr[5]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2201:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2209:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19470,7 +19624,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2202:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2210:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*_.")); @@ -19478,7 +19632,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2203:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2211:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19489,7 +19643,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2204:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2212:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19500,7 +19654,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2205:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2213:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L4*/ meltfnum[3])); @@ -19508,13 +19662,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2206:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2214:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("]")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2201:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2209:/ quasiblock"); /*epilog */ @@ -19531,13 +19685,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2207:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[3] = (( /*_.LTYP__V7*/ meltfptr[5]) == (( /*!CTYPE_LONG */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2207:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -19547,7 +19701,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2208:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2216:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19556,7 +19710,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2209:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2217:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19567,7 +19721,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2210:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2218:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19579,7 +19733,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.LOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2211:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2219:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); @@ -19587,14 +19741,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2212:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2220:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("]")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2207:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2215:/ quasiblock"); /*epilog */ @@ -19613,7 +19767,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2214:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2222:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19622,7 +19776,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2215:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2223:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19631,7 +19785,7 @@ lab_endgetargs:; meltfptr[8]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:2213:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2221:/ quasiblock"); /*epilog */ @@ -19641,14 +19795,14 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2201:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2209:/ clear"); /*clear *//*_#__L5*/ meltfnum[3] = 0; } ; } ; - MELT_LOCATION ("warmelt-outobj.melt:2195:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2203:/ clear"); /*clear *//*_.LTYP__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.LOFF__V8*/ meltfptr[7] = 0; @@ -19658,7 +19812,7 @@ lab_endgetargs:; /*clear *//*_#__L3*/ meltfnum[1] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2217:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2225:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19669,7 +19823,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2218:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2226:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19704,7 +19858,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2217:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2225:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19712,7 +19866,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2217:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2225:/ cond.else"); /*^block */ /*anyblock */ @@ -19726,7 +19880,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2217) ? (2217) : __LINE__, __FUNCTION__); + (2225) ? (2225) : __LINE__, __FUNCTION__); ; } ; @@ -19741,7 +19895,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = /*_.IFELSE___V12*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2217:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2225:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V11*/ meltfptr[7] = 0; @@ -19758,7 +19912,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2193:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19767,7 +19921,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V10*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2193:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19858,6 +20012,13 @@ meltrout_49_warmelt_outobj_OUTPUCOD_OBJCLOCCV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_49_warmelt_outobj_OUTPUCOD_OBJCLOCCV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19873,7 +20034,7 @@ meltrout_49_warmelt_outobj_OUTPUCOD_OBJCLOCCV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2224:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ getarg"); /*_.OCCV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19911,7 +20072,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2225:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19923,7 +20084,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCCV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCLOCCV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2225:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19931,7 +20092,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2225:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ cond.else"); /*^block */ /*anyblock */ @@ -19945,7 +20106,7 @@ lab_endgetargs:; melt_assert_failed (("check occv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2225) ? (2225) : __LINE__, __FUNCTION__); + (2233) ? (2233) : __LINE__, __FUNCTION__); ; } ; @@ -19960,7 +20121,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2225:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2233:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -19971,7 +20132,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2226:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2234:/ quasiblock"); /*^getslot */ @@ -19982,7 +20143,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2227:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2235:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCCV__V2*/ meltfptr[1]), 3, "OBC_NAME"); @@ -19992,7 +20153,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2228:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2236:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20000,7 +20161,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:2229:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2237:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCCV__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -20011,7 +20172,7 @@ lab_endgetargs:; /*_#__L3*/ meltfnum[1] = (( /*_.OBV_TYPE__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2228:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2236:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20019,7 +20180,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2228:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2236:/ cond.else"); /*^block */ /*anyblock */ @@ -20033,7 +20194,7 @@ lab_endgetargs:; melt_assert_failed (("check valueness of closed occurrence"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2228) ? (2228) : __LINE__, __FUNCTION__); + (2236) ? (2236) : __LINE__, __FUNCTION__); ; } ; @@ -20048,7 +20209,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2228:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2236:/ clear"); /*clear *//*_.OBV_TYPE__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_#__L3*/ meltfnum[1] = 0; @@ -20063,7 +20224,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2230:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2238:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(/*~")); @@ -20071,7 +20232,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2231:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2239:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -20080,7 +20241,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2232:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2240:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/ meltfclos->tabval[")); @@ -20090,14 +20251,14 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2233:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2241:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L4*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2234:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2242:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("])")); @@ -20105,7 +20266,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2235:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2243:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20116,7 +20277,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2236:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2244:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20151,7 +20312,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2235:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2243:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -20159,7 +20320,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2235:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2243:/ cond.else"); /*^block */ /*anyblock */ @@ -20173,7 +20334,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2235) ? (2235) : __LINE__, __FUNCTION__); + (2243) ? (2243) : __LINE__, __FUNCTION__); ; } ; @@ -20188,7 +20349,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[10] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2235:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2243:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[11] = 0; @@ -20209,7 +20370,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V13*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:2226:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2234:/ clear"); /*clear *//*_.OOFF__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ONAM__V9*/ meltfptr[8] = 0; @@ -20219,7 +20380,7 @@ lab_endgetargs:; /*clear *//*_#GET_INT__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2224:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20228,7 +20389,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2224:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20319,6 +20480,13 @@ meltrout_50_warmelt_outobj_OUTPUCOD_OBJCONSTV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_50_warmelt_outobj_OUTPUCOD_OBJCONSTV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20334,7 +20502,7 @@ meltrout_50_warmelt_outobj_OUTPUCOD_OBJCONSTV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2243:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ getarg"); /*_.OCNSTV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20372,7 +20540,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2244:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2252:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20384,7 +20552,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCNSTV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCONSTV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2244:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2252:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20392,7 +20560,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2244:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2252:/ cond.else"); /*^block */ /*anyblock */ @@ -20406,7 +20574,7 @@ lab_endgetargs:; melt_assert_failed (("check ocnstv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2244) ? (2244) : __LINE__, __FUNCTION__); + (2252) ? (2252) : __LINE__, __FUNCTION__); ; } ; @@ -20421,7 +20589,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2244:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2252:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -20432,7 +20600,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2245:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2253:/ quasiblock"); /*^getslot */ @@ -20443,7 +20611,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2246:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2254:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCNSTV__V2*/ meltfptr[1]), 3, "OBC_NAME"); @@ -20453,7 +20621,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2247:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2255:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20461,7 +20629,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:2248:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2256:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCNSTV__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -20472,7 +20640,7 @@ lab_endgetargs:; /*_#__L3*/ meltfnum[1] = (( /*_.OBV_TYPE__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2247:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2255:/ cond"); /*cond */ if ( /*_#__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20480,7 +20648,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2247:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2255:/ cond.else"); /*^block */ /*anyblock */ @@ -20494,7 +20662,7 @@ lab_endgetargs:; melt_assert_failed (("check valueness of const occurrence"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2247) ? (2247) : __LINE__, __FUNCTION__); + (2255) ? (2255) : __LINE__, __FUNCTION__); ; } ; @@ -20509,7 +20677,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2247:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2255:/ clear"); /*clear *//*_.OBV_TYPE__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_#__L3*/ meltfnum[1] = 0; @@ -20524,7 +20692,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2249:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2257:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(/*!")); @@ -20532,7 +20700,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2250:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2258:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -20541,7 +20709,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2252:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2260:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/ meltfrout->tabval[")); @@ -20551,14 +20719,14 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OOFF__V8*/ meltfptr[7])));; { - MELT_LOCATION ("warmelt-outobj.melt:2253:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2261:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L4*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2254:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2262:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("])")); @@ -20566,7 +20734,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2255:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2263:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20577,7 +20745,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2256:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2264:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20612,7 +20780,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2255:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2263:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -20620,7 +20788,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2255:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2263:/ cond.else"); /*^block */ /*anyblock */ @@ -20634,7 +20802,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2255) ? (2255) : __LINE__, __FUNCTION__); + (2263) ? (2263) : __LINE__, __FUNCTION__); ; } ; @@ -20649,7 +20817,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[10] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2255:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2263:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[11] = 0; @@ -20670,7 +20838,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V13*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:2245:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2253:/ clear"); /*clear *//*_.OOFF__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ONAM__V9*/ meltfptr[8] = 0; @@ -20680,7 +20848,7 @@ lab_endgetargs:; /*clear *//*_#GET_INT__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2243:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20689,7 +20857,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2243:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20785,6 +20953,13 @@ meltrout_51_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST (meltclosure_ptr_t (struct frame_meltrout_51_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20800,7 +20975,7 @@ meltrout_51_warmelt_outobj_OUTPUT_CODE_INSTRUCTIONS_LIST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2262:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20842,7 +21017,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2263:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2271:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20855,7 +21030,7 @@ lab_endgetargs:; || (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.LIS__V2*/ meltfptr[1])) == MELTOBMAG_LIST));; - MELT_LOCATION ("warmelt-outobj.melt:2263:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2271:/ cond"); /*cond */ if ( /*_#IS_LIST_OR_NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20863,7 +21038,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2263:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2271:/ cond.else"); /*^block */ /*anyblock */ @@ -20877,7 +21052,7 @@ lab_endgetargs:; melt_assert_failed (("check lis"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2263) ? (2263) : __LINE__, __FUNCTION__); + (2271) ? (2271) : __LINE__, __FUNCTION__); ; } ; @@ -20892,7 +21067,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2263:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2271:/ clear"); /*clear *//*_#IS_LIST_OR_NULL__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -20905,7 +21080,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2264:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2272:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20916,7 +21091,7 @@ lab_endgetargs:; /*_#IS_INTEGERBOX__L2*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.BOXEDDEPTH__V5*/ meltfptr[4])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-outobj.melt:2264:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2272:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20924,7 +21099,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2264:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2272:/ cond.else"); /*^block */ /*anyblock */ @@ -20938,7 +21113,7 @@ lab_endgetargs:; melt_assert_failed (("check boxeddepth"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2264) ? (2264) : __LINE__, __FUNCTION__); + (2272) ? (2272) : __LINE__, __FUNCTION__); ; } ; @@ -20953,7 +21128,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2264:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2272:/ clear"); /*clear *//*_#IS_INTEGERBOX__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -20964,14 +21139,14 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2265:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2273:/ quasiblock"); /*_#DEPTH__L3*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) ( /*_.BOXEDDEPTH__V5*/ meltfptr[4])));; { - MELT_LOCATION ("warmelt-outobj.melt:2266:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2274:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L3*/ meltfnum[0]), 0); } @@ -20990,14 +21165,14 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.PAIR__V10*/ meltfptr[8]); - MELT_LOCATION ("warmelt-outobj.melt:2271:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2279:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.CUR__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_OBJPLAINBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2271:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2279:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -21007,14 +21182,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2272:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2280:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L3*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2273:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2281:/ quasiblock"); /*^getslot */ @@ -21025,7 +21200,7 @@ lab_endgetargs:; meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2274:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2282:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CUR__V11*/ meltfptr[10]), 1, "OBLO_BODYL"); @@ -21033,7 +21208,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2275:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2283:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CUR__V11*/ meltfptr[10]), 2, "OBLO_EPIL"); @@ -21041,7 +21216,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2277:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2285:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21082,7 +21257,7 @@ lab_endgetargs:; /*_.OUTPUT_LOCATION__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2277:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2285:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = 0; } ; @@ -21093,7 +21268,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2278:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2286:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21138,7 +21313,7 @@ lab_endgetargs:; meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2278:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2286:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ meltfptr[19] = 0; } @@ -21150,7 +21325,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2279:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2287:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21195,7 +21370,7 @@ lab_endgetargs:; meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2279:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2287:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21] = 0; } @@ -21211,7 +21386,7 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[12] = /*_.IF___V21*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:2273:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2281:/ clear"); /*clear *//*_.BLOC__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.BODYL__V15*/ meltfptr[14] = 0; @@ -21223,7 +21398,7 @@ lab_endgetargs:; /*clear *//*_.IF___V19*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2271:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2279:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = @@ -21234,7 +21409,7 @@ lab_endgetargs:; /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2271:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2279:/ clear"); /*clear *//*_.LET___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.PROGN___V23*/ meltfptr[21] = 0; @@ -21248,7 +21423,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2282:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2290:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -21272,7 +21447,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L6*/ meltfnum[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2282:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2290:/ clear"); /*clear *//*_#IS_NOT_A__L6*/ meltfnum[5] = 0; } ; @@ -21283,7 +21458,7 @@ lab_endgetargs:; /*_#IF___L5*/ meltfnum[4] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2282:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2290:/ cond"); /*cond */ if ( /*_#IF___L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -21293,7 +21468,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2283:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2291:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -21302,7 +21477,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2284:/ checksignal"); + ("warmelt-outobj.melt:2292:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21330,14 +21505,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2285:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2293:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2282:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2290:/ quasiblock"); /*epilog */ @@ -21359,7 +21534,7 @@ lab_endgetargs:; /*_.IFELSE___V24*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2271:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2279:/ clear"); /*clear *//*_#IF___L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V24*/ meltfptr[13] = 0; @@ -21369,7 +21544,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2287:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21380,7 +21555,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2288:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2296:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21415,7 +21590,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2287:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -21423,7 +21598,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2287:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ cond.else"); /*^block */ /*anyblock */ @@ -21437,7 +21612,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2287) ? (2287) : __LINE__, + (2295) ? (2295) : __LINE__, __FUNCTION__); ; } @@ -21453,7 +21628,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[15] = /*_.IFELSE___V28*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2287:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2295:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V27*/ meltfptr[16] = 0; @@ -21472,7 +21647,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2289:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2297:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21483,7 +21658,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2290:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2298:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21518,7 +21693,7 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5]) < ( /*_#GET_INT__L11*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2289:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2297:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -21526,7 +21701,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2289:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2297:/ cond.else"); /*^block */ /*anyblock */ @@ -21540,7 +21715,7 @@ lab_endgetargs:; melt_assert_failed (("check limited declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2289) ? (2289) : __LINE__, + (2297) ? (2297) : __LINE__, __FUNCTION__); ; } @@ -21556,7 +21731,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[19] = /*_.IFELSE___V31*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2289:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2297:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L10*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V30*/ meltfptr[12] = 0; @@ -21580,7 +21755,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2267:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2275:/ clear"); /*clear *//*_.PAIR__V10*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.CUR__V11*/ meltfptr[10] = 0; @@ -21595,9 +21770,9 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:2265:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2273:/ clear"); /*clear *//*_#DEPTH__L3*/ meltfnum[0] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2262:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -21679,6 +21854,13 @@ meltrout_52_warmelt_outobj_OUTPUCOD_OBJCHECKSIGNAL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_52_warmelt_outobj_OUTPUCOD_OBJCHECKSIGNAL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21694,7 +21876,7 @@ meltrout_52_warmelt_outobj_OUTPUCOD_OBJCHECKSIGNAL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2296:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2304:/ getarg"); /*_.OBCHI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21732,7 +21914,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2297:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2305:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21744,7 +21926,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCHI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCHECKSIGNAL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2297:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2305:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21752,7 +21934,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2297:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2305:/ cond.else"); /*^block */ /*anyblock */ @@ -21766,7 +21948,7 @@ lab_endgetargs:; melt_assert_failed (("check ochi"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2297) ? (2297) : __LINE__, __FUNCTION__); + (2305) ? (2305) : __LINE__, __FUNCTION__); ; } ; @@ -21781,7 +21963,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2297:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2305:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21792,7 +21974,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2298:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2306:/ quasiblock"); /*^getslot */ @@ -21803,7 +21985,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2300:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2308:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21841,7 +22023,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = /*_.OUTPUT_LOCATION__V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2300:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2308:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V9*/ meltfptr[8] = 0; } ; @@ -21852,7 +22034,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2301:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2309:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21872,19 +22054,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2302:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2310:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2298:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2306:/ clear"); /*clear *//*_.OLOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.IF___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V10*/ meltfptr[8] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2296:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2304:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -21963,6 +22145,13 @@ meltrout_53_warmelt_outobj_OUTPUCOD_OBJANYBLOCK (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_53_warmelt_outobj_OUTPUCOD_OBJANYBLOCK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 20; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21978,7 +22167,7 @@ meltrout_53_warmelt_outobj_OUTPUCOD_OBJANYBLOCK (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2307:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22016,7 +22205,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2308:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2316:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22028,7 +22217,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJANYBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2308:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2316:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22036,7 +22225,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2308:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2316:/ cond.else"); /*^block */ /*anyblock */ @@ -22050,7 +22239,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2308) ? (2308) : __LINE__, __FUNCTION__); + (2316) ? (2316) : __LINE__, __FUNCTION__); ; } ; @@ -22065,7 +22254,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2308:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2316:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -22076,7 +22265,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2309:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2317:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -22106,7 +22295,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2310:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2318:/ quasiblock"); /*^getslot */ @@ -22117,7 +22306,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2311:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2319:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -22135,19 +22324,19 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:2314:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2322:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*anyblock*/{")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2315:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2323:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2315:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2323:/ cond"); /*cond */ if ( /*_#IS_LIST__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -22155,7 +22344,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2316:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2324:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22185,7 +22374,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2315:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2323:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V14*/ meltfptr[13] = 0; } ; @@ -22196,13 +22385,13 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2317:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2325:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2317:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2325:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -22215,7 +22404,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:2319:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2327:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5]), 0); @@ -22223,14 +22412,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2320:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2328:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*epilog*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2321:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2329:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22256,7 +22445,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2318:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2326:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = @@ -22266,7 +22455,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[13] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2317:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2325:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V16*/ meltfptr[15] = 0; @@ -22283,7 +22472,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2322:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2330:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -22291,14 +22480,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2323:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2331:/ 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:2324:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2332:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22309,7 +22498,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2325:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2333:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22344,7 +22533,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2324:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2332:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -22352,7 +22541,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2324:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2332:/ cond.else"); /*^block */ /*anyblock */ @@ -22366,7 +22555,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2324) ? (2324) : __LINE__, __FUNCTION__); + (2332) ? (2332) : __LINE__, __FUNCTION__); ; } ; @@ -22381,7 +22570,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2324:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2332:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V19*/ meltfptr[16] = 0; @@ -22402,7 +22591,7 @@ lab_endgetargs:; /*_.LET___V9*/ meltfptr[8] = /*_.IFCPP___V18*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:2310:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2318:/ clear"); /*clear *//*_.BODYL__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.EPIL__V11*/ meltfptr[10] = 0; @@ -22420,7 +22609,7 @@ lab_endgetargs:; /*clear *//*_.IF___V15*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2307:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22429,7 +22618,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-outobj.melt:2307:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22529,6 +22718,13 @@ meltrout_54_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK (meltclosure_ptr_t (struct frame_meltrout_54_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22544,7 +22740,7 @@ meltrout_54_warmelt_outobj_OUTPUCOD_OBJMULTIALLOCBLOCK (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2331:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22582,7 +22778,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2332:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2340:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22594,7 +22790,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJMULTIALLOCBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2332:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2340:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22602,7 +22798,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2332:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2340:/ cond.else"); /*^block */ /*anyblock */ @@ -22616,7 +22812,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2332) ? (2332) : __LINE__, __FUNCTION__); + (2340) ? (2340) : __LINE__, __FUNCTION__); ; } ; @@ -22631,7 +22827,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2332:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2340:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -22642,7 +22838,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2333:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2341:/ quasiblock"); /*^getslot */ @@ -22653,7 +22849,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2334:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2342:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 3, "OMALBLO_ALLSTRUCT"); @@ -22661,7 +22857,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2335:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2343:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 4, "OMALBLO_NAME"); @@ -22669,7 +22865,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2336:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2344:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -22677,7 +22873,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2337:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2345:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 1, "OBLO_BODYL"); @@ -22693,7 +22889,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#DEPTHP1__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2340:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2348:/ quasiblock"); /*_.PTRBUF__V14*/ meltfptr[13] = @@ -22703,7 +22899,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:2341:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2349:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.PTRBUF__V14*/ meltfptr[13]), melt_string_str ((melt_ptr_t) @@ -22712,7 +22908,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2342:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2350:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.PTRBUF__V14*/ meltfptr[13]), ("_ptr")); @@ -22727,12 +22923,12 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[12] = /*_.STRBUF2STRING__V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2340:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2348:/ clear"); /*clear *//*_.PTRBUF__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V15*/ meltfptr[14] = 0; /*_.ONAMEPTR__V16*/ meltfptr[13] = /*_.LET___V13*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:2345:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2353:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22756,7 +22952,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2346:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2354:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22770,7 +22966,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OALLSTRUCT__V8*/ meltfptr[7])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:2346:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2354:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -22778,7 +22974,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2346:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2354:/ cond.else"); /*^block */ /*anyblock */ @@ -22792,7 +22988,7 @@ lab_endgetargs:; melt_assert_failed (("check oallstruct"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2346) ? (2346) : __LINE__, __FUNCTION__); + (2354) ? (2354) : __LINE__, __FUNCTION__); ; } ; @@ -22807,7 +23003,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2346:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2354:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -22820,7 +23016,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2347:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2355:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*multiallocblock*/{")); @@ -22828,14 +23024,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2348:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2356:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2349:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2357:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("struct ")); @@ -22843,7 +23039,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2350:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2358:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22852,7 +23048,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2351:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2359:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_st {")); @@ -22877,7 +23073,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2355:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2363:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22890,7 +23086,7 @@ lab_endgetargs:; ( /*_.CURSTRU__V20*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_OBJINITELEM */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:2355:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2363:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -22898,7 +23094,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2355:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2363:/ cond.else"); /*^block */ /*anyblock */ @@ -22912,7 +23108,7 @@ lab_endgetargs:; melt_assert_failed (("check curstru"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2355) ? (2355) : __LINE__, + (2363) ? (2363) : __LINE__, __FUNCTION__); ; } @@ -22928,7 +23124,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2355:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2363:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V22*/ meltfptr[21] = 0; @@ -22941,13 +23137,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2356:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2364:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2357:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2365:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22967,7 +23163,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2358:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2366:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22978,7 +23174,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2359:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2367:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23013,7 +23209,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2358:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2366:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23021,7 +23217,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2358:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2366:/ cond.else"); /*^block */ /*anyblock */ @@ -23035,7 +23231,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2358) ? (2358) : __LINE__, + (2366) ? (2366) : __LINE__, __FUNCTION__); ; } @@ -23051,7 +23247,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2358:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2366:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V25*/ meltfptr[24] = 0; @@ -23074,7 +23270,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2352:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2360:/ clear"); /*clear *//*_.CURSTRU__V20*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#STRIX__L5*/ meltfnum[3] = 0; @@ -23088,7 +23284,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2361:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2369:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" long ")); @@ -23096,7 +23292,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2362:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2370:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -23105,7 +23301,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2363:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2371:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_endgap; } *")); @@ -23113,7 +23309,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2364:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2372:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -23122,7 +23318,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2365:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2373:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_ptr = 0;")); @@ -23130,14 +23326,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2366:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2374:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2367:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2375:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -23146,7 +23342,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2368:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2376:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_ptr = (struct ")); @@ -23154,7 +23350,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2369:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2377:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -23163,7 +23359,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2370:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2378:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_st *) meltgc_allocate (sizeof (struct ")); @@ -23171,7 +23367,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2371:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2379:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -23180,7 +23376,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2372:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2380:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("_st), 0);")); @@ -23188,12 +23384,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2373:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2381:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2375:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2383:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23232,7 +23428,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:2379:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2387:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23258,7 +23454,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2380:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2388:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23269,7 +23465,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2381:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2389:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23304,7 +23500,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[12] = (( /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7]) < ( /*_#GET_INT__L12*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:2380:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2388:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23312,7 +23508,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2380:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2388:/ cond.else"); /*^block */ /*anyblock */ @@ -23326,7 +23522,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2380) ? (2380) : __LINE__, + (2388) ? (2388) : __LINE__, __FUNCTION__); ; } @@ -23342,7 +23538,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[29] = /*_.IFELSE___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2380:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2388:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L11*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V31*/ meltfptr[30] = 0; @@ -23361,7 +23557,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2382:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2390:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); @@ -23373,7 +23569,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2376:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2384:/ clear"); /*clear *//*_.CURSTRU__V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_#STRIX__L10*/ meltfnum[5] = 0; @@ -23383,13 +23579,13 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V30*/ meltfptr[29] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:2385:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2393:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L14*/ meltfnum[7] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2385:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2393:/ cond"); /*cond */ if ( /*_#IS_LIST__L14*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23397,7 +23593,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2386:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2394:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23427,7 +23623,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V34*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2385:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2393:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V34*/ meltfptr[31] = 0; } ; @@ -23438,13 +23634,13 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2388:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2396:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L15*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2388:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2396:/ cond"); /*cond */ if ( /*_#IS_LIST__L15*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23457,7 +23653,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:2390:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2398:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L16*/ meltfnum[12]), 0); @@ -23465,14 +23661,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2391:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2399:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*epilog*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2392:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23498,7 +23694,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2389:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2397:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[36] = @@ -23508,7 +23704,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[31] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2388:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2396:/ clear"); /*clear *//*_#GET_INT__L16*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V36*/ meltfptr[35] = 0; @@ -23525,7 +23721,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2394:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2402:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*end multiallocblock*/")); @@ -23533,13 +23729,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2395:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2403:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2333:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2341:/ clear"); /*clear *//*_.OLOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OALLSTRUCT__V8*/ meltfptr[7] = 0; @@ -23573,7 +23769,7 @@ lab_endgetargs:; /*clear *//*_.IF___V35*/ meltfptr[31] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2397:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2405:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23584,7 +23780,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2398:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2406:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23619,7 +23815,7 @@ lab_endgetargs:; /*_#I__L19*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12]) < ( /*_#GET_INT__L18*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:2397:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2405:/ cond"); /*cond */ if ( /*_#I__L19*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23627,7 +23823,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2397:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2405:/ cond.else"); /*^block */ /*anyblock */ @@ -23641,7 +23837,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2397) ? (2397) : __LINE__, __FUNCTION__); + (2405) ? (2405) : __LINE__, __FUNCTION__); ; } ; @@ -23656,7 +23852,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = /*_.IFELSE___V40*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2397:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2405:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L17*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V39*/ meltfptr[36] = 0; @@ -23673,7 +23869,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2331:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23682,7 +23878,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V38*/ meltfptr[35];; { - MELT_LOCATION ("warmelt-outobj.melt:2331:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23774,6 +23970,13 @@ meltrout_55_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_55_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23789,7 +23992,7 @@ meltrout_55_warmelt_outobj_OUTPUCOD_OBJCITERBLOCK (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2403:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ getarg"); /*_.OBCIT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23827,7 +24030,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2404:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2412:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23839,7 +24042,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCITERBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2404:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2412:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23847,7 +24050,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2404:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2412:/ cond.else"); /*^block */ /*anyblock */ @@ -23861,7 +24064,7 @@ lab_endgetargs:; melt_assert_failed (("check obcit"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2404) ? (2404) : __LINE__, __FUNCTION__); + (2412) ? (2412) : __LINE__, __FUNCTION__); ; } ; @@ -23876,7 +24079,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2404:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2412:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -23887,7 +24090,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2405:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2413:/ quasiblock"); /*^getslot */ @@ -23898,7 +24101,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2406:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2414:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 1, "OBLO_BODYL"); @@ -23906,7 +24109,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2407:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2415:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -23922,7 +24125,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2409:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2417:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 4, "OBCITER_BEFORE"); @@ -23930,7 +24133,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2410:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2418:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 5, "OBCITER_AFTER"); @@ -23938,7 +24141,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2411:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2419:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCIT__V2*/ meltfptr[1]), 3, "OBCITER_CITER"); @@ -23948,7 +24151,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2413:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2421:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23960,7 +24163,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CITER__V13*/ meltfptr[12]), (melt_ptr_t) (( /*!CLASS_CITERATOR */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2413:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2421:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -23968,7 +24171,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2413:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2421:/ cond.else"); /*^block */ /*anyblock */ @@ -23982,7 +24185,7 @@ lab_endgetargs:; melt_assert_failed (("check citer"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2413) ? (2413) : __LINE__, __FUNCTION__); + (2421) ? (2421) : __LINE__, __FUNCTION__); ; } ; @@ -23997,7 +24200,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2413:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2421:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -24008,7 +24211,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2414:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2422:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24028,13 +24231,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2415:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2423:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*citerblock ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2416:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2424:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CITER__V13*/ meltfptr[12]), 1, "NAMED_NAME"); @@ -24054,7 +24257,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2417:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2425:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/ {")); @@ -24062,12 +24265,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2418:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2426:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2419:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2427:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24105,7 +24308,7 @@ lab_endgetargs:; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2423:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2431:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24131,7 +24334,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2424:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2432:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24142,7 +24345,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2425:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2433:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24177,7 +24380,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2424:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2432:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -24185,7 +24388,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2424:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2432:/ cond.else"); /*^block */ /*anyblock */ @@ -24199,7 +24402,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2424) ? (2424) : __LINE__, + (2432) ? (2432) : __LINE__, __FUNCTION__); ; } @@ -24215,7 +24418,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2424:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2432:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -24238,7 +24441,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2420:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2428:/ clear"); /*clear *//*_.OBEF__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#IX__L5*/ meltfnum[3] = 0; @@ -24252,12 +24455,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2427:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2435:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2428:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2436:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24275,13 +24478,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2429:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2437:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L10*/ meltfnum[6] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V8*/ meltfptr[7])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2429:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2437:/ cond"); /*cond */ if ( /*_#IS_LIST__L10*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -24289,7 +24492,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2430:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2438:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24319,7 +24522,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2429:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2437:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25] = 0; } ; @@ -24332,12 +24535,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2431:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2439:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2432:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2440:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24374,7 +24577,7 @@ lab_endgetargs:; /*_#GET_INT__L12*/ meltfnum[8] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V10*/ meltfptr[9])));; - MELT_LOCATION ("warmelt-outobj.melt:2436:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24400,7 +24603,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2437:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2445:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24411,7 +24614,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2438:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2446:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24446,7 +24649,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[14] = (( /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12]) < ( /*_#GET_INT__L14*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:2437:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2445:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -24454,7 +24657,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2437:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2445:/ cond.else"); /*^block */ /*anyblock */ @@ -24468,7 +24671,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2437) ? (2437) : __LINE__, + (2445) ? (2445) : __LINE__, __FUNCTION__); ; } @@ -24484,7 +24687,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[29] = /*_.IFELSE___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2437:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2445:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V31*/ meltfptr[30] = 0; @@ -24507,7 +24710,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2433:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2441:/ clear"); /*clear *//*_.OAFT__V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#IX__L11*/ meltfnum[7] = 0; @@ -24521,12 +24724,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2440:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2448:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2441:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2449:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24544,13 +24747,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2442:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L16*/ meltfnum[12] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V9*/ meltfptr[8])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2442:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ cond"); /*cond */ if ( /*_#IS_LIST__L16*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -24563,7 +24766,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:2444:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2452:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L17*/ meltfnum[13]), 0); @@ -24571,14 +24774,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2445:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2453:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*citerepilog*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2446:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24604,7 +24807,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2443:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2451:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = @@ -24614,7 +24817,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[31] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2442:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2450:/ clear"); /*clear *//*_#GET_INT__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V35*/ meltfptr[34] = 0; @@ -24631,13 +24834,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2447:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2455:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} /*endciterblock ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2448:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2456:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CITER__V13*/ meltfptr[12]), 1, "NAMED_NAME"); @@ -24657,7 +24860,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2449:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2457:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -24665,13 +24868,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2450:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2458:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2405:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2413:/ clear"); /*clear *//*_.OLOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.BODYL__V8*/ meltfptr[7] = 0; @@ -24713,7 +24916,7 @@ lab_endgetargs:; /*clear *//*_.NAMED_NAME__V37*/ meltfptr[34] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2452:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2460:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24724,7 +24927,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2453:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2461:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24759,7 +24962,7 @@ lab_endgetargs:; /*_#I__L20*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14]) < ( /*_#GET_INT__L19*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:2452:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2460:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24767,7 +24970,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2452:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2460:/ cond.else"); /*^block */ /*anyblock */ @@ -24781,7 +24984,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2452) ? (2452) : __LINE__, __FUNCTION__); + (2460) ? (2460) : __LINE__, __FUNCTION__); ; } ; @@ -24796,7 +24999,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = /*_.IFELSE___V40*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2452:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2460:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L18*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V39*/ meltfptr[5] = 0; @@ -24813,7 +25016,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2403:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24822,7 +25025,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V38*/ meltfptr[35];; { - MELT_LOCATION ("warmelt-outobj.melt:2403:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24917,6 +25120,13 @@ meltrout_56_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_56_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24932,7 +25142,7 @@ meltrout_56_warmelt_outobj_OUTPUCOD_OBJCOMMENTINSTR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2458:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ getarg"); /*_.OBCI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24970,7 +25180,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2459:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2467:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24982,7 +25192,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBCI__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCOMMENTINSTR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2459:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2467:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24990,7 +25200,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2459:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2467:/ cond.else"); /*^block */ /*anyblock */ @@ -25004,7 +25214,7 @@ lab_endgetargs:; melt_assert_failed (("check obci"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2459) ? (2459) : __LINE__, __FUNCTION__); + (2467) ? (2467) : __LINE__, __FUNCTION__); ; } ; @@ -25019,7 +25229,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2459:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2467:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -25030,7 +25240,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2460:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2468:/ quasiblock"); /*^getslot */ @@ -25041,7 +25251,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2461:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2469:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCI__V2*/ meltfptr[1]), 1, "OBCI_COMMENT"); @@ -25049,7 +25259,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2462:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2470:/ quasiblock"); /*_.SBU__V11*/ meltfptr[10] = @@ -25059,7 +25269,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:2463:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2471:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBU__V11*/ meltfptr[10]), melt_string_str ((melt_ptr_t) ( /*_.COMS__V9*/ @@ -25074,12 +25284,12 @@ lab_endgetargs:; /*_.LET___V10*/ meltfptr[9] = /*_.STRBUF2STRING__V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:2462:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2470:/ clear"); /*clear *//*_.SBU__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V12*/ meltfptr[11] = 0; /*_.COMSTR__V13*/ meltfptr[10] = /*_.LET___V10*/ meltfptr[9];; - MELT_LOCATION ("warmelt-outobj.melt:2467:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2475:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25103,7 +25313,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2468:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2476:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/**COMMENT: ")); @@ -25111,7 +25321,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2469:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2477:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -25121,7 +25331,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2470:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2478:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" **/;")); @@ -25129,14 +25339,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2471:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2479:/ 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:2472:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2480:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25147,7 +25357,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2473:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2481:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25182,7 +25392,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2472:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2480:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -25190,7 +25400,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2472:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2480:/ cond.else"); /*^block */ /*anyblock */ @@ -25204,7 +25414,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2472) ? (2472) : __LINE__, __FUNCTION__); + (2480) ? (2480) : __LINE__, __FUNCTION__); ; } ; @@ -25219,7 +25429,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2472:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2480:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V16*/ meltfptr[15] = 0; @@ -25240,7 +25450,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2460:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2468:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.COMS__V9*/ meltfptr[8] = 0; @@ -25252,7 +25462,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_LOCATION__V14*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V15*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2458:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25261,7 +25471,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2458:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25356,6 +25566,13 @@ meltrout_57_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_57_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25371,7 +25588,7 @@ meltrout_57_warmelt_outobj_OUTPUCOD_OBJCOMMENTEDBLOCK (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2479:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25409,7 +25626,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2480:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2488:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25421,7 +25638,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJCOMMENTEDBLOCK */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2480:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2488:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25429,7 +25646,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2480:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2488:/ cond.else"); /*^block */ /*anyblock */ @@ -25443,7 +25660,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2480) ? (2480) : __LINE__, __FUNCTION__); + (2488) ? (2488) : __LINE__, __FUNCTION__); ; } ; @@ -25458,7 +25675,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2480:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2488:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -25469,7 +25686,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2481:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2489:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -25499,7 +25716,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2482:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2490:/ quasiblock"); /*^getslot */ @@ -25510,7 +25727,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2483:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2491:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -25526,7 +25743,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2485:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2493:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 3, "OCOMBLO_COMMENT"); @@ -25534,7 +25751,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2486:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2494:/ quasiblock"); /*_.SBU__V15*/ meltfptr[14] = @@ -25544,7 +25761,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:2487:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2495:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBU__V15*/ meltfptr[14]), melt_string_str ((melt_ptr_t) ( /*_.COMS__V13*/ @@ -25559,14 +25776,14 @@ lab_endgetargs:; /*_.LET___V14*/ meltfptr[13] = /*_.STRBUF2STRING__V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:2486:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2494:/ clear"); /*clear *//*_.SBU__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V16*/ meltfptr[15] = 0; /*_.COMSTR__V17*/ meltfptr[14] = /*_.LET___V14*/ meltfptr[13];; { - MELT_LOCATION ("warmelt-outobj.melt:2491:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2499:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*com.block:")); @@ -25574,7 +25791,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2492:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2500:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -25584,19 +25801,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2493:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2501:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/{")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2494:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2502:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.BODYL__V10*/ meltfptr[9])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2494:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2502:/ cond"); /*cond */ if ( /*_#IS_LIST__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -25604,7 +25821,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2495:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2503:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25634,7 +25851,7 @@ lab_endgetargs:; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2494:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2502:/ clear"); /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V19*/ meltfptr[18] = 0; } ; @@ -25645,13 +25862,13 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[15] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2496:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2504:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.EPIL__V11*/ meltfptr[10])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:2496:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2504:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -25664,7 +25881,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:2498:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2506:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5]), 0); @@ -25672,7 +25889,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2499:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2507:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -25681,7 +25898,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2508:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -25692,13 +25909,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2501:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2509:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2502:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2510:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25724,7 +25941,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2497:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2505:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = @@ -25734,7 +25951,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2496:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2504:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V21*/ meltfptr[20] = 0; @@ -25751,7 +25968,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2503:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2511:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -25759,7 +25976,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2504:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2512:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*com.end block:")); @@ -25767,7 +25984,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2505:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2513:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -25777,7 +25994,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2506:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2514:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -25785,14 +26002,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2507:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2515:/ 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:2508:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25803,7 +26020,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2509:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2517:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25838,7 +26055,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2508:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -25846,7 +26063,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2508:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ cond.else"); /*^block */ /*anyblock */ @@ -25860,7 +26077,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2508) ? (2508) : __LINE__, __FUNCTION__); + (2516) ? (2516) : __LINE__, __FUNCTION__); ; } ; @@ -25875,7 +26092,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[20] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2508:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2516:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[21] = 0; @@ -25896,7 +26113,7 @@ lab_endgetargs:; /*_.LET___V9*/ meltfptr[8] = /*_.IFCPP___V23*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:2482:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2490:/ clear"); /*clear *//*_.BODYL__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.EPIL__V11*/ meltfptr[10] = 0; @@ -25920,7 +26137,7 @@ lab_endgetargs:; /*clear *//*_.IF___V20*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V23*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2479:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25929,7 +26146,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-outobj.melt:2479:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26025,6 +26242,13 @@ meltrout_58_warmelt_outobj_OUTPUCOD_OBJLABELINSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_58_warmelt_outobj_OUTPUCOD_OBJLABELINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26040,7 +26264,7 @@ meltrout_58_warmelt_outobj_OUTPUCOD_OBJLABELINSTR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2517:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ getarg"); /*_.OBLAB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26078,7 +26302,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2518:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2526:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26090,7 +26314,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLABELINSTR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2518:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2526:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26098,7 +26322,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2518:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2526:/ cond.else"); /*^block */ /*anyblock */ @@ -26112,7 +26336,7 @@ lab_endgetargs:; melt_assert_failed (("check oblab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2518) ? (2518) : __LINE__, __FUNCTION__); + (2526) ? (2526) : __LINE__, __FUNCTION__); ; } ; @@ -26127,7 +26351,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2518:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2526:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -26140,20 +26364,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2519:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2527:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2520:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2528:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*objlabel*/ ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2521:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2529:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), 1, "OBLAB_PREFIX"); @@ -26171,7 +26395,7 @@ lab_endgetargs:; meltfptr[5]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:2522:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2530:/ quasiblock"); /*^getslot */ @@ -26182,7 +26406,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2523:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2531:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -26193,7 +26417,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2524:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2532:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), 2, "OBLAB_RANK"); @@ -26206,7 +26430,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.OBLAB_RANK__V9*/ meltfptr[8])));; { - MELT_LOCATION ("warmelt-outobj.melt:2524:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2532:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L3*/ meltfnum[1])); @@ -26214,7 +26438,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2523:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2531:/ clear"); /*clear *//*_.OBLAB_RANK__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_#GET_INT__L3*/ meltfnum[1] = 0; @@ -26223,11 +26447,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2522:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2530:/ clear"); /*clear *//*_.OBRANK__V8*/ meltfptr[7] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:2525:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2533:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (": ;")); @@ -26235,14 +26459,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2526:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2534:/ 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:2527:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26253,7 +26477,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2528:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2536:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26288,7 +26512,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2527:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -26296,7 +26520,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2527:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ cond.else"); /*^block */ /*anyblock */ @@ -26310,7 +26534,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2527) ? (2527) : __LINE__, __FUNCTION__); + (2535) ? (2535) : __LINE__, __FUNCTION__); ; } ; @@ -26325,7 +26549,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2527:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2535:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V11*/ meltfptr[7] = 0; @@ -26342,7 +26566,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2529:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2537:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLAB__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -26372,7 +26596,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2517:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26381,7 +26605,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.OUTPUT_LOCATION__V14*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-outobj.melt:2517:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26479,6 +26703,13 @@ meltrout_59_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_59_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26494,7 +26725,7 @@ meltrout_59_warmelt_outobj_OUTPUCOD_OBJGOTOINSTR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2536:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ getarg"); /*_.OBGOTO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26532,7 +26763,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2537:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2545:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26544,7 +26775,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OBGOTO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJGOTOINSTR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:2537:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2545:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26552,7 +26783,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2537:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2545:/ cond.else"); /*^block */ /*anyblock */ @@ -26566,7 +26797,7 @@ lab_endgetargs:; melt_assert_failed (("check obgoto"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2537) ? (2537) : __LINE__, __FUNCTION__); + (2545) ? (2545) : __LINE__, __FUNCTION__); ; } ; @@ -26581,7 +26812,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2537:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2545:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -26592,7 +26823,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2538:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2546:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBGOTO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -26624,13 +26855,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2539:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2547:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*objgoto*/ goto ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2540:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2548:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBGOTO__V2*/ meltfptr[1]), 1, "OBGOTO_PREFIX"); @@ -26648,7 +26879,7 @@ lab_endgetargs:; meltfptr[8]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:2541:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2549:/ quasiblock"); /*^getslot */ @@ -26659,7 +26890,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2542:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2550:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -26674,7 +26905,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OBRANK__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:2543:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2551:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L3*/ meltfnum[1])); @@ -26682,18 +26913,18 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2542:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2550:/ clear"); /*clear *//*_#GET_INT__L3*/ meltfnum[1] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2541:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2549:/ clear"); /*clear *//*_.OBRANK__V10*/ meltfptr[9] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:2544:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2552:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -26701,14 +26932,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2545:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2553:/ 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:2546:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2554:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26719,7 +26950,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2547:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2555:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26754,7 +26985,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2546:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2554:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -26762,7 +26993,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2546:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2554:/ cond.else"); /*^block */ /*anyblock */ @@ -26776,7 +27007,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2546) ? (2546) : __LINE__, __FUNCTION__); + (2554) ? (2554) : __LINE__, __FUNCTION__); ; } ; @@ -26791,7 +27022,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2546:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2554:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V12*/ meltfptr[11] = 0; @@ -26808,7 +27039,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2536:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26817,7 +27048,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V11*/ meltfptr[9];; { - MELT_LOCATION ("warmelt-outobj.melt:2536:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-outobj+03.c b/gcc/melt/generated/warmelt-outobj+03.c index 04e7b04b4ea..c4e5ecf8e65 100644 --- a/gcc/melt/generated/warmelt-outobj+03.c +++ b/gcc/melt/generated/warmelt-outobj+03.c @@ -2269,6 +2269,13 @@ meltrout_60_warmelt_outobj_ADD2SBUF_CLONSYM (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_60_warmelt_outobj_ADD2SBUF_CLONSYM_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2284,7 +2291,7 @@ meltrout_60_warmelt_outobj_ADD2SBUF_CLONSYM (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2553:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2305,7 +2312,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2554:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2562:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2316,7 +2323,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:2554:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2562:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2324,7 +2331,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2554:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2562:/ cond.else"); /*^block */ /*anyblock */ @@ -2338,7 +2345,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2554) ? (2554) : __LINE__, __FUNCTION__); + (2562) ? (2562) : __LINE__, __FUNCTION__); ; } ; @@ -2353,7 +2360,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2554:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2562:/ clear"); /*clear *//*_#IS_STRBUF__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -2366,7 +2373,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2555:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2563:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2378,7 +2385,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:2555:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2563:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2386,7 +2393,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2555:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2563:/ cond.else"); /*^block */ /*anyblock */ @@ -2400,7 +2407,7 @@ lab_endgetargs:; melt_assert_failed (("check csy"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2555) ? (2555) : __LINE__, __FUNCTION__); + (2563) ? (2563) : __LINE__, __FUNCTION__); ; } ; @@ -2415,7 +2422,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2555:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2563:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -2426,7 +2433,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2556:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2564:/ quasiblock"); /*^getslot */ @@ -2437,7 +2444,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2557:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2565:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CSY__V3*/ meltfptr[2]), 3, "CSYM_URANK"); @@ -2449,7 +2456,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.CSYM_URANK__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:2558:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2566:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), melt_string_str ((melt_ptr_t) ( /*_.CNAM__V9*/ @@ -2458,21 +2465,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2559:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2567:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ("_")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2560:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2568:/ 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:2561:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2569:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2482,7 +2489,7 @@ lab_endgetargs:; ; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]));; - MELT_LOCATION ("warmelt-outobj.melt:2562:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2570:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2517,7 +2524,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2561:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2569:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -2525,7 +2532,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2561:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2569:/ cond.else"); /*^block */ /*anyblock */ @@ -2539,7 +2546,7 @@ lab_endgetargs:; melt_assert_failed (("check limited sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2561) ? (2561) : __LINE__, __FUNCTION__); + (2569) ? (2569) : __LINE__, __FUNCTION__); ; } ; @@ -2554,7 +2561,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2561:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2569:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V12*/ meltfptr[11] = 0; @@ -2575,7 +2582,7 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[6] = /*_.IFCPP___V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-outobj.melt:2556:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2564:/ clear"); /*clear *//*_.CNAM__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.CSYM_URANK__V10*/ meltfptr[9] = 0; @@ -2583,7 +2590,7 @@ lab_endgetargs:; /*clear *//*_#RK__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFCPP___V11*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2553:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2592,7 +2599,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-outobj.melt:2553:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2685,6 +2692,13 @@ meltrout_61_warmelt_outobj_OUTPUCOD_OBJLOOP (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_61_warmelt_outobj_OUTPUCOD_OBJLOOP_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2700,7 +2714,7 @@ meltrout_61_warmelt_outobj_OUTPUCOD_OBJLOOP (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2566:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ getarg"); /*_.OBLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2738,7 +2752,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2567:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2575:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2750,7 +2764,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:2567:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2575:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2758,7 +2772,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2567:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2575:/ cond.else"); /*^block */ /*anyblock */ @@ -2772,7 +2786,7 @@ lab_endgetargs:; melt_assert_failed (("check oblo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2567) ? (2567) : __LINE__, __FUNCTION__); + (2575) ? (2575) : __LINE__, __FUNCTION__); ; } ; @@ -2787,7 +2801,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2567:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2575:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -2798,7 +2812,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2568:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2576:/ quasiblock"); /*^getslot */ @@ -2809,7 +2823,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2569:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2577:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 2, "OBLO_EPIL"); @@ -2817,7 +2831,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2570:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2578:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 3, "OBLOOP_LABEL"); @@ -2825,7 +2839,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2571:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2579:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBLO__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -2843,7 +2857,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2574:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2582:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2855,7 +2869,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:2574:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2582:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -2863,7 +2877,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2574:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2582:/ cond.else"); /*^block */ /*anyblock */ @@ -2877,7 +2891,7 @@ lab_endgetargs:; melt_assert_failed (("check lab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2574) ? (2574) : __LINE__, __FUNCTION__); + (2582) ? (2582) : __LINE__, __FUNCTION__); ; } ; @@ -2892,7 +2906,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2574:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2582:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -2903,7 +2917,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2575:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2583:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2927,13 +2941,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2576:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2584:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*loop*/{ labloop_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2577:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2585:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2953,19 +2967,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2578:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2586:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":;")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2579:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2587:/ 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:2579:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2587:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -2973,7 +2987,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2581:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2589:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3001,13 +3015,13 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2582:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2590:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L6*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2585:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2593:/ quasiblock"); /*^newclosure */ @@ -3066,7 +3080,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:2583:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2591:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3085,7 +3099,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2580:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2588:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = @@ -3095,7 +3109,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2579:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2587:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_#I__L6*/ meltfnum[5] = 0; @@ -3116,7 +3130,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2591:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2599:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -3126,20 +3140,20 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2592:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2600:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[5]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2593:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2601:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labloop_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2594:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2602:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3159,7 +3173,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2595:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2603:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -3169,20 +3183,20 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2596:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2604:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2597:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2605:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" labexit_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2598:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2606:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3202,19 +3216,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2599:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2607:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":;")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2600:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2608:/ 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:2600:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2608:/ cond"); /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3222,7 +3236,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2602:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2610:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3248,7 +3262,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2603:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2611:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -3259,13 +3273,13 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2604:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2612:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L10*/ meltfnum[9]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2607:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ quasiblock"); /*^newclosure */ @@ -3324,7 +3338,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V27*/ meltfptr[26] = /*_.LAMBDA___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-outobj.melt:2605:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2613:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3343,7 +3357,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2601:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2609:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = @@ -3353,7 +3367,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[20] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2600:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2608:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V26*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_#I__L10*/ meltfnum[9] = 0; @@ -3374,7 +3388,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2615:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2623:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -3382,14 +3396,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2616:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2624:/ 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:2617:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2625:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3400,7 +3414,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[9] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2618:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2626:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3435,7 +3449,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[12] = (( /*_#STRBUF_USEDLENGTH__L11*/ meltfnum[9]) < ( /*_#GET_INT__L12*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-outobj.melt:2617:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2625:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -3443,7 +3457,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2617:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2625:/ cond.else"); /*^block */ /*anyblock */ @@ -3457,7 +3471,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2617) ? (2617) : __LINE__, __FUNCTION__); + (2625) ? (2625) : __LINE__, __FUNCTION__); ; } ; @@ -3472,7 +3486,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[21] = /*_.IFELSE___V33*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2617:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2625:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L11*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[26] = 0; @@ -3493,7 +3507,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V31*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:2568:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2576:/ clear"); /*clear *//*_.BODYL__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.EPIL__V9*/ meltfptr[8] = 0; @@ -3529,7 +3543,7 @@ lab_endgetargs:; /*clear *//*_.IF___V25*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2566:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3538,7 +3552,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2566:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3626,6 +3640,13 @@ meltrout_62_warmelt_outobj_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_62_warmelt_outobj_LAMBDA___6___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3641,7 +3662,7 @@ meltrout_62_warmelt_outobj_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2585:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2593:/ getarg"); /*_.CURBODY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3651,13 +3672,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:2586:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2594:/ quasiblock"); /*_#DEPTHP1__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[0]))));; - MELT_LOCATION ("warmelt-outobj.melt:2587:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -3685,7 +3706,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = /*_#NOT__L4*/ meltfnum[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2587:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2595:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_#NOT__L4*/ meltfnum[3] = 0; @@ -3698,7 +3719,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2587:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2595:/ cond"); /*cond */ if ( /*_#IF___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3706,7 +3727,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2588:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3733,7 +3754,7 @@ lab_endgetargs:; /*_.IF___V3*/ meltfptr[2] = /*_.OUTPUT_C_CODE__V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2587:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2595:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = 0; } ; @@ -3746,7 +3767,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2589:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2597:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), (";")); @@ -3754,14 +3775,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2590:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2598:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), ( /*_#DEPTHP1__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2586:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2594:/ clear"); /*clear *//*_#DEPTHP1__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#IF___L2*/ meltfnum[1] = 0; @@ -3837,6 +3858,13 @@ meltrout_63_warmelt_outobj_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_63_warmelt_outobj_LAMBDA___7___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3852,7 +3880,7 @@ meltrout_63_warmelt_outobj_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2607:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ getarg"); /*_.CUREPIL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3862,13 +3890,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:2608:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2616:/ quasiblock"); /*_#DEPTHP1__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[0]))));; - MELT_LOCATION ("warmelt-outobj.melt:2609:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2617:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -3896,7 +3924,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = /*_#NOT__L4*/ meltfnum[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2609:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2617:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_#NOT__L4*/ meltfnum[3] = 0; @@ -3909,7 +3937,7 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2609:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2617:/ cond"); /*cond */ if ( /*_#IF___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3917,7 +3945,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2610:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2618:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3944,7 +3972,7 @@ lab_endgetargs:; /*_.IF___V3*/ meltfptr[2] = /*_.OUTPUT_C_CODE__V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2609:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2617:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = 0; } ; @@ -3957,7 +3985,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2611:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2619:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), (";")); @@ -3965,7 +3993,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2612:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2620:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3976,7 +4004,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:2613:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2621:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4011,7 +4039,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[2]) < ( /*_#GET_INT__L6*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2612:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2620:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -4019,7 +4047,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2612:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2620:/ cond.else"); /*^block */ /*anyblock */ @@ -4033,7 +4061,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2612) ? (2612) : __LINE__, __FUNCTION__); + (2620) ? (2620) : __LINE__, __FUNCTION__); ; } ; @@ -4048,7 +4076,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[3] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2612:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2620:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V6*/ meltfptr[5] = 0; @@ -4067,14 +4095,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2614:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2622:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[2])), ( /*_#DEPTHP1__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2608:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2616:/ clear"); /*clear *//*_#DEPTHP1__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#IF___L2*/ meltfnum[1] = 0; @@ -4155,6 +4183,13 @@ meltrout_64_warmelt_outobj_OUTPUCOD_OBJEXIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_64_warmelt_outobj_OUTPUCOD_OBJEXIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4170,7 +4205,7 @@ meltrout_64_warmelt_outobj_OUTPUCOD_OBJEXIT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2625:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ getarg"); /*_.OBXI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4208,7 +4243,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2626:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2634:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4220,7 +4255,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:2626:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2634:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4228,7 +4263,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2626:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2634:/ cond.else"); /*^block */ /*anyblock */ @@ -4242,7 +4277,7 @@ lab_endgetargs:; melt_assert_failed (("check obxi"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2626) ? (2626) : __LINE__, __FUNCTION__); + (2634) ? (2634) : __LINE__, __FUNCTION__); ; } ; @@ -4257,7 +4292,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2626:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2634:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -4268,7 +4303,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2627:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2635:/ quasiblock"); /*^getslot */ @@ -4279,7 +4314,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2628:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2636:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBXI__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -4289,7 +4324,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2630:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2638:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4301,7 +4336,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:2630:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2638:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4309,7 +4344,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2630:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2638:/ cond.else"); /*^block */ /*anyblock */ @@ -4323,7 +4358,7 @@ lab_endgetargs:; melt_assert_failed (("check olab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2630) ? (2630) : __LINE__, __FUNCTION__); + (2638) ? (2638) : __LINE__, __FUNCTION__); ; } ; @@ -4338,7 +4373,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2630:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2638:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -4349,7 +4384,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2631:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2639:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4373,7 +4408,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2632:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2640:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*exit*/{")); @@ -4381,20 +4416,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2633:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2641:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2634:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2642:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labexit_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2635:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2643:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4414,7 +4449,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2636:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2644:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";}")); @@ -4422,14 +4457,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2637:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2645:/ 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:2638:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2646:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4440,7 +4475,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2639:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2647:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4475,7 +4510,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2638:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2646:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -4483,7 +4518,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2638:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2646:/ cond.else"); /*^block */ /*anyblock */ @@ -4497,7 +4532,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2638) ? (2638) : __LINE__, __FUNCTION__); + (2646) ? (2646) : __LINE__, __FUNCTION__); ; } ; @@ -4512,7 +4547,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2638:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2646:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[14] = 0; @@ -4533,7 +4568,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V14*/ meltfptr[13];; - MELT_LOCATION ("warmelt-outobj.melt:2627:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2635:/ clear"); /*clear *//*_.OLAB__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.LOC__V9*/ meltfptr[8] = 0; @@ -4545,7 +4580,7 @@ lab_endgetargs:; /*clear *//*_.ADD2SBUF_CLONSYM__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2625:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4554,7 +4589,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2625:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4645,6 +4680,13 @@ meltrout_65_warmelt_outobj_OUTPUCOD_OBJAGAIN (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_65_warmelt_outobj_OUTPUCOD_OBJAGAIN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 16; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4660,7 +4702,7 @@ meltrout_65_warmelt_outobj_OUTPUCOD_OBJAGAIN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2645:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ getarg"); /*_.OBAG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4698,7 +4740,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2646:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2654:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4710,7 +4752,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:2646:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2654:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4718,7 +4760,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2646:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2654:/ cond.else"); /*^block */ /*anyblock */ @@ -4732,7 +4774,7 @@ lab_endgetargs:; melt_assert_failed (("check obag"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2646) ? (2646) : __LINE__, __FUNCTION__); + (2654) ? (2654) : __LINE__, __FUNCTION__); ; } ; @@ -4747,7 +4789,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2646:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2654:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -4758,7 +4800,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2647:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2655:/ quasiblock"); /*^getslot */ @@ -4769,7 +4811,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2648:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2656:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBAG__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -4779,7 +4821,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2650:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2658:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4791,7 +4833,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:2650:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2658:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4799,7 +4841,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2650:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2658:/ cond.else"); /*^block */ /*anyblock */ @@ -4813,7 +4855,7 @@ lab_endgetargs:; melt_assert_failed (("check olab"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2650) ? (2650) : __LINE__, __FUNCTION__); + (2658) ? (2658) : __LINE__, __FUNCTION__); ; } ; @@ -4828,7 +4870,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2650:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2658:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -4839,7 +4881,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2651:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2659:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4863,7 +4905,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2652:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2660:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*again*/{")); @@ -4871,20 +4913,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2653:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2661:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2654:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2662:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" goto labloop_")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2655:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2663:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4904,7 +4946,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2656:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2664:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";}")); @@ -4912,14 +4954,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2657:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2665:/ 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:2658:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2666:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4930,7 +4972,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2659:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2667:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4965,7 +5007,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2658:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2666:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -4973,7 +5015,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2658:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2666:/ cond.else"); /*^block */ /*anyblock */ @@ -4987,7 +5029,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2658) ? (2658) : __LINE__, __FUNCTION__); + (2666) ? (2666) : __LINE__, __FUNCTION__); ; } ; @@ -5002,7 +5044,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2658:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2666:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V15*/ meltfptr[14] = 0; @@ -5023,7 +5065,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V14*/ meltfptr[13];; - MELT_LOCATION ("warmelt-outobj.melt:2647:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2655:/ clear"); /*clear *//*_.OLAB__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.LOC__V9*/ meltfptr[8] = 0; @@ -5035,7 +5077,7 @@ lab_endgetargs:; /*clear *//*_.ADD2SBUF_CLONSYM__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V14*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2645:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5044,7 +5086,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2645:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5135,6 +5177,13 @@ meltrout_66_warmelt_outobj_OUTPUCOD_OBJCOMPUTE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_66_warmelt_outobj_OUTPUCOD_OBJCOMPUTE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 31; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5150,7 +5199,7 @@ meltrout_66_warmelt_outobj_OUTPUCOD_OBJCOMPUTE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2664:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ getarg"); /*_.OBCOMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5188,7 +5237,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2665:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5200,7 +5249,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:2665:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5208,7 +5257,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2665:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ cond.else"); /*^block */ /*anyblock */ @@ -5222,7 +5271,7 @@ lab_endgetargs:; melt_assert_failed (("check obcomp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2665) ? (2665) : __LINE__, __FUNCTION__); + (2673) ? (2673) : __LINE__, __FUNCTION__); ; } ; @@ -5237,7 +5286,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2665:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2673:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -5248,7 +5297,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2666:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2674:/ quasiblock"); /*^getslot */ @@ -5259,7 +5308,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2667:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2675:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCOMP__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -5267,7 +5316,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2668:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2676:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBCOMP__V2*/ meltfptr[1]), 2, "OBCPT_EXPR"); @@ -5283,7 +5332,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2671:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2679:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5305,13 +5354,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2672:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2680:/ 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:2672:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2680:/ cond"); /*cond */ if ( /*_#IS_LIST__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -5319,7 +5368,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2675:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ quasiblock"); /*^newclosure */ @@ -5378,7 +5427,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V11*/ meltfptr[10]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2673:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2681:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5400,7 +5449,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = /*_.LIST_EVERY__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2672:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2680:/ clear"); /*clear *//*_.LAMBDA___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LIST_EVERY__V16*/ meltfptr[15] = 0; @@ -5413,13 +5462,13 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2679:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ 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:2679:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -5427,7 +5476,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2680:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2688:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#LIST_LENGTH__L6*/ meltfnum[5] = @@ -5436,7 +5485,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#LIST_LENGTH__L6*/ meltfnum[5]) > (2));; - MELT_LOCATION ("warmelt-outobj.melt:2680:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2688:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5448,7 +5497,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2681:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2689:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -5456,13 +5505,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2680:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2688:/ clear"); /*clear *//*_#I__L8*/ meltfnum[7] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2684:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ quasiblock"); /*^newclosure */ @@ -5521,7 +5570,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V11*/ meltfptr[10]); ; /*_.LAMBDA___V18*/ meltfptr[15] = /*_.LAMBDA___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:2682:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5540,7 +5589,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2679:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = @@ -5550,7 +5599,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[13] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2679:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ clear"); /*clear *//*_#LIST_LENGTH__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#I__L7*/ meltfnum[6] = 0; @@ -5570,13 +5619,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2689:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2697:/ 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:2689:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2697:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -5584,7 +5633,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2690:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2698:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L10*/ meltfnum[5] = @@ -5594,7 +5643,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[6] = (( /*_#MULTIPLE_LENGTH__L10*/ meltfnum[5]) > (2));; - MELT_LOCATION ("warmelt-outobj.melt:2690:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2698:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5606,7 +5655,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2691:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2699:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -5616,13 +5665,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2690:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2698:/ clear"); /*clear *//*_#I__L12*/ meltfnum[11] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2694:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ quasiblock"); /*^newclosure */ @@ -5684,7 +5733,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V23*/ meltfptr[19] = /*_.LAMBDA___V24*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:2692:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2700:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5704,7 +5753,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2689:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2697:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = @@ -5715,7 +5764,7 @@ lab_endgetargs:; /*_.PROGN___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2689:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2697:/ clear"); /*clear *//*_#MULTIPLE_LENGTH__L10*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#I__L11*/ meltfnum[6] = 0; @@ -5737,7 +5786,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[11] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2700:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2708:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5762,7 +5811,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2699:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2707:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[24] = @@ -5773,7 +5822,7 @@ lab_endgetargs:; /*_.PROGN___V28*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2689:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2697:/ clear"); /*clear *//*_#I__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V27*/ meltfptr[19] = 0; @@ -5786,7 +5835,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[13] = /*_.IFELSE___V22*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2679:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2687:/ clear"); /*clear *//*_#IS_MULTIPLE__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V22*/ meltfptr[15] = 0; @@ -5796,7 +5845,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2702:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2710:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -5804,7 +5853,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2703:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2711:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5815,7 +5864,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2704:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2712:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5850,7 +5899,7 @@ lab_endgetargs:; /*_#I__L16*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[5]) < ( /*_#GET_INT__L15*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:2703:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2711:/ cond"); /*cond */ if ( /*_#I__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -5858,7 +5907,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2703:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2711:/ cond.else"); /*^block */ /*anyblock */ @@ -5872,7 +5921,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2703) ? (2703) : __LINE__, __FUNCTION__); + (2711) ? (2711) : __LINE__, __FUNCTION__); ; } ; @@ -5887,7 +5936,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[25] = /*_.IFELSE___V31*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2703:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2711:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L14*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V30*/ meltfptr[19] = 0; @@ -5908,7 +5957,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V29*/ meltfptr[25];; - MELT_LOCATION ("warmelt-outobj.melt:2666:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2674:/ clear"); /*clear *//*_.CDEST__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CLOC__V9*/ meltfptr[8] = 0; @@ -5930,7 +5979,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V29*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2664:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5939,7 +5988,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2664:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6027,6 +6076,13 @@ meltrout_67_warmelt_outobj_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_67_warmelt_outobj_LAMBDA___8___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6042,7 +6098,7 @@ meltrout_67_warmelt_outobj_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2675:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ getarg"); /*_.DESTCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6055,7 +6111,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2676:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2684:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6081,26 +6137,26 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2677:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2685:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2675:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V4*/ meltfptr[3] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:2675:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETVAL___V4*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-outobj.melt:2675:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6191,6 +6247,13 @@ meltrout_68_warmelt_outobj_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_68_warmelt_outobj_LAMBDA___9___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6206,7 +6269,7 @@ meltrout_68_warmelt_outobj_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2684:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ getarg"); /*_.EXPCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6219,7 +6282,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2685:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6245,7 +6308,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2686:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6256,7 +6319,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2687:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2695:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6291,7 +6354,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2686:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -6299,7 +6362,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2686:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ cond.else"); /*^block */ /*anyblock */ @@ -6313,7 +6376,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2686) ? (2686) : __LINE__, __FUNCTION__); + (2694) ? (2694) : __LINE__, __FUNCTION__); ; } ; @@ -6328,7 +6391,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2686:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2694:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -6345,7 +6408,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2684:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6354,7 +6417,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V4*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-outobj.melt:2684:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6445,6 +6508,13 @@ meltrout_69_warmelt_outobj_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_69_warmelt_outobj_LAMBDA___10___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6460,7 +6530,7 @@ meltrout_69_warmelt_outobj_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2694:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ getarg"); /*_.EXPCUR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6473,7 +6543,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2695:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2703:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6499,7 +6569,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2696:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2704:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6510,7 +6580,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2697:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2705:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6545,7 +6615,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2696:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2704:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -6553,7 +6623,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2696:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2704:/ cond.else"); /*^block */ /*anyblock */ @@ -6567,7 +6637,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2696) ? (2696) : __LINE__, __FUNCTION__); + (2704) ? (2704) : __LINE__, __FUNCTION__); ; } ; @@ -6582,7 +6652,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2696:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2704:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -6599,7 +6669,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2694:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6608,7 +6678,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V4*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-outobj.melt:2694:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6701,6 +6771,13 @@ meltrout_70_warmelt_outobj_OUTPUCOD_OBJCOND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_70_warmelt_outobj_OUTPUCOD_OBJCOND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6716,7 +6793,7 @@ meltrout_70_warmelt_outobj_OUTPUCOD_OBJCOND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2710:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ getarg"); /*_.OCOND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6754,7 +6831,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2711:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2719:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6766,7 +6843,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:2711:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2719:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6774,7 +6851,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2711:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2719:/ cond.else"); /*^block */ /*anyblock */ @@ -6788,7 +6865,7 @@ lab_endgetargs:; melt_assert_failed (("check ocond"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2711) ? (2711) : __LINE__, __FUNCTION__); + (2719) ? (2719) : __LINE__, __FUNCTION__); ; } ; @@ -6803,7 +6880,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2711:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2719:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -6814,7 +6891,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2712:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2720:/ quasiblock"); /*^getslot */ @@ -6825,7 +6902,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2713:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2721:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), 1, "OBCOND_TEST"); @@ -6833,7 +6910,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2714:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2722:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), 2, "OBCOND_THEN"); @@ -6841,7 +6918,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2715:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2723:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCOND__V2*/ meltfptr[1]), 3, "OBCOND_ELSE"); @@ -6851,7 +6928,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2717:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2725:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6861,7 +6938,7 @@ lab_endgetargs:; ; /*_#NOTNULL__L3*/ meltfnum[1] = (( /*_.CTEST__V9*/ meltfptr[8]) != NULL);; - MELT_LOCATION ("warmelt-outobj.melt:2717:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2725:/ cond"); /*cond */ if ( /*_#NOTNULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6869,7 +6946,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2717:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2725:/ cond.else"); /*^block */ /*anyblock */ @@ -6883,7 +6960,7 @@ lab_endgetargs:; melt_assert_failed (("check ctest"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2717) ? (2717) : __LINE__, __FUNCTION__); + (2725) ? (2725) : __LINE__, __FUNCTION__); ; } ; @@ -6898,7 +6975,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2717:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2725:/ clear"); /*clear *//*_#NOTNULL__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -6909,7 +6986,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2718:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2726:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6933,7 +7010,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2719:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2727:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*cond*/ if (")); @@ -6941,7 +7018,7 @@ lab_endgetargs:; ; /*_#I__L4*/ meltfnum[1] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2720:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6965,7 +7042,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2721:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2729:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") /*then*/ {")); @@ -6973,12 +7050,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2722:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2730:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2723:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2731:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -7005,7 +7082,7 @@ lab_endgetargs:; /*_#IF___L5*/ meltfnum[4] = /*_#NOT__L7*/ meltfnum[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2723:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2731:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#NOT__L7*/ meltfnum[6] = 0; @@ -7018,7 +7095,7 @@ lab_endgetargs:; /*_#IF___L5*/ meltfnum[4] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2723:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2731:/ cond"); /*cond */ if ( /*_#IF___L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -7026,7 +7103,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2725:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2733:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7052,7 +7129,7 @@ lab_endgetargs:; ; /*_#I__L8*/ meltfnum[5] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2726:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2734:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7078,7 +7155,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2727:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2735:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -7086,18 +7163,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2728:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2736:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2724:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2732:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2723:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2731:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_#I__L8*/ meltfnum[5] = 0; @@ -7107,7 +7184,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2731:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2739:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -7135,7 +7212,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[6] = /*_#NOT__L11*/ meltfnum[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2731:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2739:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[10] = 0; @@ -7148,7 +7225,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[6] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:2731:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2739:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -7158,14 +7235,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2733:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2741:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("} else {")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2734:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2742:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7193,7 +7270,7 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2735:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2743:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L12*/ meltfnum[5]), 0); @@ -7201,7 +7278,7 @@ lab_endgetargs:; ; /*_#I__L13*/ meltfnum[10] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2736:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2744:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7227,7 +7304,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2737:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2745:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -7237,7 +7314,7 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2738:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2746:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13]), 0); @@ -7245,18 +7322,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2739:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2747:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2732:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2740:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2731:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2739:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V18*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_#I__L12*/ meltfnum[5] = 0; @@ -7278,7 +7355,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2741:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2749:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -7292,14 +7369,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2743:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2751:/ 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:2744:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2752:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7310,7 +7387,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2745:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2753:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7345,7 +7422,7 @@ lab_endgetargs:; /*_#I__L17*/ meltfnum[13] = (( /*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5]) < ( /*_#GET_INT__L16*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:2744:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2752:/ cond"); /*cond */ if ( /*_#I__L17*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -7353,7 +7430,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2744:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2752:/ cond.else"); /*^block */ /*anyblock */ @@ -7367,7 +7444,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2744) ? (2744) : __LINE__, __FUNCTION__); + (2752) ? (2752) : __LINE__, __FUNCTION__); ; } ; @@ -7382,7 +7459,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[15] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2744:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2752:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L15*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V21*/ meltfptr[16] = 0; @@ -7403,7 +7480,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V20*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:2712:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2720:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CTEST__V9*/ meltfptr[8] = 0; @@ -7425,7 +7502,7 @@ lab_endgetargs:; /*clear *//*_#IF___L9*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFCPP___V20*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2710:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -7434,7 +7511,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2710:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7525,6 +7602,13 @@ meltrout_71_warmelt_outobj_OUTPUCOD_OBJCPPIF (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_71_warmelt_outobj_OUTPUCOD_OBJCPPIF_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7540,7 +7624,7 @@ meltrout_71_warmelt_outobj_OUTPUCOD_OBJCPPIF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2752:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ getarg"); /*_.OPIF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7578,7 +7662,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2753:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2761:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7590,7 +7674,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:2753:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2761:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7598,7 +7682,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2753:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2761:/ cond.else"); /*^block */ /*anyblock */ @@ -7612,7 +7696,7 @@ lab_endgetargs:; melt_assert_failed (("check opif"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2753) ? (2753) : __LINE__, __FUNCTION__); + (2761) ? (2761) : __LINE__, __FUNCTION__); ; } ; @@ -7627,7 +7711,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2753:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2761:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -7638,7 +7722,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2754:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2762:/ quasiblock"); /*^getslot */ @@ -7649,7 +7733,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2755:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2763:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), 1, "OBIFP_COND"); @@ -7657,7 +7741,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2756:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2764:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), 2, "OBIFP_THEN"); @@ -7665,7 +7749,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2757:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2765:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPIF__V2*/ meltfptr[1]), 3, "OBIFP_ELSE"); @@ -7677,7 +7761,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2760:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2768:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7688,7 +7772,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:2760:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2768:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -7696,7 +7780,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2760:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2768:/ cond.else"); /*^block */ /*anyblock */ @@ -7710,7 +7794,7 @@ lab_endgetargs:; melt_assert_failed (("check ccond"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2760) ? (2760) : __LINE__, __FUNCTION__); + (2768) ? (2768) : __LINE__, __FUNCTION__); ; } ; @@ -7725,7 +7809,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2760:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2768:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -7736,7 +7820,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2761:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2769:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7760,7 +7844,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2762:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2770:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#if ")); @@ -7768,7 +7852,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2763:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2771:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -7777,12 +7861,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2764:/ 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:2765:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2773:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7804,7 +7888,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2766:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2774:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7828,14 +7912,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2767:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2775:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2768:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2776:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#else /*")); @@ -7843,7 +7927,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2769:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2777:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -7852,7 +7936,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2770:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2778:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -7860,12 +7944,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2771:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2779:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2772:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2780:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7887,7 +7971,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2773:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2781:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7911,14 +7995,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2774:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2782:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTHP1__L3*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2775:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2783:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#endif /*")); @@ -7926,7 +8010,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2776:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2784:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -7935,7 +8019,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2777:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2785:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -7943,14 +8027,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2778:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2786:/ 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:2779:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2787:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7961,7 +8045,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2780:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2788:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7996,7 +8080,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2779:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2787:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -8004,7 +8088,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2779:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2787:/ cond.else"); /*^block */ /*anyblock */ @@ -8018,7 +8102,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2779) ? (2779) : __LINE__, __FUNCTION__); + (2787) ? (2787) : __LINE__, __FUNCTION__); ; } ; @@ -8033,7 +8117,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2779:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2787:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V20*/ meltfptr[19] = 0; @@ -8054,7 +8138,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:2754:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2762:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CCOND__V9*/ meltfptr[8] = 0; @@ -8078,7 +8162,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2752:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8087,7 +8171,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2752:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8182,6 +8266,13 @@ meltrout_72_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_72_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8197,7 +8288,7 @@ meltrout_72_warmelt_outobj_OUTPUCOD_OBJINTERNSYMBOL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2785:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ getarg"); /*_.OISY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8235,7 +8326,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2786:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2794:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8247,7 +8338,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:2786:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2794:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8255,7 +8346,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2786:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2794:/ cond.else"); /*^block */ /*anyblock */ @@ -8269,7 +8360,7 @@ lab_endgetargs:; melt_assert_failed (("check oisy"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2786) ? (2786) : __LINE__, __FUNCTION__); + (2794) ? (2794) : __LINE__, __FUNCTION__); ; } ; @@ -8284,7 +8375,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2786:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2794:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8295,7 +8386,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2787:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2795:/ quasiblock"); /*^getslot */ @@ -8306,7 +8397,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2788:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2796:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OISY__V2*/ meltfptr[1]), 1, "OBINTERN_IOBJ"); @@ -8314,7 +8405,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2789:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2797:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -8322,7 +8413,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2790:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2798:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -8332,7 +8423,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2792:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2800:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8344,7 +8435,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:2792:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2800:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8352,7 +8443,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2792:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2800:/ cond.else"); /*^block */ /*anyblock */ @@ -8366,7 +8457,7 @@ lab_endgetargs:; melt_assert_failed (("check oiobj"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2792) ? (2792) : __LINE__, __FUNCTION__); + (2800) ? (2800) : __LINE__, __FUNCTION__); ; } ; @@ -8381,7 +8472,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2792:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2800:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -8394,7 +8485,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2793:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2801:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8406,7 +8497,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:2793:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2801:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8414,7 +8505,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2793:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2801:/ cond.else"); /*^block */ /*anyblock */ @@ -8428,7 +8519,7 @@ lab_endgetargs:; melt_assert_failed (("check oidat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2793) ? (2793) : __LINE__, __FUNCTION__); + (2801) ? (2801) : __LINE__, __FUNCTION__); ; } ; @@ -8443,7 +8534,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2793:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2801:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -8454,7 +8545,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2794:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2802:/ quasiblock"); /*^getslot */ @@ -8465,7 +8556,7 @@ lab_endgetargs:; meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2795:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2803:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8476,7 +8567,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2795:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2803:/ cond.else"); /*^block */ /*anyblock */ @@ -8493,7 +8584,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[16] = /*_.NREP_LOC__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2795:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2803:/ clear"); /*clear *//*_.NREP_LOC__V18*/ meltfptr[17] = 0; } ; @@ -8523,7 +8614,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2796:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2804:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*internsym:")); @@ -8531,7 +8622,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2797:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2805:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -8540,7 +8631,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2798:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2806:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -8548,20 +8639,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2799:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2807:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2800:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2808:/ 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:2801:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2809:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -8585,7 +8676,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2802:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2810:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -8593,13 +8684,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2803:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2811:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2794:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2802:/ clear"); /*clear *//*_.NSY__V16*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -8609,7 +8700,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2804:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2812:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8620,7 +8711,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2805:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2813:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8655,7 +8746,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:2804:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2812:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -8663,7 +8754,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2804:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2812:/ cond.else"); /*^block */ /*anyblock */ @@ -8677,7 +8768,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2804) ? (2804) : __LINE__, __FUNCTION__); + (2812) ? (2812) : __LINE__, __FUNCTION__); ; } ; @@ -8692,7 +8783,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[14] = /*_.IFELSE___V23*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2804:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2812:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[16] = 0; @@ -8713,7 +8804,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2787:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2795:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -8727,7 +8818,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2785:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8736,7 +8827,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2785:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8831,6 +8922,13 @@ meltrout_73_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_73_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8846,7 +8944,7 @@ meltrout_73_warmelt_outobj_OUTPUCOD_OBJINTERNKEYWORD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2810:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ getarg"); /*_.OIKW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8884,7 +8982,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2811:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2819:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8896,7 +8994,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:2811:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2819:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8904,7 +9002,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2811:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2819:/ cond.else"); /*^block */ /*anyblock */ @@ -8918,7 +9016,7 @@ lab_endgetargs:; melt_assert_failed (("check oikw"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2811) ? (2811) : __LINE__, __FUNCTION__); + (2819) ? (2819) : __LINE__, __FUNCTION__); ; } ; @@ -8933,7 +9031,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2811:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2819:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8944,7 +9042,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2812:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2820:/ quasiblock"); /*^getslot */ @@ -8955,7 +9053,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2813:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2821:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIKW__V2*/ meltfptr[1]), 1, "OBINTERN_IOBJ"); @@ -8963,7 +9061,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2814:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2822:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -8971,7 +9069,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2815:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2823:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -8981,7 +9079,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2817:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2825:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8993,7 +9091,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:2817:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2825:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9001,7 +9099,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2817:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2825:/ cond.else"); /*^block */ /*anyblock */ @@ -9015,7 +9113,7 @@ lab_endgetargs:; melt_assert_failed (("check oidat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2817) ? (2817) : __LINE__, __FUNCTION__); + (2825) ? (2825) : __LINE__, __FUNCTION__); ; } ; @@ -9030,7 +9128,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2817:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2825:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -9041,7 +9139,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2818:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2826:/ quasiblock"); /*^getslot */ @@ -9052,7 +9150,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2819:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2827:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -9063,7 +9161,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2819:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2827:/ cond.else"); /*^block */ /*anyblock */ @@ -9080,7 +9178,7 @@ lab_endgetargs:; /*_.IFELSE___V15*/ meltfptr[14] = /*_.NREP_LOC__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2819:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2827:/ clear"); /*clear *//*_.NREP_LOC__V16*/ meltfptr[15] = 0; } ; @@ -9110,7 +9208,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2820:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2828:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*internkeyw:")); @@ -9118,7 +9216,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2821:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2829:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9127,7 +9225,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2822:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2830:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -9135,20 +9233,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2823:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2831:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2824:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2832:/ 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:2825:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2833:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9172,7 +9270,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2826:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2834:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -9180,13 +9278,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2827:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2835:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2818:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2826:/ clear"); /*clear *//*_.NSY__V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -9196,7 +9294,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2828:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2836:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9207,7 +9305,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2829:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2837:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9242,7 +9340,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:2828:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2836:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -9250,7 +9348,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2828:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2836:/ cond.else"); /*^block */ /*anyblock */ @@ -9264,7 +9362,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2828) ? (2828) : __LINE__, __FUNCTION__); + (2836) ? (2836) : __LINE__, __FUNCTION__); ; } ; @@ -9279,7 +9377,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[12] = /*_.IFELSE___V21*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2828:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2836:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V20*/ meltfptr[14] = 0; @@ -9300,7 +9398,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V19*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:2812:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2820:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -9312,7 +9410,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[12] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2810:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9321,7 +9419,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2810:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9416,6 +9514,13 @@ meltrout_74_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_74_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9431,7 +9536,7 @@ meltrout_74_warmelt_outobj_OUTPUCOD_OBJGETNAMEDSYMBOL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2834:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ getarg"); /*_.OGSY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9469,7 +9574,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2835:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9481,7 +9586,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:2835:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9489,7 +9594,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2835:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ cond.else"); /*^block */ /*anyblock */ @@ -9503,7 +9608,7 @@ lab_endgetargs:; melt_assert_failed (("check ogsy"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2835) ? (2835) : __LINE__, __FUNCTION__); + (2843) ? (2843) : __LINE__, __FUNCTION__); ; } ; @@ -9518,7 +9623,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2835:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2843:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -9529,7 +9634,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2836:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2844:/ quasiblock"); /*^getslot */ @@ -9540,7 +9645,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2837:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2845:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSY__V2*/ meltfptr[1]), 1, "OBGNAMED_IOBJ"); @@ -9548,7 +9653,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2838:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2846:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -9556,7 +9661,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2839:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2847:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -9566,7 +9671,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2841:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2849:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9578,7 +9683,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:2841:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2849:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9586,7 +9691,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2841:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2849:/ cond.else"); /*^block */ /*anyblock */ @@ -9600,7 +9705,7 @@ lab_endgetargs:; melt_assert_failed (("check oiobj"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2841) ? (2841) : __LINE__, __FUNCTION__); + (2849) ? (2849) : __LINE__, __FUNCTION__); ; } ; @@ -9615,7 +9720,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2841:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2849:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -9628,7 +9733,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2842:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2850:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9640,7 +9745,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:2842:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2850:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9648,7 +9753,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2842:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2850:/ cond.else"); /*^block */ /*anyblock */ @@ -9662,7 +9767,7 @@ lab_endgetargs:; melt_assert_failed (("check ogdat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2842) ? (2842) : __LINE__, __FUNCTION__); + (2850) ? (2850) : __LINE__, __FUNCTION__); ; } ; @@ -9677,7 +9782,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2842:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2850:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -9688,7 +9793,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2843:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2851:/ quasiblock"); /*^getslot */ @@ -9699,7 +9804,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2845:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2853:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -9710,7 +9815,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2845:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2853:/ cond.else"); /*^block */ /*anyblock */ @@ -9727,7 +9832,7 @@ lab_endgetargs:; /*_.IFELSE___V18*/ meltfptr[17] = /*_.NREP_LOC__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2845:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2853:/ clear"); /*clear *//*_.NREP_LOC__V19*/ meltfptr[18] = 0; } ; @@ -9757,7 +9862,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2846:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2854:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*getnamedsym:")); @@ -9765,7 +9870,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2847:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2855:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9774,7 +9879,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2848:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2856:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -9782,14 +9887,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2849:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2857:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2850:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2858:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ melt_ptr_t sy_")); @@ -9797,7 +9902,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2851:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2859:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NSY__V17*/ @@ -9806,7 +9911,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2852:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2860:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = meltgc_named_symbol(\"")); @@ -9814,7 +9919,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2853:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2861:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -9823,7 +9928,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2854:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2862:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", MELT_GET);")); @@ -9833,14 +9938,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2855:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2863:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2856:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2864:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (sy_")); @@ -9848,7 +9953,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2857:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2865:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NSY__V17*/ @@ -9857,7 +9962,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2858:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2866:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" && NULL == ")); @@ -9865,7 +9970,7 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[5] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2859:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2867:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9889,7 +9994,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2860:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2868:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")")); @@ -9899,14 +10004,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2861:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2869:/ 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:2862:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2870:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -9930,7 +10035,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2863:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2871:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = (melt_ptr_t) sy_")); @@ -9938,7 +10043,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2864:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2872:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NSY__V17*/ @@ -9947,7 +10052,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2865:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2873:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("; }")); @@ -9955,14 +10060,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2866:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2874:/ 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:2867:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2875:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9973,7 +10078,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[8] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2868:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2876:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10008,7 +10113,7 @@ lab_endgetargs:; /*_#I__L11*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L9*/ meltfnum[8]) < ( /*_#GET_INT__L10*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:2867:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2875:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -10016,7 +10121,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2867:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2875:/ cond.else"); /*^block */ /*anyblock */ @@ -10030,7 +10135,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2867) ? (2867) : __LINE__, __FUNCTION__); + (2875) ? (2875) : __LINE__, __FUNCTION__); ; } ; @@ -10045,7 +10150,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2867:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2875:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[23] = 0; @@ -10066,7 +10171,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[14] = /*_.IFCPP___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:2843:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2851:/ clear"); /*clear *//*_.NSY__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -10088,7 +10193,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2836:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2844:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -10102,7 +10207,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LET___V16*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2834:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10111,7 +10216,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2834:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10207,6 +10312,13 @@ meltrout_75_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD (meltclosure_ptr_t (struct frame_meltrout_75_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 24; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10222,7 +10334,7 @@ meltrout_75_warmelt_outobj_OUTPUCOD_OBJGETNAMEDKEYWORD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2873:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ getarg"); /*_.OGKW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10260,7 +10372,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2874:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2882:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10272,7 +10384,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:2874:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2882:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10280,7 +10392,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2874:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2882:/ cond.else"); /*^block */ /*anyblock */ @@ -10294,7 +10406,7 @@ lab_endgetargs:; melt_assert_failed (("check ogkw"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2874) ? (2874) : __LINE__, __FUNCTION__); + (2882) ? (2882) : __LINE__, __FUNCTION__); ; } ; @@ -10309,7 +10421,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2874:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2882:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -10320,7 +10432,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2875:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2883:/ quasiblock"); /*^getslot */ @@ -10331,7 +10443,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2876:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2884:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGKW__V2*/ meltfptr[1]), 1, "OBGNAMED_IOBJ"); @@ -10339,7 +10451,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2877:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2885:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 2, "OIE_DATA"); @@ -10347,7 +10459,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2878:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2886:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OIOBJ__V9*/ meltfptr[8]), 4, "OIE_LOCVAR"); @@ -10357,7 +10469,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2880:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2888:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10369,7 +10481,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:2880:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2888:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10377,7 +10489,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2880:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2888:/ cond.else"); /*^block */ /*anyblock */ @@ -10391,7 +10503,7 @@ lab_endgetargs:; melt_assert_failed (("check oiobj"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2880) ? (2880) : __LINE__, __FUNCTION__); + (2888) ? (2888) : __LINE__, __FUNCTION__); ; } ; @@ -10406,7 +10518,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2880:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2888:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -10419,7 +10531,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2881:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2889:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10431,7 +10543,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:2881:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2889:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10439,7 +10551,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2881:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2889:/ cond.else"); /*^block */ /*anyblock */ @@ -10453,7 +10565,7 @@ lab_endgetargs:; melt_assert_failed (("check ogdat"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2881) ? (2881) : __LINE__, __FUNCTION__); + (2889) ? (2889) : __LINE__, __FUNCTION__); ; } ; @@ -10468,7 +10580,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2881:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2889:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -10479,7 +10591,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2882:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2890:/ quasiblock"); /*^getslot */ @@ -10490,7 +10602,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2883:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2891:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10501,7 +10613,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2883:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2891:/ cond.else"); /*^block */ /*anyblock */ @@ -10518,7 +10630,7 @@ lab_endgetargs:; /*_.IFELSE___V18*/ meltfptr[17] = /*_.NREP_LOC__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2883:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2891:/ clear"); /*clear *//*_.NREP_LOC__V19*/ meltfptr[18] = 0; } ; @@ -10548,7 +10660,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2884:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2892:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*getnamedkeyw:")); @@ -10556,7 +10668,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2885:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2893:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10565,7 +10677,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2886:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2894:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -10573,14 +10685,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2887:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2895:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2888:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2896:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ melt_ptr_t kw_")); @@ -10588,7 +10700,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2889:/ 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*/ @@ -10597,7 +10709,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2890:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2898:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = meltgc_named_keyword(\"")); @@ -10605,7 +10717,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2891:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2899:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -10614,7 +10726,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2892:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2900:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", MELT_GET);")); @@ -10624,14 +10736,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2893:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2901:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[1]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2894:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2902:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (kw_")); @@ -10639,7 +10751,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2895:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2903:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NKW__V17*/ @@ -10648,7 +10760,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2896:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2904:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") ")); @@ -10656,7 +10768,7 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[5] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:2897:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2905:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -10680,7 +10792,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2898:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2906:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = (melt_ptr_t) kw_")); @@ -10688,7 +10800,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2899:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2907:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.NKW__V17*/ @@ -10697,7 +10809,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2900:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2908:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("; }")); @@ -10705,14 +10817,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2901:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2909:/ 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:2902:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2910:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10723,7 +10835,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2903:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2911:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10758,7 +10870,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:2902:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2910:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -10766,7 +10878,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2902:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2910:/ cond.else"); /*^block */ /*anyblock */ @@ -10780,7 +10892,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2902) ? (2902) : __LINE__, __FUNCTION__); + (2910) ? (2910) : __LINE__, __FUNCTION__); ; } ; @@ -10795,7 +10907,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2902:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2910:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V23*/ meltfptr[22] = 0; @@ -10816,7 +10928,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[14] = /*_.IFCPP___V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:2882:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2890:/ clear"); /*clear *//*_.NKW__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -10832,7 +10944,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V22*/ meltfptr[21] = 0; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V16*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:2875:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2883:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OIOBJ__V9*/ meltfptr[8] = 0; @@ -10846,7 +10958,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LET___V16*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2873:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10855,7 +10967,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2873:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10946,6 +11058,13 @@ meltrout_76_warmelt_outobj_OUTPUCOD_OBJAPPLY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_76_warmelt_outobj_OUTPUCOD_OBJAPPLY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 46; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10961,7 +11080,7 @@ meltrout_76_warmelt_outobj_OUTPUCOD_OBJAPPLY (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2909:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ getarg"); /*_.OAPP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10999,7 +11118,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2910:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2918:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11011,7 +11130,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:2910:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2918:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11019,7 +11138,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2910:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2918:/ cond.else"); /*^block */ /*anyblock */ @@ -11033,7 +11152,7 @@ lab_endgetargs:; melt_assert_failed (("check oapp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2910) ? (2910) : __LINE__, __FUNCTION__); + (2918) ? (2918) : __LINE__, __FUNCTION__); ; } ; @@ -11048,7 +11167,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2910:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2918:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -11059,10 +11178,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2911:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2919:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:2912:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2920:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -11070,7 +11189,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2913:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2921:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -11078,7 +11197,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2914:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2922:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 2, "OBAPP_CLOS"); @@ -11086,7 +11205,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:2915:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2923:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 3, "OBAPP_ARGS"); @@ -11111,7 +11230,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L4*/ meltfnum[3])));; - MELT_LOCATION ("warmelt-outobj.melt:2920:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2928:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11135,7 +11254,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2921:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2929:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*apply*/{")); @@ -11145,17 +11264,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2922:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2930:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[4]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:2923:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2931:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:2923:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2931:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11165,7 +11284,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2925:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2933:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11176,7 +11295,7 @@ lab_endgetargs:; (( /*_#NBARG__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2926:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2934:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[6])); @@ -11184,7 +11303,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2927:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2935:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -11194,7 +11313,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2928:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2936:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -11202,7 +11321,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2929:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2937:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11213,7 +11332,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2930:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2938:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L9*/ meltfnum[8]), 0); @@ -11239,7 +11358,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2935:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2943:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11257,7 +11376,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[11] = (!( /*_#IS_A__L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:2935:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2943:/ cond"); /*cond */ if ( /*_#NOT__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11265,7 +11384,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2935:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2943:/ cond.else"); /*^block */ /*anyblock */ @@ -11276,7 +11395,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("outputcod_objapply check curarg not objinstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (2935) ? (2935) : __LINE__, __FUNCTION__); + melt_assert_failed (("outputcod_objapply check curarg not objinstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (2943) ? (2943) : __LINE__, __FUNCTION__); ; } ; @@ -11292,7 +11411,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2935:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2943:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#NOT__L12*/ meltfnum[11] = 0; @@ -11305,12 +11424,12 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:2936:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2944:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L13*/ meltfnum[10] = (( /*_#CURANK__L10*/ meltfnum[9]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:2936:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2944:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -11318,7 +11437,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:2937:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2945:/ quasiblock"); /*^checksignal */ @@ -11342,7 +11461,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2938:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2946:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11355,7 +11474,7 @@ lab_endgetargs:; ( /*_.CURCTYP__V18*/ meltfptr[16]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:2938:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2946:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11365,7 +11484,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:2938:/ cond.else"); + ("warmelt-outobj.melt:2946:/ cond.else"); /*^block */ /*anyblock */ @@ -11380,7 +11499,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2938) ? (2938) : + (2946) ? (2946) : __LINE__, __FUNCTION__); ; } @@ -11397,7 +11516,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2938:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2946:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; @@ -11415,7 +11534,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; MELT_LOCATION - ("warmelt-outobj.melt:2939:/ checksignal"); + ("warmelt-outobj.melt:2947:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11444,7 +11563,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2940:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2948:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11455,7 +11574,7 @@ lab_endgetargs:; (( /*_#CURANK__L10*/ meltfnum[9]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:2941:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2949:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11464,14 +11583,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2942:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2950:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2943:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:2951:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V18*/ meltfptr[16]), 5, "CTYPE_PARSTRING"); @@ -11489,12 +11608,12 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2944:/ checksignal"); + ("warmelt-outobj.melt:2952:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L17*/ meltfnum[16] = (( /*_.CURARG__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:2944:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2952:/ cond"); /*cond */ if ( /*_#NULL__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -11507,7 +11626,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2945:/ locexp"); + ("warmelt-outobj.melt:2953:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -11523,14 +11642,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:2944:/ cond.else"); + ("warmelt-outobj.melt:2952:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:2946:/ checksignal"); + ("warmelt-outobj.melt:2954:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[17] = @@ -11538,7 +11657,7 @@ lab_endgetargs:; ( /*_.CURARG__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_OBJNIL */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:2946:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2954:/ cond"); /*cond */ if ( /*_#IS_A__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -11551,7 +11670,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2947:/ locexp"); + ("warmelt-outobj.melt:2955:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -11568,14 +11687,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:2946:/ cond.else"); + ("warmelt-outobj.melt:2954:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:2948:/ checksignal"); + ("warmelt-outobj.melt:2956:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L19*/ meltfnum[18] = @@ -11583,7 +11702,7 @@ lab_endgetargs:; (( /*!CTYPE_VALUE */ meltfrout-> tabval[8])));; MELT_LOCATION - ("warmelt-outobj.melt:2948:/ cond"); + ("warmelt-outobj.melt:2956:/ cond"); /*cond */ if ( /*_#__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -11594,7 +11713,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2949:/ locexp"); + ("warmelt-outobj.melt:2957:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("meltbp_aptr = (melt_ptr_t*) &")); @@ -11606,7 +11725,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; MELT_LOCATION - ("warmelt-outobj.melt:2950:/ checksignal"); + ("warmelt-outobj.melt:2958:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11635,7 +11754,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2948:/ quasiblock"); + ("warmelt-outobj.melt:2956:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = @@ -11648,7 +11767,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2948:/ clear"); + ("warmelt-outobj.melt:2956:/ clear"); /*clear *//*_#GET_INT__L20*/ meltfnum[19] = 0; /*^clear */ @@ -11668,7 +11787,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2953:/ getslot"); + ("warmelt-outobj.melt:2961:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V18*/ meltfptr[16]), 6, "CTYPE_ARGFIELD"); @@ -11690,7 +11809,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:2954:/ locexp"); + ("warmelt-outobj.melt:2962:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -11702,7 +11821,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; MELT_LOCATION - ("warmelt-outobj.melt:2955:/ checksignal"); + ("warmelt-outobj.melt:2963:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -11731,7 +11850,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:2952:/ quasiblock"); + ("warmelt-outobj.melt:2960:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = @@ -11744,7 +11863,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2948:/ clear"); + ("warmelt-outobj.melt:2956:/ clear"); /*clear *//*_.CTYPE_ARGFIELD__V28*/ meltfptr[25] = 0; /*^clear */ @@ -11765,7 +11884,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2946:/ clear"); + ("warmelt-outobj.melt:2954:/ clear"); /*clear *//*_#__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IFELSE___V25*/ meltfptr[24] = @@ -11779,7 +11898,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:2944:/ clear"); + ("warmelt-outobj.melt:2952:/ clear"); /*clear *//*_#IS_A__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V24*/ meltfptr[23] = 0; @@ -11789,7 +11908,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2957:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2965:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11802,7 +11921,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; { - MELT_LOCATION ("warmelt-outobj.melt:2958:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2966:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -11811,7 +11930,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:2937:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2945:/ clear"); /*clear *//*_.CURCTYP__V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0; @@ -11836,7 +11955,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2960:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2968:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11848,7 +11967,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2961:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2969:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11883,7 +12002,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L23*/ meltfnum[18]) < ( /*_#GET_INT__L24*/ meltfnum[17]));; - MELT_LOCATION ("warmelt-outobj.melt:2960:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2968:/ cond"); /*cond */ if ( /*_#I__L25*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11891,7 +12010,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2960:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2968:/ cond.else"); /*^block */ /*anyblock */ @@ -11906,7 +12025,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2960) ? (2960) : __LINE__, + (2968) ? (2968) : __LINE__, __FUNCTION__); ; } @@ -11923,7 +12042,7 @@ lab_endgetargs:; /*_.IFELSE___V33*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2960:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2968:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L23*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[26] = 0; @@ -11946,7 +12065,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:2932:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2940:/ clear"); /*clear *//*_.CURARG__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_#CURANK__L10*/ meltfnum[9] = 0; @@ -11958,12 +12077,12 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V31*/ meltfptr[25] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:2924:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2932:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2923:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2931:/ clear"); /*clear *//*_#I__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#I__L8*/ meltfnum[7] = 0; @@ -11973,7 +12092,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:2967:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ quasiblock"); /*^newclosure */ @@ -12024,7 +12143,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12]); ; /*_.LAMBDA___V34*/ meltfptr[24] = /*_.LAMBDA___V35*/ meltfptr[23];; - MELT_LOCATION ("warmelt-outobj.melt:2965:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2973:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12045,7 +12164,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2973:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2981:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_apply ((meltclosure_ptr_t)(")); @@ -12053,7 +12172,7 @@ lab_endgetargs:; ; /*_#I__L26*/ meltfnum[15] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:2974:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2982:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12077,13 +12196,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2975:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2983:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2977:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2985:/ quasiblock"); /*_.FIRSTARG__V39*/ meltfptr[21] = @@ -12093,7 +12212,7 @@ lab_endgetargs:; /*_#I__L27*/ meltfnum[16] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:2978:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2986:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12117,7 +12236,7 @@ lab_endgetargs:; ; /*_.LET___V38*/ meltfptr[19] = /*_.OUTPUT_C_CODE__V40*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:2977:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2985:/ clear"); /*clear *//*_.FIRSTARG__V39*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_#I__L27*/ meltfnum[16] = 0; @@ -12125,13 +12244,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V40*/ meltfptr[22] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:2980:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2988:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2984:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:2992:/ quasiblock"); /*^newclosure */ @@ -12156,7 +12275,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V41*/ meltfptr[26] = /*_.LAMBDA___V42*/ meltfptr[29];; - MELT_LOCATION ("warmelt-outobj.melt:2982:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2990:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12177,18 +12296,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2987:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2995:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2989:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2997:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L28*/ meltfnum[19] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:2989:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2997:/ cond"); /*cond */ if ( /*_#I__L28*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -12198,7 +12317,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2990:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2998:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -12211,7 +12330,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2989:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2997:/ cond.else"); /*^block */ /*anyblock */ @@ -12219,7 +12338,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2991:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2999:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -12233,7 +12352,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2993:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3001:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" \"\", (union meltparam_un*)0")); @@ -12241,7 +12360,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2994:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3002:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -12251,14 +12370,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:2995:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3003:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L29*/ meltfnum[18]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:2996:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3004:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -12266,14 +12385,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2997:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3005:/ 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:2998:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3006:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12284,7 +12403,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[17] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:2999:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3007:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12319,7 +12438,7 @@ lab_endgetargs:; /*_#I__L32*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[17]) < ( /*_#GET_INT__L31*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-outobj.melt:2998:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3006:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12327,7 +12446,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2998:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3006:/ cond.else"); /*^block */ /*anyblock */ @@ -12341,7 +12460,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2998) ? (2998) : __LINE__, __FUNCTION__); + (3006) ? (3006) : __LINE__, __FUNCTION__); ; } ; @@ -12356,7 +12475,7 @@ lab_endgetargs:; /*_.IFCPP___V44*/ meltfptr[22] = /*_.IFELSE___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2998:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3006:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L30*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V45*/ meltfptr[44] = 0; @@ -12377,7 +12496,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V44*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:2911:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2919:/ clear"); /*clear *//*_.ALOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ADEST__V9*/ meltfptr[8] = 0; @@ -12419,7 +12538,7 @@ lab_endgetargs:; /*clear *//*_#I__L29*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V44*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-outobj.melt:2909:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12428,7 +12547,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:2909:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12517,6 +12636,13 @@ meltrout_77_warmelt_outobj_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_77_warmelt_outobj_LAMBDA___11___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12532,7 +12658,7 @@ meltrout_77_warmelt_outobj_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2967:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ getarg"); /*_.CURDEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -12545,7 +12671,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:2968:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2976:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -12571,7 +12697,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:2969:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:2977:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12582,7 +12708,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:2970:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2978:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -12617,7 +12743,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:2969:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:2977:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -12625,7 +12751,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:2969:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:2977:/ cond.else"); /*^block */ /*anyblock */ @@ -12639,7 +12765,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (2969) ? (2969) : __LINE__, __FUNCTION__); + (2977) ? (2977) : __LINE__, __FUNCTION__); ; } ; @@ -12654,7 +12780,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:2969:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:2977:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -12673,13 +12799,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2971:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2979:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2967:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -12760,6 +12886,13 @@ meltrout_78_warmelt_outobj_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_78_warmelt_outobj_LAMBDA___12___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12775,7 +12908,7 @@ meltrout_78_warmelt_outobj_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:2984:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:2992:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -12787,7 +12920,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:2985:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2993:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -12797,13 +12930,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:2986:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:2994:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:2984:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:2992:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -12879,6 +13012,13 @@ meltrout_79_warmelt_outobj_OUTPUCOD_OBJMSEND (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_79_warmelt_outobj_OUTPUCOD_OBJMSEND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 50; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -12894,7 +13034,7 @@ meltrout_79_warmelt_outobj_OUTPUCOD_OBJMSEND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3006:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ getarg"); /*_.OMSEND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12932,7 +13072,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3007:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3015:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12944,7 +13084,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:3007:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3015:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -12952,7 +13092,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3007:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3015:/ cond.else"); /*^block */ /*anyblock */ @@ -12966,7 +13106,7 @@ lab_endgetargs:; melt_assert_failed (("check omsend"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3007) ? (3007) : __LINE__, __FUNCTION__); + (3015) ? (3015) : __LINE__, __FUNCTION__); ; } ; @@ -12981,7 +13121,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3007:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3015:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -12992,7 +13132,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3008:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3016:/ quasiblock"); /*^getslot */ @@ -13003,7 +13143,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3009:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3017:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -13011,7 +13151,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3010:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3018:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 2, "OBMSND_SEL"); @@ -13019,7 +13159,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3011:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3019:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 3, "OBMSND_RECV"); @@ -13027,7 +13167,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3012:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3020:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSEND__V2*/ meltfptr[1]), 4, "OBMSND_ARGS"); @@ -13052,7 +13192,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L4*/ meltfnum[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3017:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3025:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13076,7 +13216,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3018:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3026:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*msend*/{")); @@ -13086,17 +13226,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3019:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3027:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[4]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3020:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3028:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3020:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3028:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -13106,7 +13246,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3025:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3033:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13115,7 +13255,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3026:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3034:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBARG__L3*/ meltfnum[1])); @@ -13123,7 +13263,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3027:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3035:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -13133,7 +13273,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3028:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3036:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L7*/ meltfnum[6]), 0); @@ -13141,7 +13281,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3029:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3037:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13152,7 +13292,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3030:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3038:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -13176,7 +13316,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:3035:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3043:/ quasiblock"); /*^checksignal */ @@ -13200,7 +13340,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3036:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3044:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13214,7 +13354,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:3036:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3044:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13222,7 +13362,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3036:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3044:/ cond.else"); /*^block */ /*anyblock */ @@ -13237,7 +13377,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3036) ? (3036) : __LINE__, + (3044) ? (3044) : __LINE__, __FUNCTION__); ; } @@ -13254,7 +13394,7 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3036:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3044:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -13270,7 +13410,7 @@ lab_endgetargs:; /*_#GET_INT__L11*/ meltfnum[9] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-outobj.melt:3037:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3045:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13297,7 +13437,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3038:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3046:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13306,7 +13446,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3039:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3047:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CURANK__L9*/ meltfnum[8])); @@ -13314,14 +13454,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3040:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3048:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3041:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3049:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V17*/ meltfptr[16]), 5, "CTYPE_PARSTRING"); @@ -13338,12 +13478,12 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CTYPE_PARSTRING__V21*/ meltfptr[20])); } ; - MELT_LOCATION ("warmelt-outobj.melt:3042:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3050:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L12*/ meltfnum[11] = (( /*_.CURARG__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3042:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3050:/ cond"); /*cond */ if ( /*_#NULL__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -13355,7 +13495,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3043:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3051:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13369,14 +13509,14 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3042:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3050:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3045:/ checksignal"); + ("warmelt-outobj.melt:3053:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[12] = @@ -13384,7 +13524,7 @@ lab_endgetargs:; ( /*_.CURARG__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_OBJNIL */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:3045:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3053:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -13397,7 +13537,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3046:/ locexp"); + ("warmelt-outobj.melt:3054:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -13413,20 +13553,20 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3045:/ cond.else"); + ("warmelt-outobj.melt:3053:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3048:/ checksignal"); + ("warmelt-outobj.melt:3056:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L14*/ meltfnum[13] = (( /*_.CURCTYP__V17*/ meltfptr[16]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:3048:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3056:/ cond"); /*cond */ if ( /*_#__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -13437,7 +13577,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3049:/ locexp"); + ("warmelt-outobj.melt:3057:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -13451,7 +13591,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; MELT_LOCATION - ("warmelt-outobj.melt:3050:/ checksignal"); + ("warmelt-outobj.melt:3058:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13478,7 +13618,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3048:/ quasiblock"); + ("warmelt-outobj.melt:3056:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = @@ -13490,7 +13630,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3048:/ clear"); + ("warmelt-outobj.melt:3056:/ clear"); /*clear *//*_#GET_INT__L15*/ meltfnum[14] = 0; /*^clear */ @@ -13512,7 +13652,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-outobj.melt:3053:/ cppif.then"); + ("warmelt-outobj.melt:3061:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13531,7 +13671,7 @@ lab_endgetargs:; (!( /*_#IS_MULTIPLE__L16*/ meltfnum[14]));; MELT_LOCATION - ("warmelt-outobj.melt:3053:/ cond"); + ("warmelt-outobj.melt:3061:/ cond"); /*cond */ if ( /*_#NOT__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -13541,7 +13681,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3053:/ cond.else"); + ("warmelt-outobj.melt:3061:/ cond.else"); /*^block */ /*anyblock */ @@ -13552,7 +13692,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check curarg is not multiple"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (3053) ? (3053) : __LINE__, __FUNCTION__); + melt_assert_failed (("check curarg is not multiple"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (3061) ? (3061) : __LINE__, __FUNCTION__); ; } ; @@ -13570,7 +13710,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3053:/ clear"); + ("warmelt-outobj.melt:3061:/ clear"); /*clear *//*_#IS_MULTIPLE__L16*/ meltfnum[14] = 0; /*^clear */ @@ -13587,7 +13727,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-outobj.melt:3054:/ getslot"); + ("warmelt-outobj.melt:3062:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V17*/ meltfptr[16]), 6, "CTYPE_ARGFIELD"); @@ -13608,7 +13748,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3055:/ locexp"); + ("warmelt-outobj.melt:3063:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -13622,7 +13762,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; MELT_LOCATION - ("warmelt-outobj.melt:3056:/ checksignal"); + ("warmelt-outobj.melt:3064:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13649,7 +13789,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3052:/ quasiblock"); + ("warmelt-outobj.melt:3060:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[30] = @@ -13661,7 +13801,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3048:/ clear"); + ("warmelt-outobj.melt:3056:/ clear"); /*clear *//*_.IFCPP___V27*/ meltfptr[24] = 0; /*^clear */ @@ -13685,7 +13825,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3045:/ clear"); + ("warmelt-outobj.melt:3053:/ clear"); /*clear *//*_#__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V24*/ meltfptr[23] = 0; @@ -13697,7 +13837,7 @@ lab_endgetargs:; /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3042:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3050:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; @@ -13707,7 +13847,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3058:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3066:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -13716,7 +13856,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3059:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13728,7 +13868,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3060:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3068:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -13763,7 +13903,7 @@ lab_endgetargs:; /*_#I__L21*/ meltfnum[13] = (( /*_#STRBUF_USEDLENGTH__L19*/ meltfnum[16]) < ( /*_#GET_INT__L20*/ meltfnum[14]));; - MELT_LOCATION ("warmelt-outobj.melt:3059:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ cond"); /*cond */ if ( /*_#I__L21*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -13771,7 +13911,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3059:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ cond.else"); /*^block */ /*anyblock */ @@ -13786,7 +13926,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3059) ? (3059) : __LINE__, + (3067) ? (3067) : __LINE__, __FUNCTION__); ; } @@ -13803,7 +13943,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3059:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3067:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L19*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V33*/ meltfptr[25] = 0; @@ -13827,7 +13967,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; { - MELT_LOCATION ("warmelt-outobj.melt:3061:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3069:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L22*/ @@ -13835,7 +13975,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3035:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3043:/ clear"); /*clear *//*_.CURCTYP__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; @@ -13859,18 +13999,18 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3032:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3040:/ clear"); /*clear *//*_.CURARG__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_#CURANK__L9*/ meltfnum[8] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:3024:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3032:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3020:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3028:/ clear"); /*clear *//*_#I__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#I__L8*/ meltfnum[7] = 0; @@ -13895,7 +14035,7 @@ lab_endgetargs:; /*_#GET_INT__L23*/ meltfnum[16] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-outobj.melt:3068:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3076:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -13921,7 +14061,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3069:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3077:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13932,7 +14072,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3070:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3078:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -13967,7 +14107,7 @@ lab_endgetargs:; /*_#I__L26*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14]) < ( /*_#GET_INT__L25*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:3069:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3077:/ cond"); /*cond */ if ( /*_#I__L26*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13975,7 +14115,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3069:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3077:/ cond.else"); /*^block */ /*anyblock */ @@ -13989,7 +14129,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3069) ? (3069) : __LINE__, + (3077) ? (3077) : __LINE__, __FUNCTION__); ; } @@ -14005,7 +14145,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[25] = /*_.IFELSE___V40*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3069:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3077:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L24*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V39*/ meltfptr[29] = 0; @@ -14024,7 +14164,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3071:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3079:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -14037,7 +14177,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3065:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3073:/ clear"); /*clear *//*_.CURPAIR__V35*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.CURDEST__V36*/ meltfptr[23] = 0; @@ -14051,7 +14191,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3073:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14062,7 +14202,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:3073:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L27*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -14070,7 +14210,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3073:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ cond.else"); /*^block */ /*anyblock */ @@ -14084,7 +14224,7 @@ lab_endgetargs:; melt_assert_failed (("check orecv object"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3073) ? (3073) : __LINE__, __FUNCTION__); + (3081) ? (3081) : __LINE__, __FUNCTION__); ; } ; @@ -14099,7 +14239,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[17] = /*_.IFELSE___V42*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3073:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3081:/ clear"); /*clear *//*_#IS_OBJECT__L27*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V42*/ meltfptr[18] = 0; @@ -14112,7 +14252,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3075:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3083:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("meltgc_send((melt_ptr_t)(")); @@ -14120,7 +14260,7 @@ lab_endgetargs:; ; /*_#I__L28*/ meltfnum[12] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:3076:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3084:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -14144,7 +14284,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3077:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3085:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (melt_ptr_t)(")); @@ -14152,7 +14292,7 @@ lab_endgetargs:; ; /*_#I__L29*/ meltfnum[6] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:3078:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3086:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -14176,13 +14316,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3079:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3087:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3083:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3091:/ quasiblock"); /*^newclosure */ @@ -14207,7 +14347,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V45*/ meltfptr[24] = /*_.LAMBDA___V46*/ meltfptr[29];; - MELT_LOCATION ("warmelt-outobj.melt:3081:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3089:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14228,18 +14368,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3086:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3094:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3087:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3095:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L30*/ meltfnum[7] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3087:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3095:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -14249,7 +14389,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3088:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3096:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14262,7 +14402,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3087:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3095:/ cond.else"); /*^block */ /*anyblock */ @@ -14270,7 +14410,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3089:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3097:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -14284,7 +14424,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3091:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3099:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" \"\", (union meltparam_un*)0")); @@ -14292,7 +14432,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3092:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3100:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -14302,14 +14442,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3093:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3101:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L31*/ meltfnum[14]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3094:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3102:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -14317,14 +14457,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3095:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3103:/ 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:3096:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3104:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14335,7 +14475,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L32*/ meltfnum[13] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3097:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3105:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14370,7 +14510,7 @@ lab_endgetargs:; /*_#I__L34*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L32*/ meltfnum[13]) < ( /*_#GET_INT__L33*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:3096:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3104:/ cond"); /*cond */ if ( /*_#I__L34*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -14378,7 +14518,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3096:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3104:/ cond.else"); /*^block */ /*anyblock */ @@ -14392,7 +14532,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3096) ? (3096) : __LINE__, __FUNCTION__); + (3104) ? (3104) : __LINE__, __FUNCTION__); ; } ; @@ -14407,7 +14547,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[18] = /*_.IFELSE___V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3096:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3104:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L32*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V49*/ meltfptr[48] = 0; @@ -14428,7 +14568,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V48*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:3008:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3016:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODEST__V9*/ meltfptr[8] = 0; @@ -14472,7 +14612,7 @@ lab_endgetargs:; /*clear *//*_#I__L31*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V48*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3006:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14481,7 +14621,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3006:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14570,6 +14710,13 @@ meltrout_80_warmelt_outobj_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_80_warmelt_outobj_LAMBDA___13___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14585,7 +14732,7 @@ meltrout_80_warmelt_outobj_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3083:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3091:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -14597,7 +14744,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3084:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3092:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -14607,13 +14754,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3085:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3093:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3083:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3091:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -14690,6 +14837,13 @@ meltrout_81_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_81_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -14705,7 +14859,7 @@ meltrout_81_warmelt_outobj_OUTPUCOD_OBJMULTIAPPLY (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3104:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ getarg"); /*_.OAPP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14743,7 +14897,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3105:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3113:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14755,7 +14909,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:3105:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3113:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -14763,7 +14917,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3105:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3113:/ cond.else"); /*^block */ /*anyblock */ @@ -14777,7 +14931,7 @@ lab_endgetargs:; melt_assert_failed (("check oapp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3105) ? (3105) : __LINE__, __FUNCTION__); + (3113) ? (3113) : __LINE__, __FUNCTION__); ; } ; @@ -14792,7 +14946,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3105:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3113:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -14803,10 +14957,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3106:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3114:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:3107:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3115:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -14814,7 +14968,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3108:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3116:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -14822,7 +14976,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3109:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3117:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 2, "OBAPP_CLOS"); @@ -14830,7 +14984,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3110:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3118:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 3, "OBAPP_ARGS"); @@ -14838,7 +14992,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3111:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3119:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OAPP__V2*/ meltfptr[1]), 4, "OBMULTAPP_XRES"); @@ -14874,7 +15028,7 @@ lab_endgetargs:; ( /*_#I__L5*/ meltfnum[4])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3118:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14888,7 +15042,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OARGS__V11*/ meltfptr[10])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:3118:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -14896,7 +15050,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3118:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ cond.else"); /*^block */ /*anyblock */ @@ -14910,7 +15064,7 @@ lab_endgetargs:; melt_assert_failed (("check oargs"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3118) ? (3118) : __LINE__, __FUNCTION__); + (3126) ? (3126) : __LINE__, __FUNCTION__); ; } ; @@ -14925,7 +15079,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3118:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3126:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -14938,7 +15092,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3119:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3127:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14952,7 +15106,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.OXRES__V12*/ meltfptr[11])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:3119:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3127:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -14960,7 +15114,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3119:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3127:/ cond.else"); /*^block */ /*anyblock */ @@ -14974,7 +15128,7 @@ lab_endgetargs:; melt_assert_failed (("check oxres"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3119) ? (3119) : __LINE__, __FUNCTION__); + (3127) ? (3127) : __LINE__, __FUNCTION__); ; } ; @@ -14989,7 +15143,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3119:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3127:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -15000,7 +15154,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3120:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3128:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15024,7 +15178,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3121:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3129:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*multiapply ")); @@ -15032,14 +15186,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3122:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3130:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBARG__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3123:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3131:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("args, ")); @@ -15047,14 +15201,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3124:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3132:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBXRES__L4*/ meltfnum[3])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3125:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3133:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("x.res*/ ")); @@ -15062,7 +15216,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3126:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3134:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -15072,17 +15226,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3127:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3135:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3128:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:3128:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3136:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -15092,7 +15246,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3130:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3138:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15103,7 +15257,7 @@ lab_endgetargs:; (( /*_#NBARG__L3*/ meltfnum[1]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3131:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3139:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L10*/ meltfnum[9])); @@ -15111,7 +15265,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3132:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3140:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -15121,18 +15275,18 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3133:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3141:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3129:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3137:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3128:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3136:/ clear"); /*clear *//*_#I__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#I__L11*/ meltfnum[10] = 0; @@ -15140,12 +15294,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3135:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3143:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L12*/ meltfnum[9] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3135:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3143:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -15157,7 +15311,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3137:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3145:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[10]), 0); @@ -15165,7 +15319,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3138:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3146:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15174,7 +15328,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3139:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3147:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBXRES__L4*/ meltfnum[3])); @@ -15182,7 +15336,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3140:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3148:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -15192,18 +15346,18 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3141:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3149:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3136:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3144:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3135:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3143:/ clear"); /*clear *//*_#I__L13*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#I__L14*/ meltfnum[13] = 0; @@ -15211,12 +15365,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3143:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3151:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L15*/ meltfnum[10] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3143:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3151:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -15226,7 +15380,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3145:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3153:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15237,13 +15391,13 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3146:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3154:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L16*/ meltfnum[13]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3150:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3158:/ quasiblock"); /*^newclosure */ @@ -15272,7 +15426,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESDESCLIST__V14*/ meltfptr[13]); ; /*_.LAMBDA___V22*/ meltfptr[21] = /*_.LAMBDA___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:3148:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3156:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15291,7 +15445,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3144:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3152:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = @@ -15301,7 +15455,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3143:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3151:/ clear"); /*clear *//*_#I__L16*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.LAMBDA___V22*/ meltfptr[21] = 0; @@ -15318,12 +15472,12 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3153:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3161:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L17*/ meltfnum[13] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:3153:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3161:/ cond"); /*cond */ if ( /*_#I__L17*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -15333,7 +15487,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3155:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3163:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15344,7 +15498,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3156:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3164:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L18*/ meltfnum[17]), 0); @@ -15368,12 +15522,12 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:3161:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3169:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L20*/ meltfnum[19] = (( /*_#CURANK__L19*/ meltfnum[18]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3161:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3169:/ cond"); /*cond */ if ( /*_#I__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -15381,7 +15535,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3162:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3170:/ quasiblock"); /*^checksignal */ @@ -15405,7 +15559,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3163:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3171:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15418,7 +15572,7 @@ lab_endgetargs:; ( /*_.CURCTYP__V27*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:3163:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3171:/ cond"); /*cond */ if ( /*_#IS_A__L21*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -15428,7 +15582,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3163:/ cond.else"); + ("warmelt-outobj.melt:3171:/ cond.else"); /*^block */ /*anyblock */ @@ -15443,7 +15597,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3163) ? (3163) : + (3171) ? (3171) : __LINE__, __FUNCTION__); ; } @@ -15460,7 +15614,7 @@ lab_endgetargs:; /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3163:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3171:/ clear"); /*clear *//*_#IS_A__L21*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; @@ -15478,7 +15632,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; MELT_LOCATION - ("warmelt-outobj.melt:3164:/ checksignal"); + ("warmelt-outobj.melt:3172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15507,7 +15661,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3165:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3173:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15518,7 +15672,7 @@ lab_endgetargs:; (( /*_#CURANK__L19*/ meltfnum[18]) - (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3166:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3174:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15527,14 +15681,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3167:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3175:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3168:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3176:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V27*/ meltfptr[23]), 5, "CTYPE_PARSTRING"); @@ -15552,12 +15706,12 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3170:/ checksignal"); + ("warmelt-outobj.melt:3178:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L24*/ meltfnum[23] = (( /*_.CURARG__V26*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3170:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3178:/ cond"); /*cond */ if ( /*_#NULL__L24*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -15570,7 +15724,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3171:/ locexp"); + ("warmelt-outobj.melt:3179:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -15586,20 +15740,20 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:3170:/ cond.else"); + ("warmelt-outobj.melt:3178:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3172:/ checksignal"); + ("warmelt-outobj.melt:3180:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L25*/ meltfnum[24] = (( /*_.CURCTYP__V27*/ meltfptr[23]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-outobj.melt:3172:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3180:/ cond"); /*cond */ if ( /*_#__L25*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -15610,7 +15764,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3173:/ locexp"); + ("warmelt-outobj.melt:3181:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -15624,7 +15778,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; MELT_LOCATION - ("warmelt-outobj.melt:3174:/ checksignal"); + ("warmelt-outobj.melt:3182:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -15651,7 +15805,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3172:/ quasiblock"); + ("warmelt-outobj.melt:3180:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = @@ -15663,7 +15817,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3172:/ clear"); + ("warmelt-outobj.melt:3180:/ clear"); /*clear *//*_#GET_INT__L26*/ meltfnum[25] = 0; /*^clear */ @@ -15683,7 +15837,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3177:/ getslot"); + ("warmelt-outobj.melt:3185:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V27*/ meltfptr[23]), 6, "CTYPE_ARGFIELD"); @@ -15704,7 +15858,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3178:/ locexp"); + ("warmelt-outobj.melt:3186:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -15718,7 +15872,7 @@ lab_endgetargs:; ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; MELT_LOCATION - ("warmelt-outobj.melt:3179:/ checksignal"); + ("warmelt-outobj.melt:3187:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -15745,7 +15899,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3176:/ quasiblock"); + ("warmelt-outobj.melt:3184:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = @@ -15757,7 +15911,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3172:/ clear"); + ("warmelt-outobj.melt:3180:/ clear"); /*clear *//*_.CTYPE_ARGFIELD__V36*/ meltfptr[33] = 0; /*^clear */ @@ -15778,7 +15932,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3170:/ clear"); + ("warmelt-outobj.melt:3178:/ clear"); /*clear *//*_#__L25*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IFELSE___V33*/ meltfptr[32] = 0; @@ -15788,7 +15942,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3181:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3189:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -15796,7 +15950,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3162:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3170:/ clear"); /*clear *//*_.CURCTYP__V27*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[24] = 0; @@ -15819,7 +15973,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3183:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3191:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15831,7 +15985,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3184:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3192:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15866,7 +16020,7 @@ lab_endgetargs:; /*_#I__L30*/ meltfnum[20] = (( /*_#STRBUF_USEDLENGTH__L28*/ meltfnum[25]) < ( /*_#GET_INT__L29*/ meltfnum[24]));; - MELT_LOCATION ("warmelt-outobj.melt:3183:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3191:/ cond"); /*cond */ if ( /*_#I__L30*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -15874,7 +16028,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3183:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3191:/ cond.else"); /*^block */ /*anyblock */ @@ -15889,7 +16043,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3183) ? (3183) : __LINE__, + (3191) ? (3191) : __LINE__, __FUNCTION__); ; } @@ -15906,7 +16060,7 @@ lab_endgetargs:; /*_.IFELSE___V41*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3183:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3191:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L28*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V40*/ meltfptr[34] = 0; @@ -15929,7 +16083,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3158:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3166:/ clear"); /*clear *//*_.CURARG__V26*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_#CURANK__L19*/ meltfnum[18] = 0; @@ -15944,18 +16098,18 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; { - MELT_LOCATION ("warmelt-outobj.melt:3186:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3194:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L31*/ meltfnum[22]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3154:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3162:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3153:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3161:/ clear"); /*clear *//*_#I__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_#GET_INT__L31*/ meltfnum[22] = 0; @@ -15963,12 +16117,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3189:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3197:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L32*/ meltfnum[23] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3189:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3197:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -15976,7 +16130,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3193:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ quasiblock"); /*^newclosure */ @@ -16050,7 +16204,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]); ; /*_.LAMBDA___V43*/ meltfptr[23] = /*_.LAMBDA___V44*/ meltfptr[24];; - MELT_LOCATION ("warmelt-outobj.melt:3191:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3199:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16069,7 +16223,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3190:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3198:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[30] = @@ -16079,7 +16233,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[32] = /*_.PROGN___V46*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3189:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3197:/ clear"); /*clear *//*_.LAMBDA___V43*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.MULTIPLE_EVERY__V45*/ meltfptr[28] = 0; @@ -16098,7 +16252,7 @@ lab_endgetargs:; /*_#GET_INT__L33*/ meltfnum[25] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-outobj.melt:3217:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3225:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16120,7 +16274,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3221:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3229:/ quasiblock"); /*^newclosure */ @@ -16171,7 +16325,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V15*/ meltfptr[14]); ; /*_.LAMBDA___V48*/ meltfptr[34] = /*_.LAMBDA___V49*/ meltfptr[37];; - MELT_LOCATION ("warmelt-outobj.melt:3219:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3227:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16192,7 +16346,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3225:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3233:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" melt_apply ((meltclosure_ptr_t)(")); @@ -16200,7 +16354,7 @@ lab_endgetargs:; ; /*_#I__L34*/ meltfnum[24] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3226:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3234:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16224,13 +16378,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3227:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3235:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3229:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3237:/ quasiblock"); /*_.FIRSTARG__V53*/ meltfptr[52] = @@ -16240,7 +16394,7 @@ lab_endgetargs:; /*_#I__L35*/ meltfnum[20] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3230:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3238:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -16264,7 +16418,7 @@ lab_endgetargs:; ; /*_.LET___V52*/ meltfptr[30] = /*_.OUTPUT_C_CODE__V54*/ meltfptr[53];; - MELT_LOCATION ("warmelt-outobj.melt:3229:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3237:/ clear"); /*clear *//*_.FIRSTARG__V53*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_#I__L35*/ meltfnum[20] = 0; @@ -16272,13 +16426,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V54*/ meltfptr[53] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:3232:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3240:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3236:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3244:/ quasiblock"); /*^newclosure */ @@ -16303,7 +16457,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V55*/ meltfptr[52] = /*_.LAMBDA___V56*/ meltfptr[53];; - MELT_LOCATION ("warmelt-outobj.melt:3234:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3242:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16324,18 +16478,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3239:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3247:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3241:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3249:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L36*/ meltfnum[17] = (( /*_#NBARG__L3*/ meltfnum[1]) > (1));; - MELT_LOCATION ("warmelt-outobj.melt:3241:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3249:/ cond"); /*cond */ if ( /*_#I__L36*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -16345,7 +16499,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3242:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3250:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16358,7 +16512,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3241:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3249:/ cond.else"); /*^block */ /*anyblock */ @@ -16366,7 +16520,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3243:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3251:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16378,7 +16532,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3247:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3255:/ quasiblock"); /*^newclosure */ @@ -16403,7 +16557,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V58*/ meltfptr[57] = /*_.LAMBDA___V59*/ meltfptr[58];; - MELT_LOCATION ("warmelt-outobj.melt:3245:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3253:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16424,18 +16578,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3250:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3258:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3252:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3260:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L37*/ meltfnum[22] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3252:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3260:/ cond"); /*cond */ if ( /*_#I__L37*/ meltfnum[22]) /*then */ { /*^cond.then */ @@ -16445,7 +16599,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3253:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3261:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16458,7 +16612,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3252:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3260:/ cond.else"); /*^block */ /*anyblock */ @@ -16466,7 +16620,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3254:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3262:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -16480,7 +16634,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3255:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3263:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -16490,14 +16644,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3256:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3264:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L38*/ meltfnum[20]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3257:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3265:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -16505,14 +16659,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3258:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3266:/ 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:3259:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3267:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16523,7 +16677,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[38] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3260:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3268:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16558,7 +16712,7 @@ lab_endgetargs:; /*_#I__L41*/ meltfnum[40] = (( /*_#STRBUF_USEDLENGTH__L39*/ meltfnum[38]) < ( /*_#GET_INT__L40*/ meltfnum[39]));; - MELT_LOCATION ("warmelt-outobj.melt:3259:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3267:/ cond"); /*cond */ if ( /*_#I__L41*/ meltfnum[40]) /*then */ { /*^cond.then */ @@ -16566,7 +16720,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3259:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3267:/ cond.else"); /*^block */ /*anyblock */ @@ -16580,7 +16734,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3259) ? (3259) : __LINE__, __FUNCTION__); + (3267) ? (3267) : __LINE__, __FUNCTION__); ; } ; @@ -16595,7 +16749,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[60] = /*_.IFELSE___V63*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3259:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3267:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L39*/ meltfnum[38] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V62*/ meltfptr[61] = 0; @@ -16616,7 +16770,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V61*/ meltfptr[60];; - MELT_LOCATION ("warmelt-outobj.melt:3106:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3114:/ clear"); /*clear *//*_.ALOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ADEST__V9*/ meltfptr[8] = 0; @@ -16690,7 +16844,7 @@ lab_endgetargs:; /*clear *//*_#I__L38*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V61*/ meltfptr[60] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3104:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16699,7 +16853,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3104:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16788,6 +16942,13 @@ meltrout_82_warmelt_outobj_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_82_warmelt_outobj_LAMBDA___14___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16803,7 +16964,7 @@ meltrout_82_warmelt_outobj_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3150:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3158:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16819,7 +16980,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3151:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3159:/ quasiblock"); /*^checksignal */ @@ -16839,7 +17000,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3152:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3160:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V3*/ meltfptr[2]), 5, "CTYPE_PARSTRING"); @@ -16857,7 +17018,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3151:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3159:/ clear"); /*clear *//*_.CURCTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.CTYPE_PARSTRING__V4*/ meltfptr[3] = 0; @@ -16932,6 +17093,13 @@ meltrout_83_warmelt_outobj_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_83_warmelt_outobj_LAMBDA___15___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16947,7 +17115,7 @@ meltrout_83_warmelt_outobj_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3193:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16963,7 +17131,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3194:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3202:/ quasiblock"); /*^checksignal */ @@ -16985,7 +17153,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3195:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3203:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16997,7 +17165,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:3195:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3203:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17005,7 +17173,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3195:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3203:/ cond.else"); /*^block */ /*anyblock */ @@ -17019,7 +17187,7 @@ lab_endgetargs:; melt_assert_failed (("check curestyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3195) ? (3195) : __LINE__, __FUNCTION__); + (3203) ? (3203) : __LINE__, __FUNCTION__); ; } ; @@ -17034,7 +17202,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3195:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3203:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -17050,7 +17218,7 @@ lab_endgetargs:; /*_#GET_INT__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3196:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3204:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17075,7 +17243,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3197:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3205:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -17084,7 +17252,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3198:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3206:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ( /*_#CURANK__L1*/ meltfnum[0])); @@ -17092,18 +17260,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3199:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3207:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3201:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3209:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[3] = (( /*_.CURES__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3201:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3209:/ cond"); /*cond */ if ( /*_#NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -17115,7 +17283,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3202:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3210:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -17129,19 +17297,19 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3201:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3209:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3203:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3211:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[4] = (( /*_.CURESTYP__V3*/ meltfptr[2]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3203:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3211:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -17151,7 +17319,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3204:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3212:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -17163,7 +17331,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3205:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3213:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17188,7 +17356,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3203:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3211:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[9] = @@ -17199,7 +17367,7 @@ lab_endgetargs:; /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3203:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3211:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V9*/ meltfptr[8] = 0; @@ -17215,7 +17383,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3208:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3216:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), 7, "CTYPE_RESFIELD"); @@ -17236,7 +17404,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3209:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3217:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -17247,7 +17415,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3210:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3218:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17272,7 +17440,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3207:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3215:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = @@ -17283,7 +17451,7 @@ lab_endgetargs:; /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3203:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3211:/ clear"); /*clear *//*_.CTYPE_RESFIELD__V11*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_#GET_INT__L7*/ meltfnum[5] = 0; @@ -17298,7 +17466,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3201:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3209:/ clear"); /*clear *//*_#__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -17308,7 +17476,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3212:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3220:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (";")); @@ -17319,14 +17487,14 @@ lab_endgetargs:; ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; { - MELT_LOCATION ("warmelt-outobj.melt:3213:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3221:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ( /*_#GET_INT__L8*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3194:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3202:/ clear"); /*clear *//*_.CURESTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; @@ -17411,6 +17579,13 @@ meltrout_84_warmelt_outobj_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_84_warmelt_outobj_LAMBDA___16___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17426,7 +17601,7 @@ meltrout_84_warmelt_outobj_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3221:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3229:/ getarg"); /*_.CURDEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -17439,7 +17614,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3222:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3230:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -17465,13 +17640,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3223:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3231:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3221:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3229:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17550,6 +17725,13 @@ meltrout_85_warmelt_outobj_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_85_warmelt_outobj_LAMBDA___17___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17565,7 +17747,7 @@ meltrout_85_warmelt_outobj_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3236:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3244:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -17577,7 +17759,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3237:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3245:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -17587,13 +17769,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3238:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3246:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3236:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3244:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17667,6 +17849,13 @@ meltrout_86_warmelt_outobj_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_86_warmelt_outobj_LAMBDA___18___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17682,7 +17871,7 @@ meltrout_86_warmelt_outobj_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3247:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3255:/ getarg"); /*_.RESD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -17694,7 +17883,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3248:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3256:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -17704,13 +17893,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3249:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3257:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3247:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3255:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17787,6 +17976,13 @@ meltrout_87_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_87_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 58; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17802,7 +17998,7 @@ meltrout_87_warmelt_outobj_OUTPUCOD_OBJMULTIMSEND (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3269:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ getarg"); /*_.OMSND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17840,7 +18036,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3270:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3278:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17852,7 +18048,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:3270:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3278:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17860,7 +18056,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3270:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3278:/ cond.else"); /*^block */ /*anyblock */ @@ -17874,7 +18070,7 @@ lab_endgetargs:; melt_assert_failed (("check omsnd"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3270) ? (3270) : __LINE__, __FUNCTION__); + (3278) ? (3278) : __LINE__, __FUNCTION__); ; } ; @@ -17889,7 +18085,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3270:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3278:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -17900,7 +18096,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3271:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3279:/ quasiblock"); /*^getslot */ @@ -17911,7 +18107,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3272:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3280:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -17919,7 +18115,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3273:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3281:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 2, "OBMSND_SEL"); @@ -17927,7 +18123,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3274:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3282:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 3, "OBMSND_RECV"); @@ -17935,7 +18131,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3275:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3283:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 4, "OBMSND_ARGS"); @@ -17943,7 +18139,7 @@ lab_endgetargs:; meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3276:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3284:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OMSND__V2*/ meltfptr[1]), 5, "OBMULTSND_XRES"); @@ -17977,7 +18173,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[2])), ( /*_#I__L5*/ meltfnum[4])));; - MELT_LOCATION ("warmelt-outobj.melt:3283:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3291:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18001,7 +18197,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3284:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3292:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*multimsend*/{")); @@ -18011,17 +18207,17 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3285:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3293:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L6*/ meltfnum[5]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3286:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3294:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[6] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3286:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3294:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -18031,7 +18227,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3288:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3296:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18040,7 +18236,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3289:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3297:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBARG__L3*/ meltfnum[1])); @@ -18048,7 +18244,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3290:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3298:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -18058,29 +18254,29 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3291:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3299:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3287:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3295:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3286:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3294:/ clear"); /*clear *//*_#I__L8*/ meltfnum[7] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3293:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3301:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[7] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3293:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3301:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -18090,7 +18286,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3295:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3303:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18099,7 +18295,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3296:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3304:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#NBXRES__L4*/ meltfnum[3])); @@ -18107,7 +18303,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3297:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3305:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("];")); @@ -18117,13 +18313,13 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3298:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3306:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L10*/ meltfnum[9]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3302:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3310:/ quasiblock"); /*^newclosure */ @@ -18152,7 +18348,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESDESCLIST__V15*/ meltfptr[14]); ; /*_.LAMBDA___V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:3300:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3308:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18171,7 +18367,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3294:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3302:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = @@ -18181,7 +18377,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3293:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3301:/ clear"); /*clear *//*_#I__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LAMBDA___V19*/ meltfptr[18] = 0; @@ -18198,12 +18394,12 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3306:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3314:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L11*/ meltfnum[9] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3306:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3314:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -18213,7 +18409,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3308:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3316:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18224,29 +18420,29 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3309:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3317:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L12*/ meltfnum[11]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3307:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3315:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3306:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3314:/ clear"); /*clear *//*_#I__L12*/ meltfnum[11] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3310:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3318:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L13*/ meltfnum[11] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3310:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3318:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -18256,7 +18452,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3312:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3320:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18267,29 +18463,29 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3313:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3321:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L14*/ meltfnum[13]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3311:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3319:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3310:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3318:/ clear"); /*clear *//*_#I__L14*/ meltfnum[13] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3315:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3323:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L15*/ meltfnum[13] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3315:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3323:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -18315,7 +18511,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:3321:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3329:/ quasiblock"); /*^checksignal */ @@ -18339,7 +18535,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3322:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3330:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18353,7 +18549,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:3322:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3330:/ cond"); /*cond */ if ( /*_#IS_A__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -18361,7 +18557,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3322:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3330:/ cond.else"); /*^block */ /*anyblock */ @@ -18376,7 +18572,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3322) ? (3322) : __LINE__, + (3330) ? (3330) : __LINE__, __FUNCTION__); ; } @@ -18393,7 +18589,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3322:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3330:/ clear"); /*clear *//*_#IS_A__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0; @@ -18409,7 +18605,7 @@ lab_endgetargs:; /*_#GET_INT__L18*/ meltfnum[16] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-outobj.melt:3323:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3331:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18436,7 +18632,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3324:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3332:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18445,7 +18641,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3325:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3333:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CURANK__L16*/ meltfnum[15])); @@ -18453,14 +18649,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3326:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3334:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3327:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3335:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V24*/ meltfptr[20]), 5, "CTYPE_PARSTRING"); @@ -18477,12 +18673,12 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CTYPE_PARSTRING__V28*/ meltfptr[27])); } ; - MELT_LOCATION ("warmelt-outobj.melt:3329:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3337:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L19*/ meltfnum[18] = (( /*_.CURARG__V23*/ meltfptr[18]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3329:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3337:/ cond"); /*cond */ if ( /*_#NULL__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -18494,7 +18690,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3330:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3338:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18508,20 +18704,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3329:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3337:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:3331:/ checksignal"); + ("warmelt-outobj.melt:3339:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L20*/ meltfnum[19] = (( /*_.CURCTYP__V24*/ meltfptr[20]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-outobj.melt:3331:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3339:/ cond"); /*cond */ if ( /*_#__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -18532,7 +18728,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3332:/ locexp"); + ("warmelt-outobj.melt:3340:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -18545,7 +18741,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; MELT_LOCATION - ("warmelt-outobj.melt:3333:/ checksignal"); + ("warmelt-outobj.melt:3341:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18572,7 +18768,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3331:/ quasiblock"); + ("warmelt-outobj.melt:3339:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = @@ -18584,7 +18780,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3331:/ clear"); + ("warmelt-outobj.melt:3339:/ clear"); /*clear *//*_#GET_INT__L21*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V31*/ meltfptr[30] = @@ -18602,7 +18798,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3336:/ getslot"); + ("warmelt-outobj.melt:3344:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCTYP__V24*/ meltfptr[20]), 6, "CTYPE_ARGFIELD"); @@ -18623,7 +18819,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:3337:/ locexp"); + ("warmelt-outobj.melt:3345:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ @@ -18635,7 +18831,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; MELT_LOCATION - ("warmelt-outobj.melt:3338:/ checksignal"); + ("warmelt-outobj.melt:3346:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -18662,7 +18858,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:3335:/ quasiblock"); + ("warmelt-outobj.melt:3343:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = @@ -18674,7 +18870,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:3331:/ clear"); + ("warmelt-outobj.melt:3339:/ clear"); /*clear *//*_.CTYPE_ARGFIELD__V33*/ meltfptr[30] = 0; /*^clear */ @@ -18692,7 +18888,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3329:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3337:/ clear"); /*clear *//*_#__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IFELSE___V30*/ meltfptr[29] = 0; @@ -18702,7 +18898,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3340:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3348:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -18710,7 +18906,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3321:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3329:/ clear"); /*clear *//*_.CURCTYP__V24*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V25*/ meltfptr[21] = 0; @@ -18726,7 +18922,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3342:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3350:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18738,7 +18934,7 @@ lab_endgetargs:; melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3343:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3351:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18773,7 +18969,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[16] = (( /*_#STRBUF_USEDLENGTH__L23*/ meltfnum[20]) < ( /*_#GET_INT__L24*/ meltfnum[19]));; - MELT_LOCATION ("warmelt-outobj.melt:3342:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3350:/ cond"); /*cond */ if ( /*_#I__L25*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -18781,7 +18977,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3342:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3350:/ cond.else"); /*^block */ /*anyblock */ @@ -18796,7 +18992,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3342) ? (3342) : __LINE__, + (3350) ? (3350) : __LINE__, __FUNCTION__); ; } @@ -18813,7 +19009,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3342:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3350:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L23*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V37*/ meltfptr[31] = 0; @@ -18836,7 +19032,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3318:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3326:/ clear"); /*clear *//*_.CURARG__V23*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#CURANK__L16*/ meltfnum[15] = 0; @@ -18849,29 +19045,29 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; { - MELT_LOCATION ("warmelt-outobj.melt:3345:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3353:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L26*/ meltfnum[18]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3316:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3324:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3315:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3323:/ clear"); /*clear *//*_#GET_INT__L26*/ meltfnum[18] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3348:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3356:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L27*/ meltfnum[20] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3348:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3356:/ cond"); /*cond */ if ( /*_#I__L27*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -18879,7 +19075,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3352:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ quasiblock"); /*^newclosure */ @@ -18953,7 +19149,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.DECLBUF__V3*/ meltfptr[2]); ; /*_.LAMBDA___V40*/ meltfptr[20] = /*_.LAMBDA___V41*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:3350:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3358:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18972,7 +19168,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3349:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3357:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[27] = @@ -18982,7 +19178,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[29] = /*_.PROGN___V43*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3348:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3356:/ clear"); /*clear *//*_.LAMBDA___V40*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.MULTIPLE_EVERY__V42*/ meltfptr[25] = 0; @@ -19001,7 +19197,7 @@ lab_endgetargs:; /*_#GET_INT__L28*/ meltfnum[19] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-outobj.melt:3376:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3384:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19023,7 +19219,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3380:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3388:/ quasiblock"); /*^newclosure */ @@ -19074,7 +19270,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V16*/ meltfptr[15]); ; /*_.LAMBDA___V45*/ meltfptr[31] = /*_.LAMBDA___V46*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:3378:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19095,7 +19291,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3384:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3392:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" meltgc_send ((melt_ptr_t)(")); @@ -19103,7 +19299,7 @@ lab_endgetargs:; ; /*_#I__L29*/ meltfnum[16] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3385:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3393:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -19127,7 +19323,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3386:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3394:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), ((melt_ptr_t)(")); @@ -19135,7 +19331,7 @@ lab_endgetargs:; ; /*_#I__L30*/ meltfnum[18] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3388:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3396:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -19159,13 +19355,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3389:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3397:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3393:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3401:/ quasiblock"); /*^newclosure */ @@ -19190,7 +19386,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V50*/ meltfptr[49] = /*_.LAMBDA___V51*/ meltfptr[50];; - MELT_LOCATION ("warmelt-outobj.melt:3391:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3399:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19211,18 +19407,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3396:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3404:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3398:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3406:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L31*/ meltfnum[30] = (( /*_#NBARG__L3*/ meltfnum[1]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3398:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3406:/ cond"); /*cond */ if ( /*_#I__L31*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -19232,7 +19428,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3399:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3407:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19245,7 +19441,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3398:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3406:/ cond.else"); /*^block */ /*anyblock */ @@ -19253,7 +19449,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3400:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3408:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19265,7 +19461,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3404:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3412:/ quasiblock"); /*^newclosure */ @@ -19290,7 +19486,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]); ; /*_.LAMBDA___V53*/ meltfptr[52] = /*_.LAMBDA___V54*/ meltfptr[53];; - MELT_LOCATION ("warmelt-outobj.melt:3402:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3410:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19311,18 +19507,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3407:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3415:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"\"), ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3409:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3417:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L32*/ meltfnum[31] = (( /*_#NBXRES__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3409:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3417:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[31]) /*then */ { /*^cond.then */ @@ -19332,7 +19528,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3410:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3418:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19345,7 +19541,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3409:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3417:/ cond.else"); /*^block */ /*anyblock */ @@ -19353,7 +19549,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3411:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3419:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -19367,7 +19563,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3412:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3420:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -19377,14 +19573,14 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3413:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3421:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L33*/ meltfnum[32]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3414:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3422:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("}")); @@ -19392,14 +19588,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3415:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3423:/ 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:3416:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3424:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19410,7 +19606,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L34*/ meltfnum[33] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3417:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3425:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19445,7 +19641,7 @@ lab_endgetargs:; /*_#I__L36*/ meltfnum[35] = (( /*_#STRBUF_USEDLENGTH__L34*/ meltfnum[33]) < ( /*_#GET_INT__L35*/ meltfnum[34]));; - MELT_LOCATION ("warmelt-outobj.melt:3416:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3424:/ cond"); /*cond */ if ( /*_#I__L36*/ meltfnum[35]) /*then */ { /*^cond.then */ @@ -19453,7 +19649,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3416:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3424:/ cond.else"); /*^block */ /*anyblock */ @@ -19467,7 +19663,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3416) ? (3416) : __LINE__, __FUNCTION__); + (3424) ? (3424) : __LINE__, __FUNCTION__); ; } ; @@ -19482,7 +19678,7 @@ lab_endgetargs:; /*_.IFCPP___V56*/ meltfptr[55] = /*_.IFELSE___V58*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3416:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3424:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L34*/ meltfnum[33] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V57*/ meltfptr[56] = 0; @@ -19503,7 +19699,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V56*/ meltfptr[55];; - MELT_LOCATION ("warmelt-outobj.melt:3271:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3279:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODEST__V9*/ meltfptr[8] = 0; @@ -19579,7 +19775,7 @@ lab_endgetargs:; /*clear *//*_#I__L33*/ meltfnum[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V56*/ meltfptr[55] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3269:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19588,7 +19784,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3269:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19677,6 +19873,13 @@ meltrout_88_warmelt_outobj_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_88_warmelt_outobj_LAMBDA___19___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 4; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19692,7 +19895,7 @@ meltrout_88_warmelt_outobj_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3302:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3310:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19708,7 +19911,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3303:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3311:/ quasiblock"); /*^checksignal */ @@ -19728,7 +19931,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3304:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3312:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), 5, "CTYPE_PARSTRING"); @@ -19746,7 +19949,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:3303:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3311:/ clear"); /*clear *//*_.CURESTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.CTYPE_PARSTRING__V4*/ meltfptr[3] = 0; @@ -19821,6 +20024,13 @@ meltrout_89_warmelt_outobj_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_89_warmelt_outobj_LAMBDA___20___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -19836,7 +20046,7 @@ meltrout_89_warmelt_outobj_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3352:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ getarg"); /*_.CURES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19852,7 +20062,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3353:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ quasiblock"); /*^checksignal */ @@ -19874,7 +20084,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3354:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3362:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19886,7 +20096,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:3354:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3362:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19894,7 +20104,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3354:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3362:/ cond.else"); /*^block */ /*anyblock */ @@ -19908,7 +20118,7 @@ lab_endgetargs:; melt_assert_failed (("check curestyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3354) ? (3354) : __LINE__, __FUNCTION__); + (3362) ? (3362) : __LINE__, __FUNCTION__); ; } ; @@ -19923,7 +20133,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3354:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3362:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -19939,7 +20149,7 @@ lab_endgetargs:; /*_#GET_INT__L3*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3355:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3363:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19964,7 +20174,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3356:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3364:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -19973,7 +20183,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3357:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3365:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ( /*_#CURANK__L1*/ meltfnum[0])); @@ -19981,18 +20191,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3358:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3366:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3360:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3368:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[3] = (( /*_.CURES__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3360:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3368:/ cond"); /*cond */ if ( /*_#NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -20004,7 +20214,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3361:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3369:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), @@ -20018,19 +20228,19 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3360:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3368:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3363:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3371:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[4] = (( /*_.CURESTYP__V3*/ meltfptr[2]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3363:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3371:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -20040,7 +20250,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3364:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3372:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -20052,7 +20262,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3365:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3373:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -20077,7 +20287,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3363:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3371:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[9] = @@ -20088,7 +20298,7 @@ lab_endgetargs:; /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3363:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3371:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V9*/ meltfptr[8] = 0; @@ -20104,7 +20314,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:3368:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3376:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURESTYP__V3*/ meltfptr[2]), 7, "CTYPE_RESFIELD"); @@ -20125,7 +20335,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3369:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3377:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos-> @@ -20136,7 +20346,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3370:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3378:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -20161,7 +20371,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3367:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3375:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[12] = @@ -20172,7 +20382,7 @@ lab_endgetargs:; /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3363:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3371:/ clear"); /*clear *//*_.CTYPE_RESFIELD__V11*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_#GET_INT__L7*/ meltfnum[5] = 0; @@ -20187,7 +20397,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3360:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3368:/ clear"); /*clear *//*_#__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -20197,14 +20407,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3372:/ 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:3353:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3361:/ clear"); /*clear *//*_.CURESTYP__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; @@ -20287,6 +20497,13 @@ meltrout_90_warmelt_outobj_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_90_warmelt_outobj_LAMBDA___21___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 3; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20302,7 +20519,7 @@ meltrout_90_warmelt_outobj_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3380:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3388:/ getarg"); /*_.CURDEST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20315,7 +20532,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3381:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3389:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -20341,13 +20558,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3382:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3390:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3380:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3388:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20426,6 +20643,13 @@ meltrout_91_warmelt_outobj_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_91_warmelt_outobj_LAMBDA___22___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20441,7 +20665,7 @@ meltrout_91_warmelt_outobj_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3393:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3401:/ getarg"); /*_.PARD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20453,7 +20677,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3394:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3402:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -20463,13 +20687,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3395:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3403:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3393:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3401:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20543,6 +20767,13 @@ meltrout_92_warmelt_outobj_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_92_warmelt_outobj_LAMBDA___23___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20558,7 +20789,7 @@ meltrout_92_warmelt_outobj_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3404:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3412:/ getarg"); /*_.RESD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20570,7 +20801,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3405:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3413:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), @@ -20580,13 +20811,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3406:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3414:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[0])), (" ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3404:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3412:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20662,6 +20893,13 @@ meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 14; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20677,7 +20915,7 @@ meltrout_93_warmelt_outobj_OUTPUCOD_OBJCLEAR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3424:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ getarg"); /*_.OCLEAR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20715,7 +20953,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3425:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3433:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20727,7 +20965,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:3425:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3433:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20735,7 +20973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3425:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3433:/ cond.else"); /*^block */ /*anyblock */ @@ -20749,7 +20987,7 @@ lab_endgetargs:; melt_assert_failed (("check oclear"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3425) ? (3425) : __LINE__, __FUNCTION__); + (3433) ? (3433) : __LINE__, __FUNCTION__); ; } ; @@ -20764,7 +21002,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3425:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3433:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -20775,7 +21013,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3426:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3434:/ quasiblock"); /*^getslot */ @@ -20786,7 +21024,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3427:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3435:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCLEAR__V2*/ meltfptr[1]), 1, "OCLR_VLOC"); @@ -20794,7 +21032,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3429:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3437:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20818,7 +21056,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3430:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3438:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*clear*/ ")); @@ -20826,7 +21064,7 @@ lab_endgetargs:; ; /*_#I__L3*/ meltfnum[1] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:3431:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3439:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -20850,7 +21088,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3432:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3440:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = 0 ")); @@ -20858,7 +21096,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3433:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3441:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20869,7 +21107,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3434:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3442:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20904,7 +21142,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:3433:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3441:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -20912,7 +21150,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3433:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3441:/ cond.else"); /*^block */ /*anyblock */ @@ -20926,7 +21164,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3433) ? (3433) : __LINE__, __FUNCTION__); + (3441) ? (3441) : __LINE__, __FUNCTION__); ; } ; @@ -20941,7 +21179,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3433:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3441:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V13*/ meltfptr[12] = 0; @@ -20962,7 +21200,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:3426:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3434:/ clear"); /*clear *//*_.CLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.CVL__V9*/ meltfptr[8] = 0; @@ -20974,7 +21212,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.IFCPP___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3424:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20983,7 +21221,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3424:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21075,6 +21313,13 @@ meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 26; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21090,7 +21335,7 @@ meltrout_94_warmelt_outobj_OUTPUCOD_OBJRAWALLOCOBJ (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3440:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ getarg"); /*_.ORALOB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21128,7 +21373,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3441:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3449:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21140,7 +21385,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:3441:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3449:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21148,7 +21393,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3441:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3449:/ cond.else"); /*^block */ /*anyblock */ @@ -21162,7 +21407,7 @@ lab_endgetargs:; melt_assert_failed (("check oralob"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3441) ? (3441) : __LINE__, __FUNCTION__); + (3449) ? (3449) : __LINE__, __FUNCTION__); ; } ; @@ -21177,7 +21422,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3441:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3449:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21188,7 +21433,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3442:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3450:/ quasiblock"); /*^getslot */ @@ -21199,7 +21444,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3443:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3451:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 2, "OBRALLOBJ_CLASS"); @@ -21207,7 +21452,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3444:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3452:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 4, "OBRALLOBJ_CLASSNAME"); @@ -21215,7 +21460,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3445:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3453:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 3, "OBRALLOBJ_LEN"); @@ -21223,7 +21468,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3446:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3454:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ORALOB__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -21241,7 +21486,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3449:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3457:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21253,7 +21498,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:3449:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3457:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -21261,7 +21506,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3449:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3457:/ cond.else"); /*^block */ /*anyblock */ @@ -21275,7 +21520,7 @@ lab_endgetargs:; melt_assert_failed (("outpucod_objrawallocobj check iclass"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3449) ? (3449) : __LINE__, __FUNCTION__); + (3457) ? (3457) : __LINE__, __FUNCTION__); ; } ; @@ -21290,7 +21535,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3449:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3457:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -21301,7 +21546,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3450:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3458:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21325,7 +21570,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3451:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3459:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*rawallocobj*/ { melt_ptr_t newobj = 0;")); @@ -21335,14 +21580,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3452:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3460:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[3]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3453:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3461:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_raw_object_create(newobj,(melt_ptr_t)(")); @@ -21350,7 +21595,7 @@ lab_endgetargs:; ; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; - MELT_LOCATION ("warmelt-outobj.melt:3454:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3462:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21374,7 +21619,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3455:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3463:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); @@ -21382,7 +21627,7 @@ lab_endgetargs:; ; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; - MELT_LOCATION ("warmelt-outobj.melt:3456:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3464:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21406,7 +21651,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3457:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3465:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), \"")); @@ -21414,7 +21659,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3458:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3466:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.ICLANAME__V9*/ @@ -21423,7 +21668,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3459:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3467:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\");")); @@ -21447,7 +21692,7 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3463:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3471:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L8*/ meltfnum[7]), 0); @@ -21456,7 +21701,7 @@ lab_endgetargs:; /*_#GET_INT__L9*/ meltfnum[8] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11])));; - MELT_LOCATION ("warmelt-outobj.melt:3464:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3472:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -21482,7 +21727,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3465:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3473:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21493,7 +21738,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3466:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3474:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21528,7 +21773,7 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9]) < ( /*_#GET_INT__L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:3465:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3473:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -21536,7 +21781,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3465:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3473:/ cond.else"); /*^block */ /*anyblock */ @@ -21550,7 +21795,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3465) ? (3465) : __LINE__, + (3473) ? (3473) : __LINE__, __FUNCTION__); ; } @@ -21566,7 +21811,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3465:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3473:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -21585,7 +21830,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3467:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3475:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" =")); @@ -21598,7 +21843,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:3460:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3468:/ clear"); /*clear *//*_.DSTPAIR__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.DST__V19*/ meltfptr[18] = 0; @@ -21613,7 +21858,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:3442:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3450:/ clear"); /*clear *//*_.ILOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.ICLASS__V8*/ meltfptr[7] = 0; @@ -21645,14 +21890,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3468:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3476:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L13*/ meltfnum[9]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3469:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3477:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("newobj; };")); @@ -21660,14 +21905,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3470:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3478:/ 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:3471:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3479:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21678,7 +21923,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[10] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3472:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3480:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21713,7 +21958,7 @@ lab_endgetargs:; /*_#I__L16*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L14*/ meltfnum[10]) < ( /*_#GET_INT__L15*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-outobj.melt:3471:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3479:/ cond"); /*cond */ if ( /*_#I__L16*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21721,7 +21966,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3471:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3479:/ cond.else"); /*^block */ /*anyblock */ @@ -21735,7 +21980,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3471) ? (3471) : __LINE__, __FUNCTION__); + (3479) ? (3479) : __LINE__, __FUNCTION__); ; } ; @@ -21750,7 +21995,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[21] = /*_.IFELSE___V26*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3471:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3479:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V25*/ meltfptr[22] = 0; @@ -21767,7 +22012,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[21] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3440:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21776,7 +22021,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V24*/ meltfptr[21];; { - MELT_LOCATION ("warmelt-outobj.melt:3440:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21870,6 +22115,13 @@ meltrout_95_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_95_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -21885,7 +22137,7 @@ meltrout_95_warmelt_outobj_OUTPUCOD_OBJNEWCLOSURE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3478:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ getarg"); /*_.OBNCLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21923,7 +22175,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3479:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3487:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21935,7 +22187,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:3479:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3487:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21943,7 +22195,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3479:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3487:/ cond.else"); /*^block */ /*anyblock */ @@ -21957,7 +22209,7 @@ lab_endgetargs:; melt_assert_failed (("check oralob"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3479) ? (3479) : __LINE__, __FUNCTION__); + (3487) ? (3487) : __LINE__, __FUNCTION__); ; } ; @@ -21972,7 +22224,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3479:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3487:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21983,7 +22235,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3480:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3488:/ quasiblock"); /*^getslot */ @@ -21994,7 +22246,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3481:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3489:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 2, "OBNCLO_DISCR"); @@ -22002,7 +22254,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3482:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3490:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 3, "OBNCLO_ROUT"); @@ -22010,7 +22262,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3483:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3491:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 4, "OBNCLO_LEN"); @@ -22018,7 +22270,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3484:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3492:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OBNCLO__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -22034,7 +22286,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3487:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3495:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22058,13 +22310,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3488:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3496:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" /*newclosure*/ ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3491:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ quasiblock"); /*^newclosure */ @@ -22115,7 +22367,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12]); ; /*_.LAMBDA___V15*/ meltfptr[14] = /*_.LAMBDA___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:3489:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3497:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22138,14 +22390,14 @@ lab_endgetargs:; (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:3496:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3504:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L4*/ meltfnum[3]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3497:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3505:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("(melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(")); @@ -22153,7 +22405,7 @@ lab_endgetargs:; ; /*_#GET_INT__L5*/ meltfnum[4] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; - MELT_LOCATION ("warmelt-outobj.melt:3498:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3506:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22177,7 +22429,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3499:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3507:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (meltroutine_ptr_t)(")); @@ -22185,7 +22437,7 @@ lab_endgetargs:; ; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; - MELT_LOCATION ("warmelt-outobj.melt:3500:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3508:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22209,7 +22461,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3501:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3509:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); @@ -22217,7 +22469,7 @@ lab_endgetargs:; ; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V13*/ meltfptr[12])));; - MELT_LOCATION ("warmelt-outobj.melt:3502:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3510:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22241,7 +22493,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3503:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3511:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -22249,14 +22501,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3504:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3512:/ 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:3505:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3513:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22267,7 +22519,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3506:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3514:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22302,7 +22554,7 @@ lab_endgetargs:; /*_#I__L10*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7]) < ( /*_#GET_INT__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:3505:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3513:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -22310,7 +22562,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3505:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3513:/ cond.else"); /*^block */ /*anyblock */ @@ -22324,7 +22576,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3505) ? (3505) : __LINE__, __FUNCTION__); + (3513) ? (3513) : __LINE__, __FUNCTION__); ; } ; @@ -22339,7 +22591,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3505:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3513:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -22360,7 +22612,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3480:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3488:/ clear"); /*clear *//*_.ILOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODISCR__V9*/ meltfptr[8] = 0; @@ -22396,7 +22648,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3478:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22405,7 +22657,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3478:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22494,6 +22746,13 @@ meltrout_96_warmelt_outobj_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_96_warmelt_outobj_LAMBDA___24___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22509,7 +22768,7 @@ meltrout_96_warmelt_outobj_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3491:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ getarg"); /*_.DST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -22522,7 +22781,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3492:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22548,7 +22807,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3493:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3501:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22559,7 +22818,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3494:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3502:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22594,7 +22853,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:3493:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3501:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -22602,7 +22861,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3493:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3501:/ cond.else"); /*^block */ /*anyblock */ @@ -22616,7 +22875,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3493) ? (3493) : __LINE__, __FUNCTION__); + (3501) ? (3501) : __LINE__, __FUNCTION__); ; } ; @@ -22631,7 +22890,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3493:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3501:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -22650,13 +22909,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3495:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3503:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" =")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3491:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -22739,6 +22998,13 @@ meltrout_97_warmelt_outobj_OUTPUCOD_OBJTOUCH (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_97_warmelt_outobj_OUTPUCOD_OBJTOUCH_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22754,7 +23020,7 @@ meltrout_97_warmelt_outobj_OUTPUCOD_OBJTOUCH (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3511:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ getarg"); /*_.OTOUCH__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22792,7 +23058,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3512:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3520:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22804,7 +23070,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:3512:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3520:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22812,7 +23078,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3512:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3520:/ cond.else"); /*^block */ /*anyblock */ @@ -22826,7 +23092,7 @@ lab_endgetargs:; melt_assert_failed (("check oclear"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3512) ? (3512) : __LINE__, __FUNCTION__); + (3520) ? (3520) : __LINE__, __FUNCTION__); ; } ; @@ -22841,7 +23107,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3512:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3520:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -22852,7 +23118,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3513:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3521:/ quasiblock"); /*^getslot */ @@ -22863,7 +23129,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3514:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3522:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OTOUCH__V2*/ meltfptr[1]), 1, "OTOUCH_VAL"); @@ -22871,7 +23137,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3515:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3523:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OTOUCH__V2*/ meltfptr[1]), 2, "OTOUCH_COMMENT"); @@ -22879,7 +23145,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3517:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22901,7 +23167,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3518:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3526:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -22914,7 +23180,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3520:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3528:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -22923,7 +23189,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3521:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3529:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -22933,7 +23199,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3522:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3530:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -22941,13 +23207,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3523:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3531:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3519:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3527:/ quasiblock"); /*epilog */ @@ -22957,13 +23223,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3525:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3533:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("meltgc_touch(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3526:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3534:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -22987,7 +23253,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3527:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3535:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -22995,13 +23261,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3528:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3536:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3513:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3521:/ clear"); /*clear *//*_.ILOC__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.TOUCHED__V8*/ meltfptr[7] = 0; @@ -23011,7 +23277,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3511:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -23090,6 +23356,13 @@ meltrout_98_warmelt_outobj_OUTPUCOD_OBJPUTUPLE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_98_warmelt_outobj_OUTPUCOD_OBJPUTUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -23105,7 +23378,7 @@ meltrout_98_warmelt_outobj_OUTPUCOD_OBJPUTUPLE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3536:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ getarg"); /*_.OPTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23143,7 +23416,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3537:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3545:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23155,7 +23428,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:3537:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3545:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23163,7 +23436,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3537:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3545:/ cond.else"); /*^block */ /*anyblock */ @@ -23177,7 +23450,7 @@ lab_endgetargs:; melt_assert_failed (("check optyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3537) ? (3537) : __LINE__, __FUNCTION__); + (3545) ? (3545) : __LINE__, __FUNCTION__); ; } ; @@ -23192,7 +23465,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3537:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3545:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -23203,7 +23476,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3538:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3546:/ quasiblock"); /*^getslot */ @@ -23214,7 +23487,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3539:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3547:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), 1, "OPUTU_TUPLED"); @@ -23222,7 +23495,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3540:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3548:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), 2, "OPUTU_OFFSET"); @@ -23231,7 +23504,7 @@ lab_endgetargs:; }; ; /*_#UNIQRANK__L3*/ meltfnum[1] = 0;; - MELT_LOCATION ("warmelt-outobj.melt:3542:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3550:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPTUP__V2*/ meltfptr[1]), 3, "OPUTU_VALUE"); @@ -23241,17 +23514,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3545:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3553:/ locexp"); static long UNIQRANKSET__1_cnt; UNIQRANKSET__1_cnt++; /*_#UNIQRANK__L3*/ meltfnum[1] = UNIQRANKSET__1_cnt; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3551:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3559:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:3549:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3557:/ quasiblock"); /*^multiapply */ @@ -23273,7 +23546,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-outobj.melt:3552:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3560:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23297,7 +23570,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3553:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3561:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putupl")); @@ -23305,7 +23578,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3554:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3562:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); @@ -23313,14 +23586,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3555:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3563:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#UNIQRANK__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3556:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3564:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -23328,20 +23601,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3557:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3565:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3558:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3566:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putupl ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3559:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3567:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L4*/ meltfnum[3] = @@ -23350,7 +23623,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#GET_INT__L4*/ meltfnum[3]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3559:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3567:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -23360,7 +23633,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3561:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3569:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("[")); @@ -23368,7 +23641,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3562:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3570:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -23379,7 +23652,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3563:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3571:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":")); @@ -23389,7 +23662,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LINEV__V13*/ meltfptr[12])));; { - MELT_LOCATION ("warmelt-outobj.melt:3564:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3572:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); @@ -23397,18 +23670,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3565:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3573:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3560:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3568:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3559:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3567:/ clear"); /*clear *//*_#GET_INT__L6*/ meltfnum[5] = 0; } ; @@ -23416,7 +23689,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3567:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3575:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); @@ -23424,20 +23697,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3568:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3576:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#UNIQRANK__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3569:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3577:/ 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:3570:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3578:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23461,7 +23734,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3571:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3579:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_MULTIPLE);")); @@ -23469,20 +23742,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3572:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3580:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3573:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3581:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putupl ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3574:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3582:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L7*/ meltfnum[5] = @@ -23491,7 +23764,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[7] = (( /*_#GET_INT__L7*/ meltfnum[5]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:3574:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3582:/ cond"); /*cond */ if ( /*_#I__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23501,7 +23774,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3576:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3584:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("[")); @@ -23509,7 +23782,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3577:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3585:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -23520,7 +23793,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3578:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3586:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (":")); @@ -23530,7 +23803,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.LINEV__V13*/ meltfptr[12])));; { - MELT_LOCATION ("warmelt-outobj.melt:3579:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3587:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L9*/ meltfnum[8])); @@ -23538,18 +23811,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3580:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3588:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3575:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3583:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3574:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3582:/ clear"); /*clear *//*_#GET_INT__L9*/ meltfnum[8] = 0; } ; @@ -23557,7 +23830,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3582:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3590:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); @@ -23565,20 +23838,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3583:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3591:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#UNIQRANK__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3584:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3592:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checkoff\", (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3585:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3593:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23602,13 +23875,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3586:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3594:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (">=0 && ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3587:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23632,13 +23905,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3588:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3596:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("< melt_multiple_length((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3589:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3597:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23662,7 +23935,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3590:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3598:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))));")); @@ -23670,20 +23943,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3591:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3599:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3592:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3600:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltmultiple_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3593:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3601:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23707,13 +23980,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3594:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3602:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->tabval[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3595:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3603:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23737,13 +24010,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3596:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3604:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] = (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3597:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3605:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -23767,7 +24040,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3598:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3606:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -23775,14 +24048,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3599:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3607:/ 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:3600:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3608:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23793,7 +24066,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[8] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3601:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3609:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23828,7 +24101,7 @@ lab_endgetargs:; /*_#I__L12*/ meltfnum[11] = (( /*_#STRBUF_USEDLENGTH__L10*/ meltfnum[8]) < ( /*_#GET_INT__L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-outobj.melt:3600:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3608:/ cond"); /*cond */ if ( /*_#I__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -23836,7 +24109,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3600:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3608:/ cond.else"); /*^block */ /*anyblock */ @@ -23850,7 +24123,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3600) ? (3600) : __LINE__, __FUNCTION__); + (3608) ? (3608) : __LINE__, __FUNCTION__); ; } ; @@ -23865,7 +24138,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3600:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3608:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[23] = 0; @@ -23882,12 +24155,12 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3549:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3557:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V12*/ meltfptr[11] = /*_.IFCPP___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-outobj.melt:3549:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3557:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_#GET_INT__L4*/ meltfnum[3] = 0; @@ -23918,7 +24191,7 @@ lab_endgetargs:; /*clear *//*_.FILEV__V14*/ meltfptr[13] = 0; /*_.LET___V7*/ meltfptr[5] = /*_.MULTI___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:3538:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3546:/ clear"); /*clear *//*_.ILOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OTUP__V9*/ meltfptr[8] = 0; @@ -23930,7 +24203,7 @@ lab_endgetargs:; /*clear *//*_.OVAL__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.MULTI___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3536:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23939,7 +24212,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3536:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24031,6 +24304,13 @@ meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTPAIRHEAD (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTPAIRHEAD_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 17; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24046,7 +24326,7 @@ meltrout_99_warmelt_outobj_OUTPUCOD_OBJPUTPAIRHEAD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3610:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ getarg"); /*_.OPUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24082,7 +24362,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3611:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3619:/ quasiblock"); /*^getslot */ @@ -24093,7 +24373,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3612:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3620:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24118,7 +24398,7 @@ lab_endgetargs:; /*_.OPAIR__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3613:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3621:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24142,7 +24422,7 @@ lab_endgetargs:; /*_.OHEAD__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3614:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3622:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24179,7 +24459,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:3617:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3625:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24203,7 +24483,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3618:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3626:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putpairhead*/")); @@ -24211,12 +24491,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3619:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3627:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3620:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3628:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -24256,7 +24536,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3621:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3629:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putpairhead /")); @@ -24266,20 +24546,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.NEWCOUNT__V10*/ meltfptr[9])));; { - MELT_LOCATION ("warmelt-outobj.melt:3622:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3630:/ locexp"); meltgc_add_strbuf_hex ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L2*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3623:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3631:/ 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:3624:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3632:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24303,7 +24583,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3625:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3633:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_PAIR);")); @@ -24311,20 +24591,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3626:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3634:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3627:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3635:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltpair_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3628:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3636:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24348,13 +24628,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3629:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3637:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->hd = (melt_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3630:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3638:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24378,7 +24658,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3631:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3639:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -24386,14 +24666,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3632:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3640:/ 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:3633:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3641:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24404,7 +24684,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3634:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3642:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24439,7 +24719,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3633:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3641:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24447,7 +24727,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3633:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3641:/ cond.else"); /*^block */ /*anyblock */ @@ -24461,7 +24741,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3633) ? (3633) : __LINE__, __FUNCTION__); + (3641) ? (3641) : __LINE__, __FUNCTION__); ; } ; @@ -24476,7 +24756,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3633:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3641:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V16*/ meltfptr[15] = 0; @@ -24497,7 +24777,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-outobj.melt:3611:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3619:/ clear"); /*clear *//*_.OLOC__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OPAIR__V7*/ meltfptr[6] = 0; @@ -24519,13 +24799,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V15*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3610:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; { - MELT_LOCATION ("warmelt-outobj.melt:3610:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24618,6 +24898,13 @@ meltrout_100_warmelt_outobj_OUTPUCOD_OBJPUTPAIRTAIL (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_100_warmelt_outobj_OUTPUCOD_OBJPUTPAIRTAIL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24633,7 +24920,7 @@ meltrout_100_warmelt_outobj_OUTPUCOD_OBJPUTPAIRTAIL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3639:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ getarg"); /*_.OPUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24669,7 +24956,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3640:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3648:/ quasiblock"); /*^getslot */ @@ -24680,7 +24967,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3641:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3649:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24705,7 +24992,7 @@ lab_endgetargs:; /*_.OPAIR__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3642:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3650:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24729,7 +25016,7 @@ lab_endgetargs:; /*_.OTAIL__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3644:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3652:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24753,7 +25040,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3645:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3653:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putpairtail*/")); @@ -24761,14 +25048,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3646:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3654:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3647:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3655:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putpairtail /")); @@ -24778,20 +25065,20 @@ lab_endgetargs:; (melt_obj_hash ((melt_ptr_t) ( /*_.OPUT__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:3648:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3656:/ locexp"); meltgc_add_strbuf_hex ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#OBJ_HASH__L2*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3649:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3657:/ 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:3650:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3658:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24815,7 +25102,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3651:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3659:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_PAIR);")); @@ -24823,20 +25110,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3652:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3660:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3653:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3661:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltpair_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3654:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24860,13 +25147,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3655:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3663:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->tl = (meltpair_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3656:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3664:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -24890,7 +25177,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3657:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3665:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -24898,14 +25185,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3658:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3666:/ 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:3659:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3667:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24916,7 +25203,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3660:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3668:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24951,7 +25238,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3659:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3667:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24959,7 +25246,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3659:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3667:/ cond.else"); /*^block */ /*anyblock */ @@ -24973,7 +25260,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3659) ? (3659) : __LINE__, __FUNCTION__); + (3667) ? (3667) : __LINE__, __FUNCTION__); ; } ; @@ -24988,7 +25275,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3659:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3667:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[13] = 0; @@ -25009,7 +25296,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V13*/ meltfptr[12];; - MELT_LOCATION ("warmelt-outobj.melt:3640:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3648:/ clear"); /*clear *//*_.OLOC__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OPAIR__V7*/ meltfptr[6] = 0; @@ -25027,13 +25314,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[12] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3639:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; { - MELT_LOCATION ("warmelt-outobj.melt:3639:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25122,6 +25409,13 @@ meltrout_101_warmelt_outobj_OUTPUCOD_OBJPUTLIST (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_101_warmelt_outobj_OUTPUCOD_OBJPUTLIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25137,7 +25431,7 @@ meltrout_101_warmelt_outobj_OUTPUCOD_OBJPUTLIST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3665:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ getarg"); /*_.OPUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25173,7 +25467,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:3666:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3674:/ quasiblock"); /*^getslot */ @@ -25184,7 +25478,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3667:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3675:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25209,7 +25503,7 @@ lab_endgetargs:; /*_.OLIST__V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3668:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3676:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25234,7 +25528,7 @@ lab_endgetargs:; /*_.OFIRST__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3669:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3677:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25259,7 +25553,7 @@ lab_endgetargs:; /*_.OLAST__V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3671:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3679:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25283,7 +25577,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3672:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3680:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putlist*/")); @@ -25291,20 +25585,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3673:/ 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:3674:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3682:/ 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:3675:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3683:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25328,7 +25622,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3676:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3684:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))== MELTOBMAG_LIST);")); @@ -25336,20 +25630,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3677:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3685:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3678:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3686:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltlist_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3679:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3687:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25373,13 +25667,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3680:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3688:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->first = (meltpair_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3681:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3689:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25403,7 +25697,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3682:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3690:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -25411,20 +25705,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3683:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3691:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3684:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3692:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltlist_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3685:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25448,13 +25742,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3686:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3694:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->last = (meltpair_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3687:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3695:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25478,7 +25772,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3688:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3696:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -25486,14 +25780,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3689:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3697:/ 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:3690:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3698:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25504,7 +25798,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3691:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3699:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25539,7 +25833,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:3690:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3698:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -25547,7 +25841,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3690:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3698:/ cond.else"); /*^block */ /*anyblock */ @@ -25561,7 +25855,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3690) ? (3690) : __LINE__, __FUNCTION__); + (3698) ? (3698) : __LINE__, __FUNCTION__); ; } ; @@ -25576,7 +25870,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3690:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3698:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V17*/ meltfptr[16] = 0; @@ -25597,7 +25891,7 @@ lab_endgetargs:; /*_.LET___V5*/ meltfptr[4] = /*_.IFCPP___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:3666:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3674:/ clear"); /*clear *//*_.OLOC__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OLIST__V7*/ meltfptr[6] = 0; @@ -25619,13 +25913,13 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3665:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; { - MELT_LOCATION ("warmelt-outobj.melt:3665:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25714,6 +26008,13 @@ meltrout_102_warmelt_outobj_OUTPUCOD_OBJGETSLOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_102_warmelt_outobj_OUTPUCOD_OBJGETSLOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -25729,7 +26030,7 @@ meltrout_102_warmelt_outobj_OUTPUCOD_OBJGETSLOT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3696:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ getarg"); /*_.OGSL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25767,7 +26068,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3697:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3705:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25779,7 +26080,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:3697:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3705:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25787,7 +26088,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3697:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3705:/ cond.else"); /*^block */ /*anyblock */ @@ -25801,7 +26102,7 @@ lab_endgetargs:; melt_assert_failed (("check ogsl"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3697) ? (3697) : __LINE__, __FUNCTION__); + (3705) ? (3705) : __LINE__, __FUNCTION__); ; } ; @@ -25816,7 +26117,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3697:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3705:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -25827,7 +26128,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3698:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3706:/ quasiblock"); /*^getslot */ @@ -25838,7 +26139,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3699:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3707:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), 1, "OBDI_DESTLIST"); @@ -25846,7 +26147,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3700:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3708:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), 2, "OGETSL_OBJ"); @@ -25854,7 +26155,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3701:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3709:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OGSL__V2*/ meltfptr[1]), 3, "OGETSL_FIELD"); @@ -25872,7 +26173,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3704:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3712:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25884,7 +26185,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:3704:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3712:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -25892,7 +26193,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3704:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3712:/ cond.else"); /*^block */ /*anyblock */ @@ -25906,7 +26207,7 @@ lab_endgetargs:; melt_assert_failed (("check ofield"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3704) ? (3704) : __LINE__, __FUNCTION__); + (3712) ? (3712) : __LINE__, __FUNCTION__); ; } ; @@ -25921,7 +26222,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3704:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3712:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -25932,7 +26233,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3705:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3713:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25956,7 +26257,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3706:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3714:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{ melt_ptr_t slot=0;")); @@ -25966,20 +26267,20 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3707:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3715:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L5*/ meltfnum[3]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3708:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3716:/ 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:3709:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3717:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26003,7 +26304,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3710:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3718:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), ")); @@ -26013,20 +26314,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10])));; { - MELT_LOCATION ("warmelt-outobj.melt:3711:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3719:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3712:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3720:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (", \"")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3713:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3721:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -26046,13 +26347,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3714:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3722:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3717:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ quasiblock"); /*^newclosure */ @@ -26103,7 +26404,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BOXDEPTHP1__V12*/ meltfptr[11]); ; /*_.LAMBDA___V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:3715:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3723:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26124,7 +26425,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3722:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3730:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("slot; };")); @@ -26132,14 +26433,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3723:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3731:/ 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:3724:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3732:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26150,7 +26451,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3725:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3733:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26185,7 +26486,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:3724:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3732:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -26193,7 +26494,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3724:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3732:/ cond.else"); /*^block */ /*anyblock */ @@ -26207,7 +26508,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3724) ? (3724) : __LINE__, __FUNCTION__); + (3732) ? (3732) : __LINE__, __FUNCTION__); ; } ; @@ -26222,7 +26523,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3724:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3732:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -26243,7 +26544,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3698:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3706:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.DESTLIST__V9*/ meltfptr[8] = 0; @@ -26273,7 +26574,7 @@ lab_endgetargs:; /*clear *//*_.LIST_EVERY__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3696:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26282,7 +26583,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3696:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26371,6 +26672,13 @@ meltrout_103_warmelt_outobj_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_103_warmelt_outobj_LAMBDA___25___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26386,7 +26694,7 @@ meltrout_103_warmelt_outobj_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3717:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ getarg"); /*_.DST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -26399,7 +26707,7 @@ lab_endgetargs:; /*_#GET_INT__L1*/ meltfnum[0] = (melt_get_int ((melt_ptr_t) (( /*~BOXDEPTHP1 */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-outobj.melt:3718:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3726:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -26425,7 +26733,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3719:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3727:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26436,7 +26744,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3720:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3728:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26471,7 +26779,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1]) < ( /*_#GET_INT__L3*/ meltfnum[2]));; - MELT_LOCATION ("warmelt-outobj.melt:3719:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3727:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26479,7 +26787,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3719:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3727:/ cond.else"); /*^block */ /*anyblock */ @@ -26493,7 +26801,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3719) ? (3719) : __LINE__, __FUNCTION__); + (3727) ? (3727) : __LINE__, __FUNCTION__); ; } ; @@ -26508,7 +26816,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3719:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3727:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V5*/ meltfptr[4] = 0; @@ -26527,13 +26835,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3721:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3729:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~IMPLBUF */ meltfclos->tabval[1])), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3717:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -26616,6 +26924,13 @@ meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTSLOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTSLOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26631,7 +26946,7 @@ meltrout_104_warmelt_outobj_OUTPUCOD_OBJPUTSLOT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3732:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ getarg"); /*_.OPSLO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26669,7 +26984,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3733:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3741:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26681,7 +26996,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:3733:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3741:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26689,7 +27004,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3733:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3741:/ cond.else"); /*^block */ /*anyblock */ @@ -26703,7 +27018,7 @@ lab_endgetargs:; melt_assert_failed (("check opslo"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3733) ? (3733) : __LINE__, __FUNCTION__); + (3741) ? (3741) : __LINE__, __FUNCTION__); ; } ; @@ -26718,7 +27033,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3733:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3741:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -26729,7 +27044,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3734:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3742:/ quasiblock"); /*^getslot */ @@ -26740,7 +27055,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3735:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3743:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 1, "OSLOT_ODATA"); @@ -26748,7 +27063,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3736:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3744:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 2, "OSLOT_OFFSET"); @@ -26756,7 +27071,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3737:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3745:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 3, "OSLOT_FIELD"); @@ -26764,7 +27079,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3738:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3746:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPSLO__V2*/ meltfptr[1]), 4, "OSLOT_VALUE"); @@ -26774,7 +27089,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3740:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3748:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26790,7 +27105,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!( /*_#IS_A__L3*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:3740:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3748:/ cond"); /*cond */ if ( /*_#NOT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26798,7 +27113,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3740:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3748:/ cond.else"); /*^block */ /*anyblock */ @@ -26812,7 +27127,7 @@ lab_endgetargs:; melt_assert_failed (("outpucod_objputslot check oval not nrep"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3740) ? (3740) : __LINE__, __FUNCTION__); + (3748) ? (3748) : __LINE__, __FUNCTION__); ; } ; @@ -26827,7 +27142,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3740:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3748:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L4*/ meltfnum[3] = 0; @@ -26840,7 +27155,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3741:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3749:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26864,7 +27179,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3742:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3750:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putslot*/")); @@ -26872,27 +27187,27 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3743:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3751:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3744:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3752:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putslot checkobj")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3745:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3753:/ 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:3745:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3753:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26902,13 +27217,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3747:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3755:/ 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:3756:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ODATA__V9*/ meltfptr[8]), 1, "NAMED_NAME"); @@ -26927,25 +27242,25 @@ lab_endgetargs:; meltfptr[15]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3746:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3754:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3745:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3753:/ clear"); /*clear *//*_.NAMED_NAME__V16*/ meltfptr[15] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3749:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3757:/ 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:3749:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3757:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26955,13 +27270,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3751:/ 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:3752:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3760:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -26980,12 +27295,12 @@ lab_endgetargs:; meltfptr[15]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3750:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3758:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3749:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3757:/ clear"); /*clear *//*_.NAMED_NAME__V17*/ meltfptr[15] = 0; } ; @@ -26993,13 +27308,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3753:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3761:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3754:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3762:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27023,7 +27338,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3755:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3763:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_OBJECT);")); @@ -27031,19 +27346,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3756:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3764:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:3757:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3765:/ 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:3757:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3765:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -27053,14 +27368,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3759:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3767:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_putfield_object((")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3760:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3768:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27086,13 +27401,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3761:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3769:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3762:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3770:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27118,7 +27433,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3763:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3771:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("), (")); @@ -27126,7 +27441,7 @@ lab_endgetargs:; ; /*_#I__L8*/ meltfnum[7] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3764:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3772:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27152,13 +27467,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3765:/ 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:3766:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3774:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -27178,18 +27493,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3767:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3775:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3758:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3766:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3757:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3765:/ clear"); /*clear *//*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; @@ -27211,7 +27526,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3771:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3779:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -27219,21 +27534,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3772:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3780:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putslot checkoff")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3773:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3781:/ 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:3773:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3781:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -27243,14 +27558,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3775:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3783:/ 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:3784:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ODATA__V9*/ meltfptr[8]), 1, "NAMED_NAME"); @@ -27268,18 +27583,18 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V23*/ meltfptr[18]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3774:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3782:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3773:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3781:/ clear"); /*clear *//*_.NAMED_NAME__V23*/ meltfptr[18] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:3777:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3785:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = @@ -27287,7 +27602,7 @@ lab_endgetargs:; ( /*_.OFIELD__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:3777:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3785:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -27297,14 +27612,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:3779:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3787:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" @")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3780:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3788:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OFIELD__V11*/ meltfptr[10]), 1, "NAMED_NAME"); @@ -27322,12 +27637,12 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V24*/ meltfptr[19]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:3778:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3786:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3777:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3785:/ clear"); /*clear *//*_.NAMED_NAME__V24*/ meltfptr[19] = 0; } ; @@ -27335,13 +27650,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3781:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3789:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3782:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3790:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27367,14 +27682,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3783:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3791:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (">=0 && ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3784:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3792:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27400,14 +27715,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3785:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3793:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("< melt_object_length((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3786:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3794:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27433,7 +27748,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3787:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3795:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))));")); @@ -27441,7 +27756,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3788:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3796:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -27449,14 +27764,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3789:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3797:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltobject_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3790:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3798:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27482,14 +27797,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3791:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3799:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("))->obj_vartab[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3792:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3800:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27515,7 +27830,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3793:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3801:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -27526,7 +27841,7 @@ lab_endgetargs:; ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; { - MELT_LOCATION ("warmelt-outobj.melt:3794:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3802:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#I__L11*/ meltfnum[10]), 0); @@ -27534,7 +27849,7 @@ lab_endgetargs:; ; /*_#I__L12*/ meltfnum[11] = ((1) + ( /*_#DEPTH__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:3795:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3803:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -27560,18 +27875,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3796:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3804:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3769:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3777:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3757:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3765:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; @@ -27597,14 +27912,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3799:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3807:/ 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:3800:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3808:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27615,7 +27930,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3801:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3809:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27650,7 +27965,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[10] = (( /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[7]) < ( /*_#GET_INT__L14*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:3800:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3808:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -27658,7 +27973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3800:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3808:/ cond.else"); /*^block */ /*anyblock */ @@ -27672,7 +27987,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3800) ? (3800) : __LINE__, __FUNCTION__); + (3808) ? (3808) : __LINE__, __FUNCTION__); ; } ; @@ -27687,7 +28002,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[20] = /*_.IFELSE___V33*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3800:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3808:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L13*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V32*/ meltfptr[21] = 0; @@ -27708,7 +28023,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V31*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3734:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3742:/ clear"); /*clear *//*_.ILOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ODATA__V9*/ meltfptr[8] = 0; @@ -27732,7 +28047,7 @@ lab_endgetargs:; /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3732:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27741,7 +28056,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3732:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-outobj+04.c b/gcc/melt/generated/warmelt-outobj+04.c index c76e2de8196..6e1a534413c 100644 --- a/gcc/melt/generated/warmelt-outobj+04.c +++ b/gcc/melt/generated/warmelt-outobj+04.c @@ -2275,6 +2275,13 @@ meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 18; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2290,7 +2297,7 @@ meltrout_105_warmelt_outobj_OUTPUCOD_OBJPUTCLOSUROUT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3807:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ getarg"); /*_.OPCLOR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2328,7 +2335,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3808:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3816:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2340,7 +2347,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPCLOR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTCLOSUROUT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3808:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3816:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2348,7 +2355,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3808:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3816:/ cond.else"); /*^block */ /*anyblock */ @@ -2362,7 +2369,7 @@ lab_endgetargs:; melt_assert_failed (("check opclor"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3808) ? (3808) : __LINE__, __FUNCTION__); + (3816) ? (3816) : __LINE__, __FUNCTION__); ; } ; @@ -2377,7 +2384,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3808:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3816:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -2388,7 +2395,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3809:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3817:/ quasiblock"); /*^getslot */ @@ -2399,7 +2406,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3810:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3818:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOR__V2*/ meltfptr[1]), 1, "OPCLOR_CLOS"); @@ -2407,7 +2414,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3811:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3819:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOR__V2*/ meltfptr[1]), 2, "OPCLOR_ROUT"); @@ -2418,7 +2425,7 @@ lab_endgetargs:; /*_#CNT__L3*/ meltfnum[1] = 0;; { - MELT_LOCATION ("warmelt-outobj.melt:3816:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3824:/ locexp"); /* GETCNTCHK__1 in outpucod_objputclosurout */ static long GETCNTCHK__1_cnt; GETCNTCHK__1_cnt++; @@ -2426,7 +2433,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:3821:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3829:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2450,7 +2457,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3822:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3830:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putclosurout#")); @@ -2458,14 +2465,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3823:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3831:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CNT__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3824:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3832:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("*/")); @@ -2473,14 +2480,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3825:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3833:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3826:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3834:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosrout#")); @@ -2488,20 +2495,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3827:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3835:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CNT__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3828:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3836:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checkclo\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3829:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3837:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -2525,7 +2532,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3830:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3838:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_CLOSURE);")); @@ -2533,14 +2540,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3831:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3839:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3832:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3840:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosrout#")); @@ -2548,20 +2555,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3833:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3841:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#CNT__L3*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3834:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3842:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" checkrout\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3835:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3843:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -2585,7 +2592,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3836:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3844:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_ROUTINE);")); @@ -2593,20 +2600,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3837:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3845:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3838:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3846:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltclosure_ptr_t)")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3839:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3847:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -2630,13 +2637,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3840:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3848:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")->rout = (meltroutine_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3841:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3849:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -2660,7 +2667,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3842:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3850:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -2668,14 +2675,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3843:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3851:/ 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:3844:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3852:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2686,7 +2693,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3845:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3853:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2721,7 +2728,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:3844:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3852:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -2729,7 +2736,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3844:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3852:/ cond.else"); /*^block */ /*anyblock */ @@ -2743,7 +2750,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3844) ? (3844) : __LINE__, __FUNCTION__); + (3852) ? (3852) : __LINE__, __FUNCTION__); ; } ; @@ -2758,7 +2765,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3844:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3852:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V17*/ meltfptr[16] = 0; @@ -2779,7 +2786,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-outobj.melt:3809:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3817:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OCLOS__V9*/ meltfptr[8] = 0; @@ -2799,7 +2806,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3807:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2808,7 +2815,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3807:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2900,6 +2907,13 @@ meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2915,7 +2929,7 @@ meltrout_106_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDV (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3851:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ getarg"); /*_.OPCLOV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2953,7 +2967,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3852:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3860:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2965,7 +2979,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTCLOSEDV */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3852:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3860:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2973,7 +2987,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3852:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3860:/ cond.else"); /*^block */ /*anyblock */ @@ -2987,7 +3001,7 @@ lab_endgetargs:; melt_assert_failed (("check opclor"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3852) ? (3852) : __LINE__, __FUNCTION__); + (3860) ? (3860) : __LINE__, __FUNCTION__); ; } ; @@ -3002,7 +3016,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3852:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3860:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -3013,7 +3027,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3853:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3861:/ quasiblock"); /*^getslot */ @@ -3024,7 +3038,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3854:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3862:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), 1, "OPCLOV_CLOS"); @@ -3032,7 +3046,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3855:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3863:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), 2, "OPCLOV_OFF"); @@ -3040,7 +3054,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3856:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3864:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), 3, "OPCLOV_CVAL"); @@ -3048,7 +3062,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3857:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3865:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3072,7 +3086,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3858:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3866:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putclosv*/")); @@ -3080,20 +3094,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3859:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3867:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3860:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3868:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosv checkclo\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3861:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3869:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3117,7 +3131,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3862:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3870:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_CLOSURE);")); @@ -3125,20 +3139,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3863:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3871:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3864:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3872:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosv checkoff\", ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3865:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3873:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3162,13 +3176,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3866:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3874:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (">= 0 && ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3867:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3875:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3192,13 +3206,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3868:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3876:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("< melt_closure_size((melt_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3869:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3877:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3222,7 +3236,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3870:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3878:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")));")); @@ -3230,20 +3244,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3871:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3879:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3872:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3880:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltclosure_ptr_t)")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3873:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3267,13 +3281,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3874:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3882:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")->tabval[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3875:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3883:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3297,13 +3311,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3876:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3884:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] = (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3877:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3885:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3327,7 +3341,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3878:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3886:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -3335,14 +3349,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3879:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3887:/ 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:3880:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3888:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3353,7 +3367,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3881:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3889:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3388,7 +3402,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3880:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3888:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -3396,7 +3410,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3880:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3888:/ cond.else"); /*^block */ /*anyblock */ @@ -3410,7 +3424,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3880) ? (3880) : __LINE__, __FUNCTION__); + (3888) ? (3888) : __LINE__, __FUNCTION__); ; } ; @@ -3425,7 +3439,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3880:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3888:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V21*/ meltfptr[20] = 0; @@ -3446,7 +3460,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:3853:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3861:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OCLOS__V9*/ meltfptr[8] = 0; @@ -3472,7 +3486,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V20*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3851:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3481,7 +3495,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3851:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3577,6 +3591,13 @@ meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV (meltclosure_ptr_t (struct frame_meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3592,7 +3613,7 @@ meltrout_107_warmelt_outobj_OUTPUCOD_OBJPUTCLOSEDNOTNULLV (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3887:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ getarg"); /*_.OPCLOV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3630,7 +3651,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3888:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3896:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3642,7 +3663,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTCLOSEDNOTNULLV */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3888:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3896:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3650,7 +3671,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3888:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3896:/ cond.else"); /*^block */ /*anyblock */ @@ -3664,7 +3685,7 @@ lab_endgetargs:; melt_assert_failed (("check opclor"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3888) ? (3888) : __LINE__, __FUNCTION__); + (3896) ? (3896) : __LINE__, __FUNCTION__); ; } ; @@ -3679,7 +3700,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3888:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3896:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -3690,7 +3711,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3889:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3897:/ quasiblock"); /*^getslot */ @@ -3701,7 +3722,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3890:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3898:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), 1, "OPCLOV_CLOS"); @@ -3709,7 +3730,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3891:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3899:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), 2, "OPCLOV_OFF"); @@ -3717,7 +3738,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3892:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3900:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPCLOV__V2*/ meltfptr[1]), 3, "OPCLOV_CVAL"); @@ -3725,7 +3746,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3893:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3901:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3749,7 +3770,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3894:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3902:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putclosvnotnull*/")); @@ -3757,20 +3778,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3895:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3903:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3896:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3904:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosvnotnull checkclo\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3897:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3905:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3794,7 +3815,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3898:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3906:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_CLOSURE);")); @@ -3802,20 +3823,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3899:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3907:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3900:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3908:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosvnotnull checknotnullval\", NULL != ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3901:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3909:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3839,7 +3860,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3902:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3910:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -3847,20 +3868,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3903:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3911:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3904:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3912:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putclosvnotnull checkoff\", ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3905:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3913:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3884,13 +3905,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3906:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3914:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (">= 0 && ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3907:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3915:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3914,13 +3935,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3908:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3916:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("< melt_closure_size((melt_ptr_t) (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3909:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3917:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3944,7 +3965,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3910:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3918:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")));")); @@ -3952,20 +3973,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3911:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3919:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3912:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3920:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltclosure_ptr_t)")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3913:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3921:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -3989,13 +4010,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3914:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3922:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")->tabval[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3915:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3923:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4019,13 +4040,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3916:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3924:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] = (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3917:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3925:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4049,7 +4070,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3918:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3926:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -4057,14 +4078,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3919:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3927:/ 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:3920:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3928:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4075,7 +4096,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3921:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3929:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4110,7 +4131,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3920:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3928:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -4118,7 +4139,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3920:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3928:/ cond.else"); /*^block */ /*anyblock */ @@ -4132,7 +4153,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3920) ? (3920) : __LINE__, __FUNCTION__); + (3928) ? (3928) : __LINE__, __FUNCTION__); ; } ; @@ -4147,7 +4168,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3920:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3928:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -4168,7 +4189,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3889:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3897:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OCLOS__V9*/ meltfptr[8] = 0; @@ -4196,7 +4217,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3887:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4205,7 +4226,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3887:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4300,6 +4321,13 @@ meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 23; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4315,7 +4343,7 @@ meltrout_108_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3927:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ getarg"); /*_.OPRCONST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4353,7 +4381,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3928:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3936:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4365,7 +4393,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTROUTCONST */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3928:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3936:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4373,7 +4401,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3928:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3936:/ cond.else"); /*^block */ /*anyblock */ @@ -4387,7 +4415,7 @@ lab_endgetargs:; melt_assert_failed (("check oprconst"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3928) ? (3928) : __LINE__, __FUNCTION__); + (3936) ? (3936) : __LINE__, __FUNCTION__); ; } ; @@ -4402,7 +4430,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3928:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3936:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -4413,7 +4441,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3929:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3937:/ quasiblock"); /*^getslot */ @@ -4424,7 +4452,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3930:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3938:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), 1, "OPRCONST_ROUT"); @@ -4432,14 +4460,14 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3931:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3939:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.OROUT__V9*/ meltfptr[8]), (melt_ptr_t) (( /*!CLASS_OBJINITROUTINE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:3931:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3939:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4459,7 +4487,7 @@ lab_endgetargs:; /*_.OIE_CNAME__V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3931:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3939:/ clear"); /*clear *//*_.OIE_CNAME__V11*/ meltfptr[10] = 0; } ; @@ -4470,7 +4498,7 @@ lab_endgetargs:; /*_.OROUTNAM__V10*/ meltfptr[9] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:3932:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3940:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), 2, "OPRCONST_OFF"); @@ -4478,7 +4506,7 @@ lab_endgetargs:; meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3933:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3941:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), 3, "OPRCONST_CVAL"); @@ -4486,7 +4514,7 @@ lab_endgetargs:; meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3934:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3942:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4510,7 +4538,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3935:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3943:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putroutconst*/")); @@ -4518,20 +4546,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3936:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3944:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3937:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3945:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putroutconst checkrout\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3938:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3946:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4555,7 +4583,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3939:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3947:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_ROUTINE);")); @@ -4563,26 +4591,26 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3940:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3948:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3942:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3950:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg(\"putroutconst constnull.")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3943:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3951:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.OROUTNAM__V10*/ meltfptr[9])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:3943:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3951:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -4608,13 +4636,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3944:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3952:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("#")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3945:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3953:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4638,13 +4666,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3946:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3954:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\", NULL != (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3947:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3955:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4668,7 +4696,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3948:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3956:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("));")); @@ -4676,20 +4704,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3949:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3957:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3951:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3959:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltroutine_ptr_t)")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3952:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3960:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4713,13 +4741,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3953:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3961:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")->tabval[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3954:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3962:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4743,13 +4771,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3955:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3963:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] = (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3956:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3964:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -4773,7 +4801,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3957:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3965:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -4781,14 +4809,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3958:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3966:/ 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:3959:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3967:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4799,7 +4827,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3960:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3968:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4834,7 +4862,7 @@ lab_endgetargs:; /*_#I__L7*/ meltfnum[6] = (( /*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4]) < ( /*_#GET_INT__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-outobj.melt:3959:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3967:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -4842,7 +4870,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3959:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3967:/ cond.else"); /*^block */ /*anyblock */ @@ -4856,7 +4884,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3959) ? (3959) : __LINE__, __FUNCTION__); + (3967) ? (3967) : __LINE__, __FUNCTION__); ; } ; @@ -4871,7 +4899,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3959:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3967:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V22*/ meltfptr[21] = 0; @@ -4892,7 +4920,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:3929:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3937:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OROUT__V9*/ meltfptr[8] = 0; @@ -4922,7 +4950,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3927:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4931,7 +4959,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3927:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5029,6 +5057,13 @@ meltrout_109_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL (meltclosure_ptr_t (struct frame_meltrout_109_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5044,7 +5079,7 @@ meltrout_109_warmelt_outobj_OUTPUCOD_OBJPUTROUTCONSTNOTNULL (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:3966:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ getarg"); /*_.OPRCONST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5082,7 +5117,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3967:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3975:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5093,7 +5128,7 @@ lab_endgetargs:; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTROUTCONSTNOTNULL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:3967:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3975:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5101,7 +5136,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3967:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3975:/ cond.else"); /*^block */ /*anyblock */ @@ -5115,7 +5150,7 @@ lab_endgetargs:; melt_assert_failed (("check oprconst"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3967) ? (3967) : __LINE__, __FUNCTION__); + (3975) ? (3975) : __LINE__, __FUNCTION__); ; } ; @@ -5130,7 +5165,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3967:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3975:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -5141,7 +5176,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3968:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:3976:/ quasiblock"); /*^getslot */ @@ -5152,7 +5187,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3969:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3977:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), 1, "OPRCONST_ROUT"); @@ -5160,7 +5195,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3970:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3978:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), 2, "OPRCONST_OFF"); @@ -5168,7 +5203,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:3971:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:3979:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPRCONST__V2*/ meltfptr[1]), 3, "OPRCONST_CVAL"); @@ -5178,7 +5213,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:3972:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:3980:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5188,7 +5223,7 @@ lab_endgetargs:; ; /*_#NOTNULL__L3*/ meltfnum[1] = (( /*_.OCVAL__V11*/ meltfptr[10]) != NULL);; - MELT_LOCATION ("warmelt-outobj.melt:3972:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:3980:/ cond"); /*cond */ if ( /*_#NOTNULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5196,7 +5231,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3972:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:3980:/ cond.else"); /*^block */ /*anyblock */ @@ -5210,7 +5245,7 @@ lab_endgetargs:; melt_assert_failed (("check notnull ocval"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3972) ? (3972) : __LINE__, __FUNCTION__); + (3980) ? (3980) : __LINE__, __FUNCTION__); ; } ; @@ -5225,7 +5260,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3972:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3980:/ clear"); /*clear *//*_#NOTNULL__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -5236,7 +5271,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:3973:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3981:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5260,7 +5295,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3974:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3982:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*putroutconstnotnull*/")); @@ -5268,20 +5303,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3975:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3983:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3976:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3984:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putroutconstnotnull checkrout\", melt_magic_discr((melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3977:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3985:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5305,7 +5340,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3978:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3986:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")) == MELTOBMAG_ROUTINE);")); @@ -5313,20 +5348,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3979:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3987:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3980:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3988:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("melt_assertmsg(\"putroutconstnotnull notnullconst\", NULL != ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3981:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3989:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5350,7 +5385,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3982:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3990:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -5358,20 +5393,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3983:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3991:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:3984:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3992:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("((meltroutine_ptr_t)")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3985:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3993:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5395,13 +5430,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3986:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3994:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (")->tabval[")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3987:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3995:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5425,13 +5460,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3988:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3996:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] = (melt_ptr_t)(")); } ; - MELT_LOCATION ("warmelt-outobj.melt:3989:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3997:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5455,7 +5490,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3990:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3998:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -5463,14 +5498,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:3991:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3999:/ 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:3992:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4000:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5481,7 +5516,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:3993:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4001:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5516,7 +5551,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1]) < ( /*_#GET_INT__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-outobj.melt:3992:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4000:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -5524,7 +5559,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:3992:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4000:/ cond.else"); /*^block */ /*anyblock */ @@ -5538,7 +5573,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (3992) ? (3992) : __LINE__, __FUNCTION__); + (4000) ? (4000) : __LINE__, __FUNCTION__); ; } ; @@ -5553,7 +5588,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:3992:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4000:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V21*/ meltfptr[20] = 0; @@ -5574,7 +5609,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-outobj.melt:3968:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:3976:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.OROUT__V9*/ meltfptr[8] = 0; @@ -5598,7 +5633,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V20*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-outobj.melt:3966:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5607,7 +5642,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:3966:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5702,6 +5737,13 @@ meltrout_110_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_110_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 30; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -5717,7 +5759,7 @@ meltrout_110_warmelt_outobj_OUTPUCOD_OBJPUTXTRARESULT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4001:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ getarg"); /*_.OPUTX__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5755,7 +5797,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4002:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4010:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5767,7 +5809,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPUTX__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJPUTXTRARESULT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4002:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4010:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5775,7 +5817,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4002:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4010:/ cond.else"); /*^block */ /*anyblock */ @@ -5789,7 +5831,7 @@ lab_endgetargs:; melt_assert_failed (("check oputx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4002) ? (4002) : __LINE__, __FUNCTION__); + (4010) ? (4010) : __LINE__, __FUNCTION__); ; } ; @@ -5804,7 +5846,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4002:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4010:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -5815,7 +5857,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4003:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4011:/ quasiblock"); /*^getslot */ @@ -5826,7 +5868,7 @@ lab_endgetargs:; meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:4004:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4012:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPUTX__V2*/ meltfptr[1]), 1, "OBXRES_RANK"); @@ -5834,7 +5876,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:4005:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4013:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OPUTX__V2*/ meltfptr[1]), 2, "OBXRES_OBLOC"); @@ -5842,7 +5884,7 @@ lab_endgetargs:; meltfptr[9] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:4006:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4014:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -5859,7 +5901,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4008:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4016:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5883,7 +5925,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4009:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4017:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5895,7 +5937,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OCTYP__V11*/ meltfptr[10]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:4009:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4017:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5903,7 +5945,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4009:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4017:/ cond.else"); /*^block */ /*anyblock */ @@ -5917,7 +5959,7 @@ lab_endgetargs:; melt_assert_failed (("check octyp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4009) ? (4009) : __LINE__, __FUNCTION__); + (4017) ? (4017) : __LINE__, __FUNCTION__); ; } ; @@ -5932,7 +5974,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4009:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4017:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -5945,7 +5987,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4010:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4018:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5956,7 +5998,7 @@ lab_endgetargs:; /*_#IS_INTEGERBOX__L4*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.ORANK__V9*/ meltfptr[8])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-outobj.melt:4010:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4018:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5964,7 +6006,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4010:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4018:/ cond.else"); /*^block */ /*anyblock */ @@ -5978,7 +6020,7 @@ lab_endgetargs:; melt_assert_failed (("check orank"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4010) ? (4010) : __LINE__, __FUNCTION__); + (4018) ? (4018) : __LINE__, __FUNCTION__); ; } ; @@ -5993,7 +6035,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4010:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4018:/ clear"); /*clear *//*_#IS_INTEGERBOX__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -6006,7 +6048,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4011:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4019:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (!meltxrestab_ || !meltxresdescr_) goto labend_rout;")); @@ -6014,14 +6056,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4012:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4020:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4013:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4021:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (meltxresdescr_[")); @@ -6031,20 +6073,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.ORANK__V9*/ meltfptr[8])));; { - MELT_LOCATION ("warmelt-outobj.melt:4014:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4022:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L5*/ meltfnum[1])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4015:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4023:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("] != ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4016:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4024:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCTYP__V11*/ meltfptr[10]), 4, "CTYPE_PARCHAR"); @@ -6064,7 +6106,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4017:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4025:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") goto labend_rout;")); @@ -6072,14 +6114,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4018:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4026:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4019:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4027:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("if (meltxrestab_[")); @@ -6089,20 +6131,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.ORANK__V9*/ meltfptr[8])));; { - MELT_LOCATION ("warmelt-outobj.melt:4020:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4028:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L6*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4021:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4029:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4022:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4030:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -6136,7 +6178,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.CTYPE_RESFIELD__V18*/ meltfptr[17])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:4022:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4030:/ cond"); /*cond */ if ( /*_#IS_STRING__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -6144,7 +6186,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4022:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4030:/ cond.else"); /*^block */ /*anyblock */ @@ -6152,7 +6194,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4023:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4031:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6178,7 +6220,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4023:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4031:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -6193,7 +6235,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4023:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4031:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6207,7 +6249,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4023; + argtab[2].meltbp_long = 4031; /*^apply.arg */ argtab[3].meltbp_cstring = "outpucod_objputxtraresult bad octyp"; @@ -6235,7 +6277,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4023:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4031:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -6248,7 +6290,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4023:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4031:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];; @@ -6257,7 +6299,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4023:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4031:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[20] = 0; @@ -6270,7 +6312,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4024:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4032:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6297,14 +6339,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4024:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4032:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.OLOC__V8*/ meltfptr[7]), ("impossible secondary result type"), (melt_ptr_t) ( /*_.NAMED_NAME__V24*/ meltfptr[20])); } ; - MELT_LOCATION ("warmelt-outobj.melt:4022:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4030:/ quasiblock"); /*epilog */ @@ -6317,7 +6359,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:4026:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4034:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCTYP__V11*/ meltfptr[10]), 7, "CTYPE_RESFIELD"); @@ -6337,7 +6379,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4027:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4035:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") *(meltxrestab_[")); @@ -6347,20 +6389,20 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.ORANK__V9*/ meltfptr[8])));; { - MELT_LOCATION ("warmelt-outobj.melt:4028:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4036:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L10*/ meltfnum[8])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4029:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4037:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("].")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4030:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4038:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OCTYP__V11*/ meltfptr[10]), 7, "CTYPE_RESFIELD"); @@ -6380,19 +6422,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4031:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4039:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (") = (")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4032:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4040:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L11*/ meltfnum[7] = (( /*_.OCTYP__V11*/ meltfptr[10]) == (( /*!CTYPE_VALUE */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:4032:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4040:/ cond"); /*cond */ if ( /*_#__L11*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -6414,7 +6456,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:4033:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4041:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6438,7 +6480,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4034:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4042:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (");")); @@ -6446,14 +6488,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4035:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4043:/ 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:4036:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4044:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6464,7 +6506,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4037:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4045:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6499,7 +6541,7 @@ lab_endgetargs:; /*_#I__L14*/ meltfnum[13] = (( /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11]) < ( /*_#GET_INT__L13*/ meltfnum[12]));; - MELT_LOCATION ("warmelt-outobj.melt:4036:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4044:/ cond"); /*cond */ if ( /*_#I__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -6507,7 +6549,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4036:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4044:/ cond.else"); /*^block */ /*anyblock */ @@ -6521,7 +6563,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4036) ? (4036) : __LINE__, __FUNCTION__); + (4044) ? (4044) : __LINE__, __FUNCTION__); ; } ; @@ -6536,7 +6578,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.IFELSE___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4036:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4044:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V29*/ meltfptr[28] = 0; @@ -6557,7 +6599,7 @@ lab_endgetargs:; /*_.LET___V7*/ meltfptr[5] = /*_.IFCPP___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-outobj.melt:4003:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4011:/ clear"); /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.ORANK__V9*/ meltfptr[8] = 0; @@ -6595,7 +6637,7 @@ lab_endgetargs:; /*clear *//*_.OUTPUT_C_CODE__V27*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4001:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6604,7 +6646,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:4001:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6695,6 +6737,13 @@ meltrout_111_warmelt_outobj_OUTPUCOD_OBJEXPV (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_111_warmelt_outobj_OUTPUCOD_OBJEXPV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 15; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -6710,7 +6759,7 @@ meltrout_111_warmelt_outobj_OUTPUCOD_OBJEXPV (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4042:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ getarg"); /*_.OEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6748,7 +6797,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4043:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4051:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6760,7 +6809,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJEXPV */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4043:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4051:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6768,7 +6817,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4043:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4051:/ cond.else"); /*^block */ /*anyblock */ @@ -6782,7 +6831,7 @@ lab_endgetargs:; melt_assert_failed (("check oexp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4043) ? (4043) : __LINE__, __FUNCTION__); + (4051) ? (4051) : __LINE__, __FUNCTION__); ; } ; @@ -6797,7 +6846,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4043:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4051:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -6808,7 +6857,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4044:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4052:/ quasiblock"); /*^getslot */ @@ -6829,7 +6878,7 @@ lab_endgetargs:; ( /*_#I__L3*/ meltfnum[1])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4047:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4055:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6840,7 +6889,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.CONT__V7*/ meltfptr[5])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-outobj.melt:4047:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4055:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -6848,7 +6897,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4047:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4055:/ cond.else"); /*^block */ /*anyblock */ @@ -6862,7 +6911,7 @@ lab_endgetargs:; melt_assert_failed (("check cont"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4047) ? (4047) : __LINE__, __FUNCTION__); + (4055) ? (4055) : __LINE__, __FUNCTION__); ; } ; @@ -6877,7 +6926,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4047:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4055:/ clear"); /*clear *//*_#IS_MULTIPLE__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -6907,7 +6956,7 @@ lab_endgetargs:; /*_#GET_INT__L6*/ meltfnum[5] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V8*/ meltfptr[7])));; - MELT_LOCATION ("warmelt-outobj.melt:4051:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4059:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -6933,7 +6982,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4052:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4060:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6944,7 +6993,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4053:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4061:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6979,7 +7028,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = (( /*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6]) < ( /*_#GET_INT__L8*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:4052:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4060:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -6987,7 +7036,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4052:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4060:/ cond.else"); /*^block */ /*anyblock */ @@ -7001,7 +7050,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4052) ? (4052) : __LINE__, + (4060) ? (4060) : __LINE__, __FUNCTION__); ; } @@ -7017,7 +7066,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4052:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4060:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V14*/ meltfptr[13] = 0; @@ -7040,7 +7089,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4048:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4056:/ clear"); /*clear *//*_.COMP__V11*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_#IX__L5*/ meltfnum[3] = 0; @@ -7053,7 +7102,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4044:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4052:/ clear"); /*clear *//*_.CONT__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#I__L3*/ meltfnum[1] = 0; @@ -7061,7 +7110,7 @@ lab_endgetargs:; /*clear *//*_.BOXDEPTHP1__V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4042:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -7144,6 +7193,13 @@ meltrout_112_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_112_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7159,7 +7215,7 @@ meltrout_112_warmelt_outobj_OUTPUCOD_OBJLOCATEDEXPV (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4058:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ getarg"); /*_.OEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7197,7 +7253,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4059:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4067:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7209,7 +7265,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJLOCATEDEXPV */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4059:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4067:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7217,7 +7273,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4059:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4067:/ cond.else"); /*^block */ /*anyblock */ @@ -7231,7 +7287,7 @@ lab_endgetargs:; melt_assert_failed (("check oexp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4059) ? (4059) : __LINE__, __FUNCTION__); + (4067) ? (4067) : __LINE__, __FUNCTION__); ; } ; @@ -7246,7 +7302,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4059:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4067:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -7257,7 +7313,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4060:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4068:/ quasiblock"); /*^getslot */ @@ -7268,7 +7324,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:4061:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4069:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OEXP__V2*/ meltfptr[1]), 2, "OBCX_LOC"); @@ -7284,7 +7340,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[1])), ( /*_#I__L3*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4063:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4071:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.OEXP__V2*/ meltfptr[1]), 0, "OBV_TYPE"); @@ -7294,7 +7350,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4066:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4074:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7307,7 +7363,7 @@ lab_endgetargs:; || (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.CONT__V7*/ meltfptr[5])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:4066:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4074:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -7315,7 +7371,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4066:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4074:/ cond.else"); /*^block */ /*anyblock */ @@ -7329,7 +7385,7 @@ lab_endgetargs:; melt_assert_failed (("check cont"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4066) ? (4066) : __LINE__, __FUNCTION__); + (4074) ? (4074) : __LINE__, __FUNCTION__); ; } ; @@ -7344,7 +7400,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4066:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4074:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -7355,13 +7411,13 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4067:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4075:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[3] = (( /*_.OTYP__V10*/ meltfptr[9]) == (( /*!CTYPE_VOID */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:4067:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4075:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -7371,7 +7427,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:4069:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4077:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); @@ -7379,7 +7435,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4070:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4078:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("{")); @@ -7387,13 +7443,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4071:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4079:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4072:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4080:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7417,7 +7473,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4068:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4076:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[14] = @@ -7427,7 +7483,7 @@ lab_endgetargs:; /*_.IFELSE___V13*/ meltfptr[11] = /*_.PROGN___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4067:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4075:/ clear"); /*clear *//*_.OUTPUT_LOCATION__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.PROGN___V15*/ meltfptr[14] = 0; @@ -7441,7 +7497,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4074:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4082:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7452,7 +7508,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4075:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4083:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7481,7 +7537,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V17*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4074:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4082:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V17*/ meltfptr[14] = 0; } ; @@ -7497,7 +7553,7 @@ lab_endgetargs:; /*_.IFELSE___V13*/ meltfptr[11] = /*_.IF___V16*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4067:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4075:/ clear"); /*clear *//*_.IF___V16*/ meltfptr[13] = 0; } ; @@ -7522,7 +7578,7 @@ lab_endgetargs:; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int ((melt_ptr_t) ( /*_.BOXDEPTHP1__V9*/ meltfptr[8])));; - MELT_LOCATION ("warmelt-outobj.melt:4082:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4090:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -7548,7 +7604,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4083:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4091:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7559,7 +7615,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4084:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4092:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7594,7 +7650,7 @@ lab_endgetargs:; /*_#I__L10*/ meltfnum[9] = (( /*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7]) < ( /*_#GET_INT__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:4083:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4091:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -7602,7 +7658,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4083:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4091:/ cond.else"); /*^block */ /*anyblock */ @@ -7616,7 +7672,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4083) ? (4083) : __LINE__, + (4091) ? (4091) : __LINE__, __FUNCTION__); ; } @@ -7632,7 +7688,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4083:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4091:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V21*/ meltfptr[20] = 0; @@ -7655,7 +7711,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4079:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4087:/ clear"); /*clear *//*_.COMP__V18*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_#IX__L6*/ meltfnum[5] = 0; @@ -7667,13 +7723,13 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V20*/ meltfptr[19] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4086:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4094:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L11*/ meltfnum[7] = (( /*_.OTYP__V10*/ meltfptr[9]) == (( /*!CTYPE_VOID */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:4086:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4094:/ cond"); /*cond */ if ( /*_#__L11*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -7683,7 +7739,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:4088:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4096:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";}")); @@ -7691,13 +7747,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4089:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4097:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4087:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4095:/ quasiblock"); /*epilog */ @@ -7706,7 +7762,7 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:4060:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4068:/ clear"); /*clear *//*_.CONT__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.OLOC__V8*/ meltfptr[7] = 0; @@ -7726,7 +7782,7 @@ lab_endgetargs:; /*clear *//*_#__L11*/ meltfnum[7] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4091:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4099:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7737,7 +7793,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[8] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4092:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4100:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7772,7 +7828,7 @@ lab_endgetargs:; /*_#I__L14*/ meltfnum[1] = (( /*_#STRBUF_USEDLENGTH__L12*/ meltfnum[8]) < ( /*_#GET_INT__L13*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-outobj.melt:4091:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4099:/ cond"); /*cond */ if ( /*_#I__L14*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7780,7 +7836,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4091:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4099:/ cond.else"); /*^block */ /*anyblock */ @@ -7794,7 +7850,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4091) ? (4091) : __LINE__, __FUNCTION__); + (4099) ? (4099) : __LINE__, __FUNCTION__); ; } ; @@ -7809,7 +7865,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[20] = /*_.IFELSE___V25*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4091:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4099:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L12*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V24*/ meltfptr[21] = 0; @@ -7826,7 +7882,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4058:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -7835,7 +7891,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V23*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-outobj.melt:4058:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7930,6 +7986,13 @@ meltrout_113_warmelt_outobj_OUTPUCOD_VERBATIMSTRING (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_113_warmelt_outobj_OUTPUCOD_VERBATIMSTRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -7945,7 +8008,7 @@ meltrout_113_warmelt_outobj_OUTPUCOD_VERBATIMSTRING (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4097:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ getarg"); /*_.VSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7983,7 +8046,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4098:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4106:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7999,7 +8062,7 @@ lab_endgetargs:; /*_#__L2*/ meltfnum[1] = (( /*_.DISCRIM__V6*/ meltfptr[5]) == (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4098:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4106:/ cond"); /*cond */ if ( /*_#__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8007,7 +8070,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4098:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4106:/ cond.else"); /*^block */ /*anyblock */ @@ -8021,7 +8084,7 @@ lab_endgetargs:; melt_assert_failed (("check vstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4098) ? (4098) : __LINE__, __FUNCTION__); + (4106) ? (4106) : __LINE__, __FUNCTION__); ; } ; @@ -8036,7 +8099,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4098:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4106:/ clear"); /*clear *//*_.DISCRIM__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#__L2*/ meltfnum[1] = 0; @@ -8051,7 +8114,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4099:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4107:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) @@ -8060,7 +8123,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4100:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4108:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8071,7 +8134,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4101:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4109:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8106,7 +8169,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4100:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4108:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -8114,7 +8177,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4100:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4108:/ cond.else"); /*^block */ /*anyblock */ @@ -8128,7 +8191,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4100) ? (4100) : __LINE__, __FUNCTION__); + (4108) ? (4108) : __LINE__, __FUNCTION__); ; } ; @@ -8143,7 +8206,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4100:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4108:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V9*/ meltfptr[6] = 0; @@ -8160,7 +8223,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4097:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8169,7 +8232,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V8*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:4097:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8260,6 +8323,13 @@ meltrout_114_warmelt_outobj_OUTPUCOD_STRING (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_114_warmelt_outobj_OUTPUCOD_STRING_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 10; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8275,7 +8345,7 @@ meltrout_114_warmelt_outobj_OUTPUCOD_STRING (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4110:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ getarg"); /*_.VSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8313,7 +8383,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4111:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4119:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8329,7 +8399,7 @@ lab_endgetargs:; /*_#__L2*/ meltfnum[1] = (( /*_.DISCRIM__V6*/ meltfptr[5]) == (( /*!DISCR_STRING */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4111:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4119:/ cond"); /*cond */ if ( /*_#__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8337,7 +8407,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4111:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4119:/ cond.else"); /*^block */ /*anyblock */ @@ -8351,7 +8421,7 @@ lab_endgetargs:; melt_assert_failed (("check vstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4111) ? (4111) : __LINE__, __FUNCTION__); + (4119) ? (4119) : __LINE__, __FUNCTION__); ; } ; @@ -8366,7 +8436,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4111:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4119:/ clear"); /*clear *//*_.DISCRIM__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#__L2*/ meltfnum[1] = 0; @@ -8381,7 +8451,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4112:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4120:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" \"")); @@ -8389,7 +8459,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4113:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4121:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.VSTR__V2*/ @@ -8398,7 +8468,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4114:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4122:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("\"")); @@ -8406,7 +8476,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4115:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4123:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8417,7 +8487,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4116:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4124:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8452,7 +8522,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4115:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4123:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -8460,7 +8530,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4115:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4123:/ cond.else"); /*^block */ /*anyblock */ @@ -8474,7 +8544,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4115) ? (4115) : __LINE__, __FUNCTION__); + (4123) ? (4123) : __LINE__, __FUNCTION__); ; } ; @@ -8489,7 +8559,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4115:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4123:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V9*/ meltfptr[6] = 0; @@ -8506,7 +8576,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4110:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8515,7 +8585,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V8*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:4110:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8606,6 +8676,13 @@ meltrout_115_warmelt_outobj_OUTPUCOD_INTEGER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_115_warmelt_outobj_OUTPUCOD_INTEGER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8621,7 +8698,7 @@ meltrout_115_warmelt_outobj_OUTPUCOD_INTEGER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4123:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4131:/ getarg"); /*_.VINT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8659,7 +8736,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4124:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4132:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8670,7 +8747,7 @@ lab_endgetargs:; /*_#IS_INTEGERBOX__L2*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.VINT__V2*/ meltfptr[1])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-outobj.melt:4124:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4132:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8678,7 +8755,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4124:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4132:/ cond.else"); /*^block */ /*anyblock */ @@ -8692,7 +8769,7 @@ lab_endgetargs:; melt_assert_failed (("check vint"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4124) ? (4124) : __LINE__, __FUNCTION__); + (4132) ? (4132) : __LINE__, __FUNCTION__); ; } ; @@ -8707,7 +8784,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4124:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4132:/ clear"); /*clear *//*_#IS_INTEGERBOX__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8724,12 +8801,12 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.VINT__V2*/ meltfptr[1])));; { - MELT_LOCATION ("warmelt-outobj.melt:4125:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4133:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L3*/ meltfnum[1])); } ; - MELT_LOCATION ("warmelt-outobj.melt:4123:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4131:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -8811,6 +8888,13 @@ meltrout_116_warmelt_outobj_OUTPUCOD_FINALRETURN (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_116_warmelt_outobj_OUTPUCOD_FINALRETURN_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -8826,7 +8910,7 @@ meltrout_116_warmelt_outobj_OUTPUCOD_FINALRETURN (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4130:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ getarg"); /*_.FRET__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8864,7 +8948,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4131:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4139:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8876,7 +8960,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FRET__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_OBJFINALRETURN */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4131:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4139:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8884,7 +8968,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4131:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4139:/ cond.else"); /*^block */ /*anyblock */ @@ -8898,7 +8982,7 @@ lab_endgetargs:; melt_assert_failed (("check fret"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4131) ? (4131) : __LINE__, __FUNCTION__); + (4139) ? (4139) : __LINE__, __FUNCTION__); ; } ; @@ -8913,7 +8997,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4131:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4139:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -8924,7 +9008,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4132:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4140:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.FRET__V2*/ meltfptr[1]), 0, "OBI_LOC"); @@ -8956,7 +9040,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4133:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4141:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -8964,14 +9048,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4134:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4142:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#DEPTH__L1*/ meltfnum[0]), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4135:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4143:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/*finalret*/ goto labend_rout ")); @@ -8979,7 +9063,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4136:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4144:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8990,7 +9074,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4137:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4145:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9025,7 +9109,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = (( /*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1]) < ( /*_#GET_INT__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4136:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4144:/ cond"); /*cond */ if ( /*_#I__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -9033,7 +9117,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4136:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4144:/ cond.else"); /*^block */ /*anyblock */ @@ -9047,7 +9131,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4136) ? (4136) : __LINE__, __FUNCTION__); + (4144) ? (4144) : __LINE__, __FUNCTION__); ; } ; @@ -9062,7 +9146,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4136:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4144:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V10*/ meltfptr[9] = 0; @@ -9079,7 +9163,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4130:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9088,7 +9172,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V9*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-outobj.melt:4130:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9187,6 +9271,13 @@ meltrout_117_warmelt_outobj_SORTED_NAMED_DICT_TUPLE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_117_warmelt_outobj_SORTED_NAMED_DICT_TUPLE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 13; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9202,7 +9293,7 @@ meltrout_117_warmelt_outobj_SORTED_NAMED_DICT_TUPLE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4143:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ getarg"); /*_.DIC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -9212,7 +9303,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:4144:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4152:/ quasiblock"); /*_#DICNT__L1*/ meltfnum[0] = @@ -9278,7 +9369,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4150:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4158:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9290,7 +9381,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENT__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4150:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4158:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9298,7 +9389,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4150:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4158:/ cond.else"); /*^block */ /*anyblock */ @@ -9312,7 +9403,7 @@ lab_endgetargs:; melt_assert_failed (("check ent named"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4150) ? (4150) : __LINE__, + (4158) ? (4158) : __LINE__, __FUNCTION__); ; } @@ -9328,7 +9419,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4150:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4158:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -9341,7 +9432,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4151:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4159:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.ENTLIST__V4*/ meltfptr[3]), (melt_ptr_t) ( /*_.ENT__V6*/ meltfptr[5])); } @@ -9353,7 +9444,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4147:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4155:/ clear"); /*clear *//*_.NAM__V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.ENT__V6*/ meltfptr[5] = 0; @@ -9361,7 +9452,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V7*/ meltfptr[6] = 0; } /*endciterblock FOREACH_IN_MAPSTRING */ ; - MELT_LOCATION ("warmelt-outobj.melt:4152:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4160:/ quasiblock"); /*^checksignal */ @@ -9379,7 +9470,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4154:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4162:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9395,7 +9486,7 @@ lab_endgetargs:; /*_#I__L4*/ meltfnum[3] = (( /*_#DICNT__L1*/ meltfnum[0]) == ( /*_#MULTIPLE_LENGTH__L3*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:4154:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4162:/ cond"); /*cond */ if ( /*_#I__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -9403,7 +9494,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4154:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4162:/ cond.else"); /*^block */ /*anyblock */ @@ -9414,7 +9505,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("sorted_named_dict_tuple check tuple length is dict count"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (4154) ? (4154) : __LINE__, __FUNCTION__); + melt_assert_failed (("sorted_named_dict_tuple check tuple length is dict count"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (4162) ? (4162) : __LINE__, __FUNCTION__); ; } ; @@ -9429,7 +9520,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4154:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4162:/ clear"); /*clear *//*_#MULTIPLE_LENGTH__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#I__L4*/ meltfnum[3] = 0; @@ -9454,7 +9545,7 @@ lab_endgetargs:; /*_.LET___V9*/ meltfptr[7] = /*_.MULTIPLE_SORT__V13*/ meltfptr[11];; - MELT_LOCATION ("warmelt-outobj.melt:4152:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4160:/ clear"); /*clear *//*_.RAWTUP__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.IFCPP___V11*/ meltfptr[10] = 0; @@ -9462,19 +9553,19 @@ lab_endgetargs:; /*clear *//*_.MULTIPLE_SORT__V13*/ meltfptr[11] = 0; /*_.LET___V3*/ meltfptr[2] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION ("warmelt-outobj.melt:4144:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4152:/ clear"); /*clear *//*_#DICNT__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.ENTLIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.LET___V9*/ meltfptr[7] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4143:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-outobj.melt:4143:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9567,6 +9658,13 @@ meltrout_118_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_118_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 29; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -9582,7 +9680,7 @@ meltrout_118_warmelt_outobj_OUTPUT_EXPORTED_OFFSETS (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4160:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ getarg"); /*_.MODCTX__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9614,7 +9712,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4161:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4169:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9626,7 +9724,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4161:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4169:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9634,7 +9732,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4161:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4169:/ cond.else"); /*^block */ /*anyblock */ @@ -9648,7 +9746,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4161) ? (4161) : __LINE__, __FUNCTION__); + (4169) ? (4169) : __LINE__, __FUNCTION__); ; } ; @@ -9663,7 +9761,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4161:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4169:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -9674,10 +9772,10 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4162:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4170:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:4163:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4171:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.MODCTX__V2*/ meltfptr[1]), 1, "MOCX_EXPFIELDICT"); @@ -9685,7 +9783,7 @@ lab_endgetargs:; meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:4164:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9698,7 +9796,7 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4165:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4173:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.MODCTX__V2*/ meltfptr[1]), 2, "MOCX_EXPCLASSDICT"); @@ -9706,7 +9804,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:4166:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4174:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9722,12 +9820,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4168:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4176:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4169:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4177:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9748,14 +9846,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4174:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4182:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4175:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4183:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/* exported ")); @@ -9767,14 +9865,14 @@ lab_endgetargs:; meltfptr[5])));; { - MELT_LOCATION ("warmelt-outobj.melt:4176:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4184:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MAPSTRING_COUNT__L2*/ meltfnum[0])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4177:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4185:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" field offsets */")); @@ -9800,7 +9898,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4181:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4189:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9813,7 +9911,7 @@ lab_endgetargs:; ( /*_.FLD__V12*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:4181:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4189:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -9821,7 +9919,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4181:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4189:/ cond.else"); /*^block */ /*anyblock */ @@ -9835,7 +9933,7 @@ lab_endgetargs:; melt_assert_failed (("check fld"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4181) ? (4181) : __LINE__, + (4189) ? (4189) : __LINE__, __FUNCTION__); ; } @@ -9851,7 +9949,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4181:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4189:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -9864,7 +9962,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4182:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4190:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -9872,14 +9970,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4183:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4191:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("const int meltfieldoff__")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4184:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4192:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLD__V12*/ meltfptr[11]), 1, "NAMED_NAME"); @@ -9899,7 +9997,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4185:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4193:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); @@ -9909,7 +10007,7 @@ lab_endgetargs:; (melt_get_int ((melt_ptr_t) ( /*_.FLD__V12*/ meltfptr[11])));; { - MELT_LOCATION ("warmelt-outobj.melt:4186:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4194:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#GET_INT__L5*/ meltfnum[3])); @@ -9917,7 +10015,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4187:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4195:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -9925,14 +10023,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4188:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4196:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" /* in ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4189:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4197:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9956,7 +10054,7 @@ lab_endgetargs:; /*_.FLD_OWNCLASS__V16*/ meltfptr[15] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4189:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4197:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9983,7 +10081,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4189:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4197:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), @@ -9994,7 +10092,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4190:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4198:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" */")); @@ -10002,7 +10100,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4191:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4199:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10013,7 +10111,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L6*/ meltfnum[5] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4192:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4200:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10048,7 +10146,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[7] = (( /*_#STRBUF_USEDLENGTH__L6*/ meltfnum[5]) < ( /*_#GET_INT__L7*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:4191:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4199:/ cond"); /*cond */ if ( /*_#I__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -10056,7 +10154,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4191:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4199:/ cond.else"); /*^block */ /*anyblock */ @@ -10070,7 +10168,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4191) ? (4191) : __LINE__, + (4199) ? (4199) : __LINE__, __FUNCTION__); ; } @@ -10086,7 +10184,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4191:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4199:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V19*/ meltfptr[18] = 0; @@ -10109,7 +10207,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4178:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4186:/ clear"); /*clear *//*_.FLD__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_#IX__L3*/ meltfnum[2] = 0; @@ -10129,21 +10227,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4194:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4202:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4195:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4203:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4196:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4204:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("/* exported ")); @@ -10155,14 +10253,14 @@ lab_endgetargs:; meltfptr[8])));; { - MELT_LOCATION ("warmelt-outobj.melt:4197:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4205:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MAPSTRING_COUNT__L9*/ meltfnum[5])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4198:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4206:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" class lengths */")); @@ -10188,7 +10286,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4202:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4210:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10201,7 +10299,7 @@ lab_endgetargs:; ( /*_.CLA__V21*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:4202:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4210:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -10209,7 +10307,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4202:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4210:/ cond.else"); /*^block */ /*anyblock */ @@ -10223,7 +10321,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4202) ? (4202) : __LINE__, + (4210) ? (4210) : __LINE__, __FUNCTION__); ; } @@ -10239,7 +10337,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[19] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4202:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4210:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; @@ -10252,7 +10350,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4203:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4211:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); @@ -10260,14 +10358,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4204:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4212:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ("const int meltclasslen__")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4205:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4213:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLA__V21*/ meltfptr[18]), 1, "NAMED_NAME"); @@ -10287,13 +10385,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4206:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4214:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (" = ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4208:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:4216:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLA__V21*/ meltfptr[18]), 6, "CLASS_FIELDS"); @@ -10306,7 +10404,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CLASS_FIELDS__V25*/ meltfptr[24])));; { - MELT_LOCATION ("warmelt-outobj.melt:4207:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4215:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), ( /*_#MULTIPLE_LENGTH__L12*/ meltfnum[7])); @@ -10314,7 +10412,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4209:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4217:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (";")); @@ -10322,7 +10420,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4210:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4218:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10333,7 +10431,7 @@ lab_endgetargs:; /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-outobj.melt:4211:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4219:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10368,7 +10466,7 @@ lab_endgetargs:; /*_#I__L15*/ meltfnum[14] = (( /*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12]) < ( /*_#GET_INT__L14*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-outobj.melt:4210:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4218:/ cond"); /*cond */ if ( /*_#I__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -10376,7 +10474,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4210:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4218:/ cond.else"); /*^block */ /*anyblock */ @@ -10390,7 +10488,7 @@ lab_endgetargs:; melt_assert_failed (("check limited implbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4210) ? (4210) : __LINE__, + (4218) ? (4218) : __LINE__, __FUNCTION__); ; } @@ -10406,7 +10504,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = /*_.IFELSE___V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4210:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4218:/ clear"); /*clear *//*_#STRBUF_USEDLENGTH__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V27*/ meltfptr[26] = 0; @@ -10429,7 +10527,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4199:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4207:/ clear"); /*clear *//*_.CLA__V21*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#IX__L10*/ meltfnum[6] = 0; @@ -10447,12 +10545,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4213:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4221:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4214:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4222:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10473,13 +10571,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4219:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4227:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4162:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4170:/ clear"); /*clear *//*_.RAWDICTFIELDS__V7*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.SORTEDFIELDS__V8*/ meltfptr[7] = 0; @@ -10495,7 +10593,7 @@ lab_endgetargs:; /*clear *//*_#MAPSTRING_COUNT__L9*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V29*/ meltfptr[26] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4160:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -10574,6 +10672,13 @@ meltrout_119_warmelt_outobj_NTH_SECUNDARY_FILE (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_119_warmelt_outobj_NTH_SECUNDARY_FILE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -10589,7 +10694,7 @@ meltrout_119_warmelt_outobj_NTH_SECUNDARY_FILE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4241:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ getarg"); /*_.MODCTX__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10627,7 +10732,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4242:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4250:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10639,7 +10744,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4242:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4250:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10647,7 +10752,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4242:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4250:/ cond.else"); /*^block */ /*anyblock */ @@ -10661,7 +10766,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4242) ? (4242) : __LINE__, __FUNCTION__); + (4250) ? (4250) : __LINE__, __FUNCTION__); ; } ; @@ -10676,7 +10781,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4242:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4250:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -10689,7 +10794,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4243:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4251:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10700,7 +10805,7 @@ lab_endgetargs:; /*_#IS_STRING__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:4243:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4251:/ cond"); /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10708,7 +10813,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4243:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4251:/ cond.else"); /*^block */ /*anyblock */ @@ -10722,7 +10827,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4243) ? (4243) : __LINE__, __FUNCTION__); + (4251) ? (4251) : __LINE__, __FUNCTION__); ; } ; @@ -10737,7 +10842,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4243:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4251:/ clear"); /*clear *//*_#IS_STRING__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -10750,7 +10855,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4244:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4252:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10761,7 +10866,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L4*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.DECLBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4244:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4252:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10769,7 +10874,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4244:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4252:/ cond.else"); /*^block */ /*anyblock */ @@ -10783,7 +10888,7 @@ lab_endgetargs:; melt_assert_failed (("check declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4244) ? (4244) : __LINE__, __FUNCTION__); + (4252) ? (4252) : __LINE__, __FUNCTION__); ; } ; @@ -10798,7 +10903,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4244:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4252:/ clear"); /*clear *//*_#IS_STRBUF__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -10809,7 +10914,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4245:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4253:/ quasiblock"); /*^cond */ @@ -10847,7 +10952,7 @@ lab_endgetargs:; (melt_multiple_nth ((melt_ptr_t) ( /*_.MOFILES__V12*/ meltfptr[11]), ( /*_#IX__L1*/ meltfnum[0])));; - MELT_LOCATION ("warmelt-outobj.melt:4249:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4257:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10867,7 +10972,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.NTHFILE__V13*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-outobj.melt:4249:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4257:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10883,7 +10988,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[13] = /*_.RETURN___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4249:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4257:/ clear"); /*clear *//*_.RETURN___V15*/ meltfptr[14] = 0; } ; @@ -10894,12 +10999,12 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4250:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4258:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = (( /*_#IX__L1*/ meltfnum[0]) <= (0));; - MELT_LOCATION ("warmelt-outobj.melt:4250:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4258:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -10913,7 +11018,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:4250:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4258:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10929,7 +11034,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[14] = /*_.RETURN___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4250:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4258:/ clear"); /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; } ; @@ -10940,12 +11045,12 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4251:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4259:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L7*/ meltfnum[6] = (( /*_#IX__L1*/ meltfnum[0]) >= ( /*_#NBFILES__L5*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:4251:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4259:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -10959,7 +11064,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:4251:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4259:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10975,7 +11080,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[16] = /*_.RETURN___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4251:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4259:/ clear"); /*clear *//*_.RETURN___V19*/ meltfptr[18] = 0; } ; @@ -10986,7 +11091,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4253:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4261:/ quasiblock"); /*_.PATH__V21*/ meltfptr[20] = @@ -11002,7 +11107,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[2])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:4259:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4267:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11061,14 +11166,14 @@ lab_endgetargs:; /*_.NEWFILE__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; { - MELT_LOCATION ("warmelt-outobj.melt:4265:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4273:/ locexp"); melt_put_int ((melt_ptr_t) ( /*_.NEWFILE__V23*/ meltfptr[22]), ( /*_#IX__L1*/ meltfnum[0])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4266:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4274:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.MOFILES__V12*/ meltfptr[11]), ( /*_#IX__L1*/ meltfnum[0]), @@ -11076,7 +11181,7 @@ lab_endgetargs:; meltfptr[22])); } ; - MELT_LOCATION ("warmelt-outobj.melt:4267:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4275:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11085,7 +11190,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.NEWFILE__V23*/ meltfptr[22];; { - MELT_LOCATION ("warmelt-outobj.melt:4267:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4275:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11100,7 +11205,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V20*/ meltfptr[18] = /*_.RETURN___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-outobj.melt:4253:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4261:/ clear"); /*clear *//*_.PATH__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.IMPLBUF__V22*/ meltfptr[21] = 0; @@ -11110,7 +11215,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V25*/ meltfptr[24] = 0; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V20*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:4245:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4253:/ clear"); /*clear *//*_.MOFILES__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_#NBFILES__L5*/ meltfnum[1] = 0; @@ -11128,7 +11233,7 @@ lab_endgetargs:; /*clear *//*_.IF___V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LET___V20*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4241:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11137,7 +11242,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { - MELT_LOCATION ("warmelt-outobj.melt:4241:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11235,6 +11340,13 @@ meltrout_120_warmelt_outobj_OUTPUT_MELT_DESCRIPTOR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_120_warmelt_outobj_OUTPUT_MELT_DESCRIPTOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 153; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -11250,7 +11362,7 @@ meltrout_120_warmelt_outobj_OUTPUT_MELT_DESCRIPTOR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4275:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ getarg"); /*_.MODNAMSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11282,7 +11394,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4276:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4284:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11308,7 +11420,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4276:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4284:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11323,7 +11435,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4276:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4284:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11336,7 +11448,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4276; + argtab[2].meltbp_long = 4284; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor modnamstr="; /*^apply.arg */ @@ -11367,7 +11479,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4276:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4284:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -11380,7 +11492,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4276:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4284:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -11389,7 +11501,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4276:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4284:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -11404,7 +11516,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4277:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4285:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11415,7 +11527,7 @@ lab_endgetargs:; /*_#IS_STRING__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:4277:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4285:/ cond"); /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11423,7 +11535,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4277:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4285:/ cond.else"); /*^block */ /*anyblock */ @@ -11437,7 +11549,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4277) ? (4277) : __LINE__, __FUNCTION__); + (4285) ? (4285) : __LINE__, __FUNCTION__); ; } ; @@ -11452,7 +11564,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4277:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4285:/ clear"); /*clear *//*_#IS_STRING__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -11465,7 +11577,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4278:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4286:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11477,7 +11589,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4278:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4286:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11485,7 +11597,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4278:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4286:/ cond.else"); /*^block */ /*anyblock */ @@ -11499,7 +11611,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4278) ? (4278) : __LINE__, __FUNCTION__); + (4286) ? (4286) : __LINE__, __FUNCTION__); ; } ; @@ -11514,7 +11626,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4278:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4286:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -11525,7 +11637,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4279:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4287:/ quasiblock"); /*_#NBSECFILES__L5*/ meltfnum[1] = @@ -11571,7 +11683,7 @@ lab_endgetargs:; (meltgc_new_string_nakedbasename ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[4])), melt_string_str ((melt_ptr_t) ( /*_.MODNAMSTR__V2*/ meltfptr[1]))));; - MELT_LOCATION ("warmelt-outobj.melt:4288:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4296:/ quasiblock"); /*_.BUF__V20*/ meltfptr[19] = @@ -11581,7 +11693,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:4290:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4298:/ locexp"); meltgc_add_out_cident ((melt_ptr_t) ( /*_.BUF__V20*/ meltfptr[19]), melt_string_str ((melt_ptr_t) ( /*_.MODNAMSTR__V2*/ @@ -11596,12 +11708,12 @@ lab_endgetargs:; /*_.LET___V19*/ meltfptr[18] = /*_.STRBUF2STRING__V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:4288:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4296:/ clear"); /*clear *//*_.BUF__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V21*/ meltfptr[20] = 0; /*_.MODCIDENT__V22*/ meltfptr[19] = /*_.LET___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:4292:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4300:/ quasiblock"); /*_.BUF__V24*/ meltfptr[23] = @@ -11611,7 +11723,7 @@ lab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-outobj.melt:4294:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4302:/ locexp"); meltgc_add_out_cident ((melt_ptr_t) ( /*_.BUF__V24*/ meltfptr[23]), melt_string_str ((melt_ptr_t) ( /*_.MODBUILDSTR__V18*/ @@ -11626,12 +11738,12 @@ lab_endgetargs:; /*_.LET___V23*/ meltfptr[20] = /*_.STRBUF2STRING__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-outobj.melt:4292:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4300:/ clear"); /*clear *//*_.BUF__V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.STRBUF2STRING__V25*/ meltfptr[24] = 0; /*_.MODBUILDCIDENT__V26*/ meltfptr[23] = /*_.LET___V23*/ meltfptr[20];; - MELT_LOCATION ("warmelt-outobj.melt:4296:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4304:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11652,7 +11764,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4297:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4305:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11676,7 +11788,7 @@ lab_endgetargs:; /*_.PACKAGEPCLIST__V28*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4299:/ blockmultialloc"); + MELT_LOCATION ("warmelt-outobj.melt:4307:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -11698,11 +11810,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#1 */ - melt_assertmsg ("putupl [:4299] #1 checktup", + melt_assertmsg ("putupl [:4307] #1 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V30*/ meltfptr[29])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4299] #1 checkoff", + melt_assertmsg ("putupl [:4307] #1 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -11713,11 +11825,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#2 */ - melt_assertmsg ("putupl [:4299] #2 checktup", + melt_assertmsg ("putupl [:4307] #2 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V30*/ meltfptr[29])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4299] #2 checkoff", + melt_assertmsg ("putupl [:4307] #2 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -11728,11 +11840,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#3 */ - melt_assertmsg ("putupl [:4299] #3 checktup", + melt_assertmsg ("putupl [:4307] #3 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V30*/ meltfptr[29])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4299] #3 checkoff", + melt_assertmsg ("putupl [:4307] #3 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -11743,11 +11855,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#4 */ - melt_assertmsg ("putupl [:4299] #4 checktup", + melt_assertmsg ("putupl [:4307] #4 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V30*/ meltfptr[29])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4299] #4 checkoff", + melt_assertmsg ("putupl [:4307] #4 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) @@ -11762,7 +11874,7 @@ lab_endgetargs:; /*_.FLAVORTUPLE__V29*/ meltfptr[28] = /*_.TUPLREC___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4299:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4307:/ clear"); /*clear *//*_.TUPLREC___V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.TUPLREC___V30*/ meltfptr[29] = 0; @@ -11770,7 +11882,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4301:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4309:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/** GENERATED MELT DESCRIPTOR FILE ")); @@ -11778,7 +11890,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4302:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4310:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), melt_string_str ((melt_ptr_t) @@ -11788,7 +11900,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4303:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4311:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("+meltdesc.c \n** NEVER EDIT OR MOVE THIS, IT IS GENERATED & PARSED! **/")); @@ -11796,14 +11908,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4304:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4312:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4305:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4313:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* These identifiers are generated in warmelt-outobj.melt \n & handled in melt-runtime.c carefully. */")); @@ -11811,12 +11923,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4306:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4314:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4307:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4315:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11839,7 +11951,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4308:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4316:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11858,7 +11970,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4309:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4317:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11879,14 +11991,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4325:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4333:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4326:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4334:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* version of the GCC compiler & MELT runtime generating this */")); @@ -11894,14 +12006,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4327:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4335:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4328:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4336:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char melt_genversionstr[]=\"")); @@ -11909,7 +12021,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4331:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4339:/ locexp"); /* output_melt_descriptor GENVERSCH__1 + */ meltgc_add_strbuf_cstr ((melt_ptr_t) /*_.DEBUF__V13*/ meltfptr[11], melt_gccversionstr); @@ -11918,7 +12030,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4334:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4342:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\"")); @@ -11926,12 +12038,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4335:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4343:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4336:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4344:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11952,20 +12064,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4344:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4352:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4345:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4353:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char melt_versionmeltstr[]=\"")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4346:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4354:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11985,7 +12097,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4349:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4357:/ locexp"); /* output_melt_descriptor GENVMELTCH__1 + */ meltgc_add_strbuf_cstr ((melt_ptr_t) /*_.DEBUF__V13*/ meltfptr[11], melt_version_str ()); @@ -11996,7 +12108,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4353:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4361:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\";")); @@ -12004,28 +12116,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4354:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4362:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4355:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4363:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4357:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4365:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4358:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4366:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* source name & real path of the module */")); @@ -12033,14 +12145,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4359:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4367:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4360:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4368:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/*MELTMODULENAME ")); @@ -12048,7 +12160,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4361:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4369:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), melt_string_str ((melt_ptr_t) @@ -12058,7 +12170,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4362:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4370:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (" */")); @@ -12066,12 +12178,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4363:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4371:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4364:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4372:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12089,7 +12201,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4365:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4373:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12112,12 +12224,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4366:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4374:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4367:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4375:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12140,14 +12252,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4368:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4376:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4369:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4377:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char melt_modulename[]=\"")); @@ -12155,7 +12267,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4372:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4380:/ locexp"); /* output_melt_descriptor GENMODNAMSTR__1 + */ meltgc_add_strbuf_cstr ((melt_ptr_t) /*_.DEBUF__V13*/ meltfptr[11], lbasename (melt_string_str @@ -12166,7 +12278,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4376:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4384:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\";")); @@ -12174,14 +12286,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4377:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4385:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4378:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4386:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char melt_modulerealpath[]=\"")); @@ -12189,7 +12301,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4381:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4389:/ locexp"); /* output_melt_descriptor GENRPATHCH__1 + */ char *lrp = lrealpath (melt_string_str @@ -12219,7 +12331,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4397:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4405:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\";")); @@ -12227,21 +12339,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4398:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4406:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4399:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4407:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4400:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4408:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* hash of preprocessed melt-run.h generating this */")); @@ -12249,14 +12361,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4401:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4409:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4402:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4410:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char melt_prepromd5meltrun[]=\"")); @@ -12264,7 +12376,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4405:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4413:/ locexp"); /* output_melt_descriptor GENVERSCH__2 */ meltgc_add_strbuf_cstr ((melt_ptr_t) /*_.DEBUF__V13*/ meltfptr[11], MELT_RUN_HASHMD5); @@ -12273,7 +12385,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4408:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4416:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\";")); @@ -12281,14 +12393,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4409:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4417:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4411:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4419:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* hexmd5checksum of primary C file */")); @@ -12296,23 +12408,23 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4412:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4420:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4413:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4421:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char melt_primaryhexmd5[]=\"")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4414:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4422:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:4415:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4423:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12359,7 +12471,7 @@ lab_endgetargs:; (const char *) 0);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4421:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4429:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12385,7 +12497,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4421:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4429:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12400,7 +12512,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4421:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4429:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12413,7 +12525,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4421; + argtab[2].meltbp_long = 4429; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor primpath="; /*^apply.arg */ @@ -12433,7 +12545,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4421:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4429:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0; @@ -12446,7 +12558,7 @@ lab_endgetargs:; /*_.IF___V45*/ meltfptr[44] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4421:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4429:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[45] = /*_.IF___V45*/ meltfptr[44];; @@ -12455,7 +12567,7 @@ lab_endgetargs:; /*_.IFCPP___V44*/ meltfptr[43] = /*_.PROGN___V47*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4421:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4429:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V45*/ meltfptr[44] = 0; @@ -12470,28 +12582,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4422:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4430:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.PATHLIST__V16*/ meltfptr[15]), (melt_ptr_t) ( /*_.PRIMPATH__V39*/ meltfptr[38])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4423:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4431:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.MD5LIST__V17*/ meltfptr[16]), (melt_ptr_t) ( /*_.PRIMMD5S__V40*/ meltfptr[39])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4424:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4432:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), melt_string_str ((melt_ptr_t) ( /*_.PRIMMD5S__V40*/ meltfptr[39]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4425:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4433:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12509,7 +12621,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4426:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4434:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12538,12 +12650,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4427:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4435:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4428:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4436:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12572,12 +12684,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4429:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4437:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4431:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4439:/ quasiblock"); /*^checksignal */ @@ -12604,7 +12716,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.PACKAGEPCTUP__V52*/ meltfptr[51])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4434:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4442:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12630,7 +12742,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4434:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4442:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12645,7 +12757,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4434:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4442:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12659,7 +12771,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4434; + argtab[2].meltbp_long = 4442; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor packagepctup="; @@ -12680,7 +12792,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4434:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4442:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; @@ -12693,7 +12805,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4434:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4442:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; @@ -12702,7 +12814,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4434:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4442:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V54*/ meltfptr[53] = 0; @@ -12715,7 +12827,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4435:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4443:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -12726,7 +12838,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4436:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12749,7 +12861,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4437:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4445:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12791,7 +12903,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:4441:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4449:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12818,7 +12930,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4438:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4446:/ clear"); /*clear *//*_.CURPACK__V60*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_#PKIX__L12*/ meltfnum[10] = 0; @@ -12826,7 +12938,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V61*/ meltfptr[60] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4442:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4450:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12845,7 +12957,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4443:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4451:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12870,7 +12982,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4435:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4443:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[63] = /*_.ADD2OUT__V63*/ meltfptr[62];; @@ -12879,7 +12991,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[53] = /*_.PROGN___V64*/ meltfptr[63];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4435:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4443:/ clear"); /*clear *//*_.ADD2OUT__V58*/ meltfptr[54] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V59*/ meltfptr[58] = 0; @@ -12898,7 +13010,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4445:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4453:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -12909,13 +13021,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4445:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4453:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4446:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12934,7 +13046,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4445:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4453:/ quasiblock"); /*_.PROGN___V67*/ meltfptr[61] = /*_.ADD2OUT__V66*/ meltfptr[58];; @@ -12943,7 +13055,7 @@ lab_endgetargs:; /*_.IFELSE___V65*/ meltfptr[54] = /*_.PROGN___V67*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4445:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4453:/ clear"); /*clear *//*_.ADD2OUT__V66*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_.PROGN___V67*/ meltfptr[61] = 0; @@ -12953,7 +13065,7 @@ lab_endgetargs:; ; /*_.LET___V51*/ meltfptr[50] = /*_.IFELSE___V65*/ meltfptr[54];; - MELT_LOCATION ("warmelt-outobj.melt:4431:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4439:/ clear"); /*clear *//*_.PACKAGEPCTUP__V52*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_#NBPACKAGEPC__L9*/ meltfnum[7] = 0; @@ -12963,7 +13075,7 @@ lab_endgetargs:; /*clear *//*_.IF___V57*/ meltfptr[53] = 0; /*^clear */ /*clear *//*_.IFELSE___V65*/ meltfptr[54] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4448:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4456:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12986,7 +13098,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4449:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4457:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13027,7 +13139,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:4453:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4461:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13072,7 +13184,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4450:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4458:/ clear"); /*clear *//*_.CURFLAV__V70*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_#FLAVIX__L13*/ meltfnum[6] = 0; @@ -13082,7 +13194,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4455:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4463:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\";")); @@ -13090,21 +13202,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4456:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4464:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4458:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4466:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4459:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4467:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* hexmd5checksum of secondary C files */")); @@ -13112,14 +13224,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4460:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4468:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4461:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4469:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const char* const melt_secondaryhexmd5tab[]={")); @@ -13127,7 +13239,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4463:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4471:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13153,7 +13265,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4463:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4471:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -13168,7 +13280,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4463:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4471:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13182,7 +13294,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4463; + argtab[2].meltbp_long = 4471; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor secfiles="; /*^apply.arg */ @@ -13202,7 +13314,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V74*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4463:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4471:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V74*/ meltfptr[53] = 0; @@ -13215,7 +13327,7 @@ lab_endgetargs:; /*_.IF___V73*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4463:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4471:/ quasiblock"); /*_.PROGN___V75*/ meltfptr[54] = /*_.IF___V73*/ meltfptr[52];; @@ -13224,7 +13336,7 @@ lab_endgetargs:; /*_.IFCPP___V72*/ meltfptr[51] = /*_.PROGN___V75*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4463:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4471:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V73*/ meltfptr[52] = 0; @@ -13255,7 +13367,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4467:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4475:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13281,7 +13393,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4467:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4475:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -13296,7 +13408,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4467:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4475:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13310,7 +13422,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4467; + argtab[2].meltbp_long = 4475; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor curfil="; @@ -13337,7 +13449,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4467:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4475:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[78] = 0; @@ -13350,7 +13462,7 @@ lab_endgetargs:; /*_.IF___V78*/ meltfptr[54] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4467:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4475:/ quasiblock"); /*_.PROGN___V80*/ meltfptr[78] = /*_.IF___V78*/ meltfptr[54];; @@ -13359,7 +13471,7 @@ lab_endgetargs:; /*_.IFCPP___V77*/ meltfptr[52] = /*_.PROGN___V80*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4467:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4475:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V78*/ meltfptr[54] = 0; @@ -13374,13 +13486,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4468:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4476:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4469:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4477:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -13393,7 +13505,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4471:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4479:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13405,7 +13517,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURFIL__V76*/ meltfptr[53]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[13])));; - MELT_LOCATION ("warmelt-outobj.melt:4471:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4479:/ cond"); /*cond */ if ( /*_#IS_A__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -13413,7 +13525,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4471:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4479:/ cond.else"); /*^block */ /*anyblock */ @@ -13424,7 +13536,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("output_melt_descriptor check curfil"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (4471) ? (4471) : __LINE__, __FUNCTION__); + melt_assert_failed (("output_melt_descriptor check curfil"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (4479) ? (4479) : __LINE__, __FUNCTION__); ; } ; @@ -13440,7 +13552,7 @@ lab_endgetargs:; /*_.IFELSE___V82*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4471:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4479:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V82*/ meltfptr[78] = 0; @@ -13451,11 +13563,11 @@ lab_endgetargs:; /*_.IFCPP___V81*/ meltfptr[54] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4473:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:4481:/ compute"); /*_#LASTSECFILEIX__L6*/ meltfnum[0] = /*_#SETQ___L20*/ meltfnum[7] = /*_#FILIX__L16*/ meltfnum[14];; - MELT_LOCATION ("warmelt-outobj.melt:4474:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4482:/ quasiblock"); /*^cond */ @@ -13491,7 +13603,7 @@ lab_endgetargs:; ((melt_ptr_t) /*_.SECPATH__V83*/ meltfptr[78])));; { - MELT_LOCATION ("warmelt-outobj.melt:4477:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4485:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.PATHLIST__V16*/ meltfptr[15]), (melt_ptr_t) ( /*_.SECPATH__V83*/ @@ -13500,7 +13612,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4478:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4486:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.MD5LIST__V17*/ meltfptr[16]), (melt_ptr_t) ( /*_.SECMD5S__V84*/ @@ -13509,7 +13621,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4479:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4487:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), @@ -13518,7 +13630,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4480:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4488:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), @@ -13528,7 +13640,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4481:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4489:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), @@ -13540,7 +13652,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CURFIL__V76*/ meltfptr[53])));; { - MELT_LOCATION ("warmelt-outobj.melt:4482:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4490:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ( /*_#GET_INT__L21*/ meltfnum[17])); @@ -13548,7 +13660,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4483:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4491:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), @@ -13557,7 +13669,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4484:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4492:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), melt_string_str ((melt_ptr_t) @@ -13566,14 +13678,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4485:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4493:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("\",")); } ; - MELT_LOCATION ("warmelt-outobj.melt:4486:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4494:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13595,7 +13707,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4487:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4495:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13617,7 +13729,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4489:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4497:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13668,12 +13780,12 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-outobj.melt:4494:/ checksignal"); + ("warmelt-outobj.melt:4502:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L23*/ meltfnum[22] = (( /*_#FILIX__L16*/ meltfnum[14]) < (10));; - MELT_LOCATION ("warmelt-outobj.melt:4494:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4502:/ cond"); /*cond */ if ( /*_#I__L23*/ meltfnum[22]) /*then */ { /*^cond.then */ @@ -13682,18 +13794,18 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:4494:/ cond.else"); + ("warmelt-outobj.melt:4502:/ cond.else"); /*_?*/ meltfram__.loc_CSTRING__o0 = "";; } ; MELT_LOCATION - ("warmelt-outobj.melt:4496:/ checksignal"); + ("warmelt-outobj.melt:4504:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L24*/ meltfnum[23] = (( /*_#FILIX__L16*/ meltfnum[14]) < (10));; - MELT_LOCATION ("warmelt-outobj.melt:4496:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4504:/ cond"); /*cond */ if ( /*_#I__L24*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -13702,13 +13814,13 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:4496:/ cond.else"); + ("warmelt-outobj.melt:4504:/ cond.else"); /*_?*/ meltfram__.loc_CSTRING__o1 = "";; } ; MELT_LOCATION - ("warmelt-outobj.melt:4493:/ checksignal"); + ("warmelt-outobj.melt:4501:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13776,7 +13888,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4490:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4498:/ clear"); /*clear *//*_.CURFLAV__V88*/ meltfptr[87] = 0; /*^clear */ /*clear *//*_#FLAVIX__L22*/ meltfnum[21] = 0; @@ -13793,7 +13905,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4474:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4482:/ clear"); /*clear *//*_.SECPATH__V83*/ meltfptr[78] = 0; /*^clear */ /*clear *//*_.SECMD5S__V84*/ meltfptr[83] = 0; @@ -13805,12 +13917,12 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V86*/ meltfptr[85] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V87*/ meltfptr[86] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4470:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4478:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4469:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4477:/ clear"); /*clear *//*_.IFCPP___V81*/ meltfptr[54] = 0; /*^clear */ /*clear *//*_#SETQ___L20*/ meltfnum[7] = 0; @@ -13826,7 +13938,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:4500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4508:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), @@ -13844,7 +13956,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4464:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4472:/ clear"); /*clear *//*_.CURFIL__V76*/ meltfptr[53] = 0; /*^clear */ /*clear *//*_#FILIX__L16*/ meltfnum[14] = 0; @@ -13854,14 +13966,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4502:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4510:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4503:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4511:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("(const char*)0 };")); @@ -13869,21 +13981,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4504:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4512:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4506:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4514:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4507:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4515:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* last index of secondary files */")); @@ -13891,14 +14003,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4508:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4516:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4509:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4517:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("const int melt_lastsecfileindex=")); @@ -13906,14 +14018,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4510:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4518:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ( /*_#LASTSECFILEIX__L6*/ meltfnum[0])); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4511:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4519:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (";")); @@ -13921,12 +14033,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4512:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4520:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4513:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4521:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13949,7 +14061,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[4])), melt_strbuf_str ((melt_ptr_t) ( /*_.SECPATHBUF__V43*/ meltfptr[42]))));; - MELT_LOCATION ("warmelt-outobj.melt:4514:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4522:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13980,7 +14092,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4515:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4523:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } @@ -13990,7 +14102,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[4])), melt_strbuf_str ((melt_ptr_t) ( /*_.SECMD5BUF__V42*/ meltfptr[41]))));; - MELT_LOCATION ("warmelt-outobj.melt:4516:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4524:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14021,15 +14133,15 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4517:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4525:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.MKBUF__V15*/ meltfptr[14]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4519:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4527:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:4520:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4528:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14051,7 +14163,7 @@ lab_endgetargs:; (meltgc_new_string_nakedbasename ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[4])), melt_string_str ((melt_ptr_t) ( /*_.MODNAMSTR__V2*/ meltfptr[1]))));; - MELT_LOCATION ("warmelt-outobj.melt:4523:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4531:/ quasiblock"); /*_.MOUT__V100*/ meltfptr[99] = @@ -14059,7 +14171,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[2])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:4525:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4533:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14079,14 +14191,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4526:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4534:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.MOUT__V100*/ meltfptr[99]), melt_string_str ((melt_ptr_t) ( /*_.MIDSTR__V98*/ meltfptr[97]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4527:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4535:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14106,7 +14218,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4528:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4536:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.MOUT__V100*/ meltfptr[99]), melt_string_str ((melt_ptr_t) ( /*_.CUMPATHMDS__V97*/ @@ -14121,7 +14233,7 @@ lab_endgetargs:; /*_.LET___V99*/ meltfptr[98] = /*_.STRBUF2STRING__V103*/ meltfptr[102];; - MELT_LOCATION ("warmelt-outobj.melt:4523:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4531:/ clear"); /*clear *//*_.MOUT__V100*/ meltfptr[99] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V101*/ meltfptr[100] = 0; @@ -14132,7 +14244,7 @@ lab_endgetargs:; /*_.MODIDNAM__V104*/ meltfptr[99] = /*_.LET___V99*/ meltfptr[98];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4532:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4540:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14143,7 +14255,7 @@ lab_endgetargs:; /*_#IS_STRING__L25*/ meltfnum[17] = (melt_magic_discr ((melt_ptr_t) ( /*_.CUMPATHMDS__V97*/ meltfptr[96])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:4532:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4540:/ cond"); /*cond */ if ( /*_#IS_STRING__L25*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -14151,7 +14263,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4532:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4540:/ cond.else"); /*^block */ /*anyblock */ @@ -14165,7 +14277,7 @@ lab_endgetargs:; melt_assert_failed (("check cumpathmds"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4532) ? (4532) : __LINE__, __FUNCTION__); + (4540) ? (4540) : __LINE__, __FUNCTION__); ; } ; @@ -14180,7 +14292,7 @@ lab_endgetargs:; /*_.IFCPP___V105*/ meltfptr[100] = /*_.IFELSE___V106*/ meltfptr[101];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4532:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4540:/ clear"); /*clear *//*_#IS_STRING__L25*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V106*/ meltfptr[101] = 0; @@ -14191,7 +14303,7 @@ lab_endgetargs:; /*_.IFCPP___V105*/ meltfptr[100] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4534:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4542:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14214,7 +14326,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4535:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4543:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14252,7 +14364,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4538:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4546:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14293,7 +14405,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:4542:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4550:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14323,7 +14435,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4543:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4551:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14370,7 +14482,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4546:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4554:/ quasiblock"); /*^checksignal */ @@ -14392,7 +14504,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4547:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4555:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14413,7 +14525,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4549:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4557:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14434,7 +14546,7 @@ lab_endgetargs:; /*_#I__L29*/ meltfnum[28] = (( /*_#MULTIPLE_LENGTH__L27*/ meltfnum[17]) == ( /*_#MULTIPLE_LENGTH__L28*/ meltfnum[27]));; - MELT_LOCATION ("warmelt-outobj.melt:4549:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4557:/ cond"); /*cond */ if ( /*_#I__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -14442,7 +14554,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4549:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4557:/ cond.else"); /*^block */ /*anyblock */ @@ -14456,7 +14568,7 @@ lab_endgetargs:; melt_assert_failed (("check same length pathtup md5tup"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4549) ? (4549) : __LINE__, + (4557) ? (4557) : __LINE__, __FUNCTION__); ; } @@ -14473,7 +14585,7 @@ lab_endgetargs:; /*_.IFELSE___V116*/ meltfptr[115];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4549:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4557:/ clear"); /*clear *//*_#MULTIPLE_LENGTH__L27*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_#MULTIPLE_LENGTH__L28*/ meltfnum[27] = 0; @@ -14506,7 +14618,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:4553:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4561:/ quasiblock"); /*_.CURMD5__V119*/ meltfptr[118] = @@ -14515,7 +14627,7 @@ lab_endgetargs:; ( /*_#IX__L30*/ meltfnum[17])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4555:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4563:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14541,7 +14653,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4555:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4563:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -14557,7 +14669,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:4555:/ checksignal"); + ("warmelt-outobj.melt:4563:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14571,7 +14683,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4555; + argtab[2].meltbp_long = 4563; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor curpath="; @@ -14605,7 +14717,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V122*/ meltfptr[121];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4555:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4563:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L32*/ meltfnum[28] = 0; /*^clear */ @@ -14620,7 +14732,7 @@ lab_endgetargs:; /*_.IF___V121*/ meltfptr[120] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4555:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4563:/ quasiblock"); /*_.PROGN___V123*/ meltfptr[121] = @@ -14631,7 +14743,7 @@ lab_endgetargs:; /*_.PROGN___V123*/ meltfptr[121];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4555:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4563:/ clear"); /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[27] = 0; /*^clear */ /*clear *//*_.IF___V121*/ meltfptr[120] = 0; @@ -14652,7 +14764,7 @@ lab_endgetargs:; (( /*!DISCR_STRING */ meltfrout->tabval[4])), melt_string_str ((melt_ptr_t) ( /*_.CURPATH__V117*/ meltfptr[115]))));; - MELT_LOCATION ("warmelt-outobj.melt:4556:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4564:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14695,7 +14807,7 @@ lab_endgetargs:; /*_.LET___V118*/ meltfptr[117] = /*_.ADD2OUT__V125*/ meltfptr[121];; - MELT_LOCATION ("warmelt-outobj.melt:4553:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4561:/ clear"); /*clear *//*_.CURMD5__V119*/ meltfptr[118] = 0; /*^clear */ /*clear *//*_.IFCPP___V120*/ meltfptr[119] = 0; @@ -14710,7 +14822,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4550:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4558:/ clear"); /*clear *//*_.CURPATH__V117*/ meltfptr[115] = 0; /*^clear */ /*clear *//*_#IX__L30*/ meltfnum[17] = 0; @@ -14719,13 +14831,13 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4546:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4554:/ clear"); /*clear *//*_.PATHTUP__V113*/ meltfptr[112] = 0; /*^clear */ /*clear *//*_.MD5TUP__V114*/ meltfptr[113] = 0; /*^clear */ /*clear *//*_.IFCPP___V115*/ meltfptr[114] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4561:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4569:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14749,7 +14861,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4539:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4547:/ clear"); /*clear *//*_.CURFLAV__V110*/ meltfptr[109] = 0; /*^clear */ /*clear *//*_#FLAVIX__L26*/ meltfnum[7] = 0; @@ -14761,7 +14873,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V126*/ meltfptr[118] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4564:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4572:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14784,7 +14896,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4565:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4573:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14803,10 +14915,10 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4566:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:4574:/ compute"); /*_.MKRULEBUF__V41*/ meltfptr[40] = /*_.SETQ___V129*/ meltfptr[121] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:4567:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4575:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14824,7 +14936,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4568:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4576:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14853,7 +14965,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4569:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4577:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14883,12 +14995,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4570:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4578:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4571:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4579:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14926,7 +15038,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4583:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4591:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), ("/** GENERATED MELT TIMESTAMP FILE ")); @@ -14934,7 +15046,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4584:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4592:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), melt_string_str ((melt_ptr_t) @@ -14944,7 +15056,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4585:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4593:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), ("+melttime.h \n** NEVER EDIT OR MOVE THIS, IT IS GENERATED & PARSED! **/")); @@ -14952,14 +15064,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4586:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4594:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4587:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4595:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), ("/* These identifiers are generated in warmelt-outobj.melt \n & handled in melt-runtime.c carefully. */")); @@ -14967,19 +15079,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4588:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4596:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4589:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4597:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4590:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4598:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15020,14 +15132,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4605:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4613:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4608:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4616:/ locexp"); /* output_melt_descriptor GENTIMCH__1 + */ time_t now = 0; char nowbuf[64]; @@ -15051,12 +15163,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4625:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4633:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4626:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4634:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15077,12 +15189,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4635:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4643:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4636:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4644:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15121,19 +15233,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4645:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4653:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.TIBUF__V14*/ meltfptr[13]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4647:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4655:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4648:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4656:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15154,14 +15266,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4653:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4661:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4654:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4662:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), ("/* end of melt descriptor file */")); @@ -15169,12 +15281,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4655:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4663:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DEBUF__V13*/ meltfptr[11]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4656:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4664:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15199,7 +15311,7 @@ lab_endgetargs:; ; /*_.LET___V95*/ meltfptr[54] = /*_.ADD2OUT__V138*/ meltfptr[137];; - MELT_LOCATION ("warmelt-outobj.melt:4519:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4527:/ clear"); /*clear *//*_.LIST_TO_MULTIPLE__V96*/ meltfptr[95] = 0; /*^clear */ /*clear *//*_.CUMPATHMDS__V97*/ meltfptr[96] = 0; @@ -15241,10 +15353,10 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V137*/ meltfptr[136] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V138*/ meltfptr[137] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4658:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4666:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:4659:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4667:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15265,7 +15377,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4660:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4668:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15286,7 +15398,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4661:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4669:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15309,7 +15421,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4663:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4671:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15335,7 +15447,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4663:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4671:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L33*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -15350,7 +15462,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4663:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4671:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15364,7 +15476,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4663; + argtab[2].meltbp_long = 4671; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor meltdescpath="; @@ -15391,7 +15503,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V144*/ meltfptr[100];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4663:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4671:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L34*/ meltfnum[27] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V144*/ meltfptr[100] = 0; @@ -15404,7 +15516,7 @@ lab_endgetargs:; /*_.IF___V143*/ meltfptr[99] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4663:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4671:/ quasiblock"); /*_.PROGN___V145*/ meltfptr[102] = /*_.IF___V143*/ meltfptr[99];; @@ -15413,7 +15525,7 @@ lab_endgetargs:; /*_.IFCPP___V142*/ meltfptr[98] = /*_.PROGN___V145*/ meltfptr[102];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4663:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4671:/ clear"); /*clear *//*_#MELT_NEED_DBG__L33*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V143*/ meltfptr[99] = 0; @@ -15428,7 +15540,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4665:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4673:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15454,7 +15566,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4665:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4673:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -15469,7 +15581,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4665:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4673:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15483,7 +15595,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4665; + argtab[2].meltbp_long = 4673; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor melttimepath="; @@ -15510,7 +15622,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V148*/ meltfptr[119];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4665:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4673:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L36*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V148*/ meltfptr[119] = 0; @@ -15523,7 +15635,7 @@ lab_endgetargs:; /*_.IF___V147*/ meltfptr[108] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4665:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4673:/ quasiblock"); /*_.PROGN___V149*/ meltfptr[120] = /*_.IF___V147*/ meltfptr[108];; @@ -15532,7 +15644,7 @@ lab_endgetargs:; /*_.IFCPP___V146*/ meltfptr[101] = /*_.PROGN___V149*/ meltfptr[120];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4665:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4673:/ clear"); /*clear *//*_#MELT_NEED_DBG__L35*/ meltfnum[27] = 0; /*^clear */ /*clear *//*_.IF___V147*/ meltfptr[108] = 0; @@ -15547,7 +15659,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4667:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4675:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15573,7 +15685,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4667:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4675:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L37*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -15588,7 +15700,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4667:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4675:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15602,7 +15714,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4667; + argtab[2].meltbp_long = 4675; /*^apply.arg */ argtab[3].meltbp_cstring = "output_melt_descriptor meltmakepath="; @@ -15629,7 +15741,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V152*/ meltfptr[113];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4667:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4675:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V152*/ meltfptr[113] = 0; @@ -15642,7 +15754,7 @@ lab_endgetargs:; /*_.IF___V151*/ meltfptr[112] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4667:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4675:/ quasiblock"); /*_.PROGN___V153*/ meltfptr[114] = /*_.IF___V151*/ meltfptr[112];; @@ -15651,7 +15763,7 @@ lab_endgetargs:; /*_.IFCPP___V150*/ meltfptr[121] = /*_.PROGN___V153*/ meltfptr[114];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4667:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4675:/ clear"); /*clear *//*_#MELT_NEED_DBG__L37*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V151*/ meltfptr[112] = 0; @@ -15666,7 +15778,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4669:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4677:/ locexp"); /*output_sbuf_no_overwrite_strval */ melt_output_strbuf_to_file_no_overwrite ((melt_ptr_t) ( /*_.DEBUF__V13*/ @@ -15679,7 +15791,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4670:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4678:/ locexp"); /*output_sbuf_no_overwrite_strval */ melt_output_strbuf_to_file_no_overwrite ((melt_ptr_t) ( /*_.TIBUF__V14*/ @@ -15692,7 +15804,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4671:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4679:/ locexp"); /*output_sbuf_no_overwrite_strval */ melt_output_strbuf_to_file_no_overwrite ((melt_ptr_t) ( /*_.MKBUF__V15*/ @@ -15704,7 +15816,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:4658:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4666:/ clear"); /*clear *//*_.MELTDESCPATH__V139*/ meltfptr[95] = 0; /*^clear */ /*clear *//*_.MELTTIMEPATH__V140*/ meltfptr[96] = 0; @@ -15717,7 +15829,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.IFCPP___V150*/ meltfptr[121] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4414:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4422:/ clear"); /*clear *//*_.PRIMPATH__V39*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_.PRIMMD5S__V40*/ meltfptr[39] = 0; @@ -15756,7 +15868,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.LET___V95*/ meltfptr[54] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4279:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4287:/ clear"); /*clear *//*_#NBSECFILES__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#LASTSECFILEIX__L6*/ meltfnum[0] = 0; @@ -15802,7 +15914,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V38*/ meltfptr[37] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4275:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -15883,6 +15995,13 @@ meltrout_121_warmelt_outobj_SYNTESTGEN_ANY (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_121_warmelt_outobj_SYNTESTGEN_ANY_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 21; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -15898,7 +16017,7 @@ meltrout_121_warmelt_outobj_SYNTESTGEN_ANY (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4688:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15944,13 +16063,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:4689:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4697:/ quasiblock"); /*_.DIS__V7*/ meltfptr[6] = ((melt_ptr_t) (melt_discr ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]))));; - MELT_LOCATION ("warmelt-outobj.melt:4690:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4698:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15975,7 +16094,7 @@ lab_endgetargs:; /*_.DISNAME__V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4691:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4699:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16002,7 +16121,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4693:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4701:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16028,7 +16147,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4693:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4701:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16043,7 +16162,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4693:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4701:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16056,7 +16175,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4693; + argtab[2].meltbp_long = 4701; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_any recv="; /*^apply.arg */ @@ -16105,7 +16224,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4693:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4701:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -16118,7 +16237,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4693:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4701:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -16127,7 +16246,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4693:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4701:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -16142,7 +16261,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4698:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4706:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.DLOC__V9*/ meltfptr[8]), ("unimplemented SYNTAX_TEST_GENERATOR method for "), (melt_ptr_t) ( /*_.DISNAME__V8*/ meltfptr[7])); @@ -16150,7 +16269,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4699:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4707:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16161,7 +16280,7 @@ lab_endgetargs:; /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of ((melt_ptr_t) ( /*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SOURCE_GENERATOR_DEVICE */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:4699:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4707:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -16169,7 +16288,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4699:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4707:/ cond.else"); /*^block */ /*anyblock */ @@ -16183,7 +16302,7 @@ lab_endgetargs:; melt_assert_failed (("check gendev"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4699) ? (4699) : __LINE__, __FUNCTION__); + (4707) ? (4707) : __LINE__, __FUNCTION__); ; } ; @@ -16198,7 +16317,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[10] = /*_.IFELSE___V15*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4699:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4707:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[11] = 0; @@ -16211,7 +16330,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4700:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4708:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16222,7 +16341,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4700:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4708:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16230,7 +16349,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4700:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4708:/ cond.else"); /*^block */ /*anyblock */ @@ -16244,7 +16363,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4700) ? (4700) : __LINE__, __FUNCTION__); + (4708) ? (4708) : __LINE__, __FUNCTION__); ; } ; @@ -16259,7 +16378,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[11] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4700:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4708:/ clear"); /*clear *//*_#IS_STRBUF__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -16272,7 +16391,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4701:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4709:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16284,7 +16403,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-outobj.melt:4701:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4709:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -16292,7 +16411,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4701:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4709:/ cond.else"); /*^block */ /*anyblock */ @@ -16306,7 +16425,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4701) ? (4701) : __LINE__, __FUNCTION__); + (4709) ? (4709) : __LINE__, __FUNCTION__); ; } ; @@ -16321,7 +16440,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4701:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4709:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -16334,7 +16453,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4702:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4710:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16350,7 +16469,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4702:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4710:/ cond.else"); /*^block */ /*anyblock */ @@ -16364,7 +16483,7 @@ lab_endgetargs:; melt_assert_failed (("@$@unimplemented syntax_test_generator"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4702) ? (4702) : __LINE__, __FUNCTION__); + (4710) ? (4710) : __LINE__, __FUNCTION__); ; } ; @@ -16379,7 +16498,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4702:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4710:/ clear"); /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; } @@ -16392,7 +16511,7 @@ lab_endgetargs:; /*_.LET___V6*/ meltfptr[5] = /*_.IFCPP___V20*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:4689:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4697:/ clear"); /*clear *//*_.DIS__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.DISNAME__V8*/ meltfptr[7] = 0; @@ -16408,13 +16527,13 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V20*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4688:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-outobj.melt:4688:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16509,6 +16628,13 @@ meltrout_122_warmelt_outobj_SUBSTITUTE_FORMALS_FOR_SYNTEST (meltclosure_ptr_t (struct frame_meltrout_122_warmelt_outobj_SUBSTITUTE_FORMALS_FOR_SYNTEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 35; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -16524,7 +16650,7 @@ meltrout_122_warmelt_outobj_SUBSTITUTE_FORMALS_FOR_SYNTEST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4708:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16562,7 +16688,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4709:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4717:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16588,7 +16714,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4709:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4717:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16603,7 +16729,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4709:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4717:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16616,7 +16742,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4709; + argtab[2].meltbp_long = 4717; /*^apply.arg */ argtab[3].meltbp_cstring = "substitute_formals_for_syntest sbuf="; @@ -16653,7 +16779,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4709:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4717:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -16666,7 +16792,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4709:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4717:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -16675,7 +16801,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4709:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4717:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -16690,7 +16816,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4710:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4718:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16701,7 +16827,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4710:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4718:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16709,7 +16835,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4710:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4718:/ cond.else"); /*^block */ /*anyblock */ @@ -16723,7 +16849,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4710) ? (4710) : __LINE__, __FUNCTION__); + (4718) ? (4718) : __LINE__, __FUNCTION__); ; } ; @@ -16738,7 +16864,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4710:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4718:/ clear"); /*clear *//*_#IS_STRBUF__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -16751,7 +16877,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4711:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4719:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16763,7 +16889,7 @@ lab_endgetargs:; /*is_mapobject: */ (melt_magic_discr ((melt_ptr_t) ( /*_.REPLMAP__V3*/ meltfptr[2])) == MELTOBMAG_MAPOBJECTS);; - MELT_LOCATION ("warmelt-outobj.melt:4711:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4719:/ cond"); /*cond */ if ( /*_#IS_MAPOBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16771,7 +16897,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4711:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4719:/ cond.else"); /*^block */ /*anyblock */ @@ -16785,7 +16911,7 @@ lab_endgetargs:; melt_assert_failed (("check replmap"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4711) ? (4711) : __LINE__, __FUNCTION__); + (4719) ? (4719) : __LINE__, __FUNCTION__); ; } ; @@ -16800,7 +16926,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4711:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4719:/ clear"); /*clear *//*_#IS_MAPOBJECT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -16813,7 +16939,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4712:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4720:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16827,7 +16953,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.FORMALS__V4*/ meltfptr[3])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-outobj.melt:4712:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4720:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16835,7 +16961,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4712:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4720:/ cond.else"); /*^block */ /*anyblock */ @@ -16849,7 +16975,7 @@ lab_endgetargs:; melt_assert_failed (("check formals"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4712) ? (4712) : __LINE__, __FUNCTION__); + (4720) ? (4720) : __LINE__, __FUNCTION__); ; } ; @@ -16864,7 +16990,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4712:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4720:/ clear"); /*clear *//*_#IS_MULTIPLE_OR_NULL__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -16893,7 +17019,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4716:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4724:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16919,7 +17045,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4716:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4724:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16934,7 +17060,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4716:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4724:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16948,7 +17074,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4716; + argtab[2].meltbp_long = 4724; /*^apply.arg */ argtab[3].meltbp_cstring = "substitute_formals_for_syntest curformal="; @@ -16975,7 +17101,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4716:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4724:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0; @@ -16988,7 +17114,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4716:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4724:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[16];; @@ -16997,7 +17123,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4716:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4724:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V17*/ meltfptr[16] = 0; @@ -17012,7 +17138,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4717:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4725:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17025,7 +17151,7 @@ lab_endgetargs:; ( /*_.CURFORMAL__V15*/ meltfptr[13]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4717:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4725:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17033,7 +17159,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4717:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4725:/ cond.else"); /*^block */ /*anyblock */ @@ -17047,7 +17173,7 @@ lab_endgetargs:; melt_assert_failed (("check curformal"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4717) ? (4717) : __LINE__, + (4725) ? (4725) : __LINE__, __FUNCTION__); ; } @@ -17063,7 +17189,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[16] = /*_.IFELSE___V21*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4717:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4725:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[17] = 0; @@ -17074,7 +17200,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4718:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4726:/ quasiblock"); /*^cond */ @@ -17102,7 +17228,7 @@ lab_endgetargs:; /*_.FSYMB__V22*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4719:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4727:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17127,7 +17253,7 @@ lab_endgetargs:; /*_.FTYPE__V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4720:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4728:/ quasiblock"); /*_.NAMBUF__V25*/ meltfptr[24] = @@ -17135,7 +17261,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[3])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:4722:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4730:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17158,7 +17284,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4723:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4731:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17185,7 +17311,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4723:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4731:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.NAMBUF__V25*/ meltfptr[24]), melt_string_str ((melt_ptr_t) @@ -17204,7 +17330,7 @@ lab_endgetargs:; /*_.LET___V24*/ meltfptr[23] = /*_.STRBUF2STRING__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-outobj.melt:4720:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4728:/ clear"); /*clear *//*_.NAMBUF__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V26*/ meltfptr[25] = 0; @@ -17215,7 +17341,7 @@ lab_endgetargs:; /*_.GENSY__V29*/ meltfptr[24] = /*_.LET___V24*/ meltfptr[23];; { - MELT_LOCATION ("warmelt-outobj.melt:4726:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4734:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.REPLMAP__V3*/ meltfptr[2]), (meltobject_ptr_t) ( /*_.FSYMB__V22*/ @@ -17226,7 +17352,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4727:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4735:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17252,7 +17378,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4727:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4735:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17267,7 +17393,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4727:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4735:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17281,7 +17407,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4727; + argtab[2].meltbp_long = 4735; /*^apply.arg */ argtab[3].meltbp_cstring = "substitute_formals_for_syntest updated replmap="; @@ -17315,7 +17441,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4727:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4735:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[27] = 0; @@ -17328,7 +17454,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4727:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4735:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[27] = /*_.IF___V31*/ meltfptr[26];; @@ -17337,7 +17463,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[25] = /*_.PROGN___V33*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4727:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4735:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V31*/ meltfptr[26] = 0; @@ -17350,7 +17476,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[25] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4728:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4736:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17375,7 +17501,7 @@ lab_endgetargs:; /*_.CTYPE_CNAME__V34*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4728:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4736:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17404,13 +17530,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4729:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4737:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4718:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4726:/ clear"); /*clear *//*_.FSYMB__V22*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.FTYPE__V23*/ meltfptr[22] = 0; @@ -17430,7 +17556,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4713:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4721:/ clear"); /*clear *//*_.CURFORMAL__V15*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_#IX__L6*/ meltfnum[0] = 0; @@ -17440,7 +17566,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V20*/ meltfptr[16] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4708:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17529,6 +17655,13 @@ meltrout_123_warmelt_outobj_EXPAND_TUPLE_FOR_SYNTEST (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_123_warmelt_outobj_EXPAND_TUPLE_FOR_SYNTEST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 33; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -17544,7 +17677,7 @@ meltrout_123_warmelt_outobj_EXPAND_TUPLE_FOR_SYNTEST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4734:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17584,7 +17717,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4735:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4743:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17610,7 +17743,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4735:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4743:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17625,7 +17758,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4735:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4743:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17638,7 +17771,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4735; + argtab[2].meltbp_long = 4743; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_tuple_for_syntest sbuf="; /*^apply.arg */ @@ -17669,7 +17802,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4735:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4743:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -17682,7 +17815,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4735:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4743:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -17691,7 +17824,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4735:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4743:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -17722,7 +17855,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4739:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4747:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17748,7 +17881,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4739:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4747:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17763,7 +17896,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4739:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4747:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17777,7 +17910,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4739; + argtab[2].meltbp_long = 4747; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_tuple_for_syntest curexpan="; @@ -17799,7 +17932,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4739:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4747:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -17812,7 +17945,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4739:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4747:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -17821,7 +17954,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4739:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4747:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -17834,14 +17967,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4740:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4748:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L6*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.CUREXPAN__V10*/ meltfptr[6])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-outobj.melt:4740:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4748:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -17849,7 +17982,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4741:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4749:/ quasiblock"); /*_.CUREPL__V17*/ meltfptr[16] = @@ -17859,7 +17992,7 @@ lab_endgetargs:; (meltobject_ptr_t) ( /*_.CUREXPAN__V10*/ meltfptr[6]));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4743:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4751:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17885,7 +18018,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4743:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4751:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17901,7 +18034,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:4743:/ checksignal"); + ("warmelt-outobj.melt:4751:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17915,7 +18048,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4743; + argtab[2].meltbp_long = 4751; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_tuple_for_syntest curepl="; @@ -17937,7 +18070,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4743:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4751:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0; @@ -17950,7 +18083,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4743:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4751:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[19] = @@ -17961,7 +18094,7 @@ lab_endgetargs:; /*_.PROGN___V21*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4743:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4751:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V19*/ meltfptr[18] = 0; @@ -17974,7 +18107,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4744:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4752:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17986,7 +18119,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:4745:/ checksignal"); + ("warmelt-outobj.melt:4753:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18010,7 +18143,7 @@ lab_endgetargs:; /*_.ADD2OUT__V23*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4744:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4752:/ clear"); /*clear *//*_.ADD2OUT__V23*/ meltfptr[19] = 0; } ; @@ -18022,7 +18155,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4746:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4754:/ quasiblock"); /*^cond */ @@ -18051,7 +18184,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4748:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4756:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18077,7 +18210,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4748:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4756:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -18093,7 +18226,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:4748:/ checksignal"); + ("warmelt-outobj.melt:4756:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18108,7 +18241,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4748; + argtab[2].meltbp_long = 4756; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_tuple_for_syntest no curepl for curexpan="; @@ -18142,7 +18275,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:4748:/ clear"); + ("warmelt-outobj.melt:4756:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0; /*^clear */ @@ -18158,7 +18291,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:4748:/ quasiblock"); + ("warmelt-outobj.melt:4756:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[26] = @@ -18169,7 +18302,7 @@ lab_endgetargs:; /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4748:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4756:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V26*/ meltfptr[25] = 0; @@ -18184,7 +18317,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4749:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4757:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V5*/ meltfptr[4]), @@ -18196,7 +18329,7 @@ lab_endgetargs:; /*_.IFELSE___V22*/ meltfptr[18] = /*_.IFCPP___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-outobj.melt:4746:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4754:/ clear"); /*clear *//*_.CUREXPNAM__V24*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.IFCPP___V25*/ meltfptr[24] = 0; @@ -18208,7 +18341,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[12] = /*_.IFELSE___V22*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:4741:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4749:/ clear"); /*clear *//*_.CUREPL__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; @@ -18218,7 +18351,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4740:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4748:/ clear"); /*clear *//*_.LET___V16*/ meltfptr[12] = 0; } ; @@ -18230,7 +18363,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4752:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4760:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18253,7 +18386,7 @@ lab_endgetargs:; /*_.ADD2OUT__V29*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4740:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4748:/ clear"); /*clear *//*_.ADD2OUT__V29*/ meltfptr[25] = 0; } ; @@ -18265,7 +18398,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4736:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4744:/ clear"); /*clear *//*_.CUREXPAN__V10*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_#PIX__L3*/ meltfnum[1] = 0; @@ -18279,7 +18412,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4754:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4762:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18305,7 +18438,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4754:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4762:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18320,7 +18453,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4754:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4762:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18334,7 +18467,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4754; + argtab[2].meltbp_long = 4762; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_tuple_for_syntest done sbuf="; @@ -18355,7 +18488,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4754:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4762:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[24] = 0; @@ -18368,7 +18501,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4754:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4762:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[16] = /*_.IF___V31*/ meltfptr[19];; @@ -18377,7 +18510,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[26] = /*_.PROGN___V33*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4754:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4762:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V31*/ meltfptr[19] = 0; @@ -18390,7 +18523,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4734:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18399,7 +18532,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V30*/ meltfptr[26];; { - MELT_LOCATION ("warmelt-outobj.melt:4734:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18491,6 +18624,13 @@ meltrout_124_warmelt_outobj_SYNTESTGEN_PRIMITIVE (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_124_warmelt_outobj_SYNTESTGEN_PRIMITIVE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 55; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -18506,7 +18646,7 @@ meltrout_124_warmelt_outobj_SYNTESTGEN_PRIMITIVE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4758:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18554,7 +18694,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4759:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4767:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18580,7 +18720,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4759:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4767:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18595,7 +18735,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4759:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4767:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18608,7 +18748,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4759; + argtab[2].meltbp_long = 4767; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_primitive recv="; /*^apply.arg */ @@ -18633,7 +18773,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4759:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4767:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -18646,7 +18786,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4759:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4767:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -18655,7 +18795,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4759:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4767:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -18670,7 +18810,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4760:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4768:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18682,7 +18822,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4760:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4768:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -18690,7 +18830,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4760:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4768:/ cond.else"); /*^block */ /*anyblock */ @@ -18704,7 +18844,7 @@ lab_endgetargs:; melt_assert_failed (("check recv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4760) ? (4760) : __LINE__, __FUNCTION__); + (4768) ? (4768) : __LINE__, __FUNCTION__); ; } ; @@ -18719,7 +18859,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4760:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4768:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -18732,7 +18872,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4761:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4769:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18743,7 +18883,7 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SOURCE_GENERATOR_DEVICE */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:4761:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4769:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18751,7 +18891,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4761:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4769:/ cond.else"); /*^block */ /*anyblock */ @@ -18765,7 +18905,7 @@ lab_endgetargs:; melt_assert_failed (("check gendev"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4761) ? (4761) : __LINE__, __FUNCTION__); + (4769) ? (4769) : __LINE__, __FUNCTION__); ; } ; @@ -18780,7 +18920,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4761:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4769:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -18793,7 +18933,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4762:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4770:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18804,7 +18944,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L6*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4762:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4770:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L6*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -18812,7 +18952,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4762:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4770:/ cond.else"); /*^block */ /*anyblock */ @@ -18826,7 +18966,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4762) ? (4762) : __LINE__, __FUNCTION__); + (4770) ? (4770) : __LINE__, __FUNCTION__); ; } ; @@ -18841,7 +18981,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4762:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4770:/ clear"); /*clear *//*_#IS_STRBUF__L6*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -18854,7 +18994,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4763:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4771:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18866,7 +19006,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:4763:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4771:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18874,7 +19014,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4763:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4771:/ cond.else"); /*^block */ /*anyblock */ @@ -18888,7 +19028,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4763) ? (4763) : __LINE__, __FUNCTION__); + (4771) ? (4771) : __LINE__, __FUNCTION__); ; } ; @@ -18903,7 +19043,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4763:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4771:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -18914,7 +19054,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4764:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4772:/ quasiblock"); /*^cond */ @@ -18942,7 +19082,7 @@ lab_endgetargs:; /*_.DLOC__V18*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4765:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4773:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18966,7 +19106,7 @@ lab_endgetargs:; /*_.PRIDEF__V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4766:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4774:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18990,7 +19130,7 @@ lab_endgetargs:; /*_.PRIREP__V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4767:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4775:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19015,7 +19155,7 @@ lab_endgetargs:; /*_.PRINAM__V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4768:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4776:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19040,7 +19180,7 @@ lab_endgetargs:; /*_.PRIFORMALS__V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4769:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4777:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19064,7 +19204,7 @@ lab_endgetargs:; /*_.SPRIM_EXPLOC__V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4769:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4777:/ cond"); /*cond */ if ( /*_.SPRIM_EXPLOC__V23*/ meltfptr[22]) /*then */ { /*^cond.then */ @@ -19073,12 +19213,12 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4769:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4777:/ cond.else"); /*_.EXPLOC__V24*/ meltfptr[23] = /*_.DLOC__V18*/ meltfptr[16];; } ; - MELT_LOCATION ("warmelt-outobj.melt:4770:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4778:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19103,7 +19243,7 @@ lab_endgetargs:; /*_.PRITYPE__V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4771:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4779:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19149,7 +19289,7 @@ lab_endgetargs:; ( /*_#I__L10*/ meltfnum[9])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4775:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4783:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19161,7 +19301,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PRIDEF__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SOURCE_DEFPRIMITIVE */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-outobj.melt:4775:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4783:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -19169,7 +19309,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4775:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4783:/ cond.else"); /*^block */ /*anyblock */ @@ -19183,7 +19323,7 @@ lab_endgetargs:; melt_assert_failed (("check pridef"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4775) ? (4775) : __LINE__, __FUNCTION__); + (4783) ? (4783) : __LINE__, __FUNCTION__); ; } ; @@ -19198,7 +19338,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4775:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4783:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; @@ -19211,7 +19351,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4776:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4784:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19221,7 +19361,7 @@ lab_endgetargs:; ; /*_#__L12*/ meltfnum[10] = (( /*_.PRIREP__V20*/ meltfptr[19]) == ( /*_.RECV__V2*/ meltfptr[1]));; - MELT_LOCATION ("warmelt-outobj.melt:4776:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4784:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -19229,7 +19369,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4776:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4784:/ cond.else"); /*^block */ /*anyblock */ @@ -19243,7 +19383,7 @@ lab_endgetargs:; melt_assert_failed (("check prirep"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4776) ? (4776) : __LINE__, __FUNCTION__); + (4784) ? (4784) : __LINE__, __FUNCTION__); ; } ; @@ -19258,7 +19398,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4776:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4784:/ clear"); /*clear *//*_#__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V31*/ meltfptr[30] = 0; @@ -19269,7 +19409,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4777:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4785:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19289,14 +19429,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4778:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4786:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.PRINAM__V21*/ meltfptr[20]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4779:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4787:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19316,12 +19456,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4780:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4788:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4781:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4789:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19345,13 +19485,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4783:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4791:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L13*/ meltfnum[10] = (( /*_.PRITYPE__V25*/ meltfptr[24]) != (( /*!CTYPE_VOID */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-outobj.melt:4783:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4791:/ cond"); /*cond */ if ( /*_#__L13*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -19359,7 +19499,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4784:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4792:/ quasiblock"); /*^cond */ @@ -19387,7 +19527,7 @@ lab_endgetargs:; /*_.PRITYNAM__V37*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4786:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4794:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19415,14 +19555,14 @@ lab_endgetargs:; ; /*_.LET___V36*/ meltfptr[35] = /*_.ADD2OUT__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-outobj.melt:4784:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4792:/ clear"); /*clear *//*_.PRITYNAM__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V38*/ meltfptr[37] = 0; /*_.IF___V35*/ meltfptr[34] = /*_.LET___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4783:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4791:/ clear"); /*clear *//*_.LET___V36*/ meltfptr[35] = 0; } ; @@ -19433,7 +19573,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4789:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4797:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -19473,7 +19613,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V40*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4789:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4797:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V40*/ meltfptr[37] = 0; } ; @@ -19484,13 +19624,13 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4790:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4798:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L14*/ meltfnum[13] = (( /*_.PRITYPE__V25*/ meltfptr[24]) != (( /*!CTYPE_VOID */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-outobj.melt:4790:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4798:/ cond"); /*cond */ if ( /*_#__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -19498,7 +19638,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4791:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4799:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19519,7 +19659,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[35] = /*_.ADD2OUT__V42*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4790:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4798:/ clear"); /*clear *//*_.ADD2OUT__V42*/ meltfptr[37] = 0; } ; @@ -19532,7 +19672,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4792:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4800:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19558,7 +19698,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4792:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4800:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -19573,7 +19713,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4792:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4800:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19587,7 +19727,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4792; + argtab[2].meltbp_long = 4800; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_primitive primexpan="; /*^apply.arg */ @@ -19607,7 +19747,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4792:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4800:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -19620,7 +19760,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4792:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4800:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_.IF___V44*/ meltfptr[43];; @@ -19629,7 +19769,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4792:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4800:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[43] = 0; @@ -19642,7 +19782,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4793:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4801:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19666,13 +19806,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4795:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4803:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L17*/ meltfnum[15] = (( /*_.PRITYPE__V25*/ meltfptr[24]) != (( /*!CTYPE_VOID */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-outobj.melt:4795:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4803:/ cond"); /*cond */ if ( /*_#__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -19680,7 +19820,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4796:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4804:/ quasiblock"); /*^cond */ @@ -19708,7 +19848,7 @@ lab_endgetargs:; /*_.PRITYNAM__V50*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4798:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4806:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19728,12 +19868,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4799:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4807:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4800:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4808:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19758,7 +19898,7 @@ lab_endgetargs:; ; /*_.LET___V49*/ meltfptr[48] = /*_.ADD2OUT__V52*/ meltfptr[51];; - MELT_LOCATION ("warmelt-outobj.melt:4796:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4804:/ clear"); /*clear *//*_.PRITYNAM__V50*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V51*/ meltfptr[50] = 0; @@ -19767,7 +19907,7 @@ lab_endgetargs:; /*_.IF___V48*/ meltfptr[44] = /*_.LET___V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4795:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4803:/ clear"); /*clear *//*_.LET___V49*/ meltfptr[48] = 0; } ; @@ -19778,7 +19918,7 @@ lab_endgetargs:; /*_.IF___V48*/ meltfptr[44] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4803:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4811:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19798,12 +19938,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4804:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4812:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4805:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4813:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19823,14 +19963,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4806:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4814:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.PRINAM__V21*/ meltfptr[20]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4807:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4815:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19850,13 +19990,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4808:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4816:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4764:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4772:/ clear"); /*clear *//*_.DLOC__V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.PRIDEF__V19*/ meltfptr[18] = 0; @@ -19916,7 +20056,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V54*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V55*/ meltfptr[51] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4758:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20004,6 +20144,13 @@ meltrout_125_warmelt_outobj_SYNTESTGEN_CITERATOR (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_125_warmelt_outobj_SYNTESTGEN_CITERATOR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 82; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -20019,7 +20166,7 @@ meltrout_125_warmelt_outobj_SYNTESTGEN_CITERATOR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4818:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20067,7 +20214,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4819:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4827:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20093,7 +20240,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4819:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4827:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20108,7 +20255,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4819:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4827:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20121,7 +20268,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4819; + argtab[2].meltbp_long = 4827; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_citerator recv="; /*^apply.arg */ @@ -20146,7 +20293,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4819:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4827:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -20159,7 +20306,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4819:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4827:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -20168,7 +20315,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4819:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4827:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -20183,7 +20330,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4820:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4828:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20195,7 +20342,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_CITERATOR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4820:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4828:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -20203,7 +20350,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4820:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4828:/ cond.else"); /*^block */ /*anyblock */ @@ -20217,7 +20364,7 @@ lab_endgetargs:; melt_assert_failed (("check recv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4820) ? (4820) : __LINE__, __FUNCTION__); + (4828) ? (4828) : __LINE__, __FUNCTION__); ; } ; @@ -20232,7 +20379,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4820:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4828:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -20245,7 +20392,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4821:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4829:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20256,7 +20403,7 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SOURCE_GENERATOR_DEVICE */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:4821:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4829:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20264,7 +20411,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4821:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4829:/ cond.else"); /*^block */ /*anyblock */ @@ -20278,7 +20425,7 @@ lab_endgetargs:; melt_assert_failed (("check gendev"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4821) ? (4821) : __LINE__, __FUNCTION__); + (4829) ? (4829) : __LINE__, __FUNCTION__); ; } ; @@ -20293,7 +20440,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4821:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4829:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -20306,7 +20453,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4822:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4830:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20317,7 +20464,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L6*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4822:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4830:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L6*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -20325,7 +20472,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4822:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4830:/ cond.else"); /*^block */ /*anyblock */ @@ -20339,7 +20486,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4822) ? (4822) : __LINE__, __FUNCTION__); + (4830) ? (4830) : __LINE__, __FUNCTION__); ; } ; @@ -20354,7 +20501,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4822:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4830:/ clear"); /*clear *//*_#IS_STRBUF__L6*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -20367,7 +20514,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4823:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4831:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20379,7 +20526,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:4823:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4831:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20387,7 +20534,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4823:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4831:/ cond.else"); /*^block */ /*anyblock */ @@ -20401,7 +20548,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4823) ? (4823) : __LINE__, __FUNCTION__); + (4831) ? (4831) : __LINE__, __FUNCTION__); ; } ; @@ -20416,7 +20563,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4823:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4831:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -20427,7 +20574,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4824:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4832:/ quasiblock"); /*^cond */ @@ -20455,7 +20602,7 @@ lab_endgetargs:; /*_.DLOC__V18*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4825:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4833:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20479,7 +20626,7 @@ lab_endgetargs:; /*_.CITDEF__V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4826:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4834:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20503,7 +20650,7 @@ lab_endgetargs:; /*_.CITREP__V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4827:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4835:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20528,7 +20675,7 @@ lab_endgetargs:; /*_.CITNAM__V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4828:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4836:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20553,7 +20700,7 @@ lab_endgetargs:; /*_.CITSTAFORMALS__V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4829:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4837:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20578,7 +20725,7 @@ lab_endgetargs:; /*_.CITSTATE__V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4830:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4838:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20603,7 +20750,7 @@ lab_endgetargs:; /*_.CITBODFORMALS__V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4831:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4839:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20628,7 +20775,7 @@ lab_endgetargs:; /*_.CITEXPBEFO__V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4832:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4840:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20672,7 +20819,7 @@ lab_endgetargs:; (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[6])), ( /*_#I__L10*/ meltfnum[9])));; - MELT_LOCATION ("warmelt-outobj.melt:4834:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4842:/ quasiblock"); /*_.NBUF__V29*/ meltfptr[28] = @@ -20680,7 +20827,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[7])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:4836:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4844:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20702,7 +20849,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4837:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4845:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20729,7 +20876,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4837:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4845:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.NBUF__V29*/ meltfptr[28]), melt_string_str ((melt_ptr_t) ( /*_.NAMED_NAME__V31*/ @@ -20745,7 +20892,7 @@ lab_endgetargs:; /*_.LET___V28*/ meltfptr[27] = /*_.STRBUF2STRING__V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-outobj.melt:4834:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4842:/ clear"); /*clear *//*_.NBUF__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V30*/ meltfptr[29] = 0; @@ -20754,7 +20901,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.STRBUF2STRING__V32*/ meltfptr[31] = 0; /*_.REPSTATNAM__V33*/ meltfptr[28] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-outobj.melt:4839:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4847:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20778,7 +20925,7 @@ lab_endgetargs:; /*_.SCITERDEF_BEFORELOC__V34*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4839:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4847:/ cond"); /*cond */ if ( /*_.SCITERDEF_BEFORELOC__V34*/ meltfptr[29]) /*then */ { /*^cond.then */ @@ -20787,12 +20934,12 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4839:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4847:/ cond.else"); /*_.BEFLOC__V35*/ meltfptr[30] = /*_.DLOC__V18*/ meltfptr[16];; } ; - MELT_LOCATION ("warmelt-outobj.melt:4840:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4848:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20816,7 +20963,7 @@ lab_endgetargs:; /*_.SCITERDEF_AFTERLOC__V36*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4840:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4848:/ cond"); /*cond */ if ( /*_.SCITERDEF_AFTERLOC__V36*/ meltfptr[31]) /*then */ { /*^cond.then */ @@ -20825,14 +20972,14 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4840:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4848:/ cond.else"); /*_.AFTLOC__V37*/ meltfptr[36] = /*_.DLOC__V18*/ meltfptr[16];; } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4842:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4850:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20844,7 +20991,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CITDEF__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SOURCE_DEFCITERATOR */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-outobj.melt:4842:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4850:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -20852,7 +20999,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4842:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4850:/ cond.else"); /*^block */ /*anyblock */ @@ -20866,7 +21013,7 @@ lab_endgetargs:; melt_assert_failed (("check citdef"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4842) ? (4842) : __LINE__, __FUNCTION__); + (4850) ? (4850) : __LINE__, __FUNCTION__); ; } ; @@ -20881,7 +21028,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = /*_.IFELSE___V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4842:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4850:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V39*/ meltfptr[38] = 0; @@ -20894,7 +21041,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4843:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4851:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20904,7 +21051,7 @@ lab_endgetargs:; ; /*_#__L12*/ meltfnum[10] = (( /*_.CITREP__V20*/ meltfptr[19]) == ( /*_.RECV__V2*/ meltfptr[1]));; - MELT_LOCATION ("warmelt-outobj.melt:4843:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4851:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -20912,7 +21059,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4843:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4851:/ cond.else"); /*^block */ /*anyblock */ @@ -20926,7 +21073,7 @@ lab_endgetargs:; melt_assert_failed (("check citrep"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4843) ? (4843) : __LINE__, __FUNCTION__); + (4851) ? (4851) : __LINE__, __FUNCTION__); ; } ; @@ -20941,7 +21088,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[38] = /*_.IFELSE___V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4843:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4851:/ clear"); /*clear *//*_#__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V41*/ meltfptr[40] = 0; @@ -20952,7 +21099,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4844:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4852:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20972,14 +21119,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4845:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4853:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.CITNAM__V21*/ meltfptr[20]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4846:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4854:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20999,12 +21146,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4847:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4855:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4848:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4856:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21044,7 +21191,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4848:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4856:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V45*/ meltfptr[44] = 0; } ; @@ -21057,7 +21204,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4849:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4857:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.REPLMAP__V27*/ meltfptr[26]), (meltobject_ptr_t) ( /*_.CITSTATE__V23*/ @@ -21068,7 +21215,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4850:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4858:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21094,7 +21241,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4850:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4858:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -21109,7 +21256,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4850:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4858:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21123,7 +21270,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4850; + argtab[2].meltbp_long = 4858; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_citerator replmap="; /*^apply.arg */ @@ -21143,7 +21290,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4850:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4858:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0; @@ -21156,7 +21303,7 @@ lab_endgetargs:; /*_.IF___V47*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4850:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4858:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[47] = /*_.IF___V47*/ meltfptr[46];; @@ -21165,7 +21312,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[44] = /*_.PROGN___V49*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4850:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4858:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V47*/ meltfptr[46] = 0; @@ -21178,7 +21325,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[44] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4851:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4859:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21203,7 +21350,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4852:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4860:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21228,7 +21375,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4853:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4861:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21268,7 +21415,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4853:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4861:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V53*/ meltfptr[52] = 0; } ; @@ -21279,7 +21426,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4854:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4862:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21305,7 +21452,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4855:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4863:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21331,7 +21478,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4855:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4863:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -21346,7 +21493,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4855:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4863:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21360,7 +21507,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4855; + argtab[2].meltbp_long = 4863; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_citerator after start formals replmap="; @@ -21381,7 +21528,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4855:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4863:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0; @@ -21394,7 +21541,7 @@ lab_endgetargs:; /*_.IF___V56*/ meltfptr[55] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4855:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4863:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[56] = /*_.IF___V56*/ meltfptr[55];; @@ -21403,7 +21550,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[54] = /*_.PROGN___V58*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4855:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4863:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V56*/ meltfptr[55] = 0; @@ -21418,12 +21565,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4856:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4864:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4857:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4865:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21448,14 +21595,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4858:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4866:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4859:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4867:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21481,7 +21628,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4859:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4867:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -21496,7 +21643,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4859:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4867:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21510,7 +21657,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4859; + argtab[2].meltbp_long = 4867; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_citerator citbodformals="; @@ -21531,7 +21678,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4859:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4867:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0; @@ -21544,7 +21691,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4859:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4867:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = /*_.IF___V61*/ meltfptr[60];; @@ -21553,7 +21700,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[56] = /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4859:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4867:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -21586,7 +21733,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4863:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4871:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21612,7 +21759,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4863:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4871:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -21627,7 +21774,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4863:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4871:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21641,7 +21788,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4863; + argtab[2].meltbp_long = 4871; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_citerator curbodformbind="; @@ -21663,7 +21810,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4863:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4871:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0; @@ -21676,7 +21823,7 @@ lab_endgetargs:; /*_.IF___V66*/ meltfptr[65] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4863:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4871:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[66] = /*_.IF___V66*/ meltfptr[65];; @@ -21685,7 +21832,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[61] = /*_.PROGN___V68*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4863:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4871:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V66*/ meltfptr[65] = 0; @@ -21698,10 +21845,10 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[61] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4864:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4872:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:4865:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4873:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21736,7 +21883,7 @@ lab_endgetargs:; meltfptr[65]));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4868:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4876:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21762,7 +21909,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4868:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4876:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -21777,7 +21924,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4868:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4876:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21791,7 +21938,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4868; + argtab[2].meltbp_long = 4876; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_citerator nambodformal="; @@ -21813,7 +21960,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4868:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4876:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 0; @@ -21826,7 +21973,7 @@ lab_endgetargs:; /*_.IF___V72*/ meltfptr[71] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4868:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4876:/ quasiblock"); /*_.PROGN___V74*/ meltfptr[72] = /*_.IF___V72*/ meltfptr[71];; @@ -21835,7 +21982,7 @@ lab_endgetargs:; /*_.IFCPP___V71*/ meltfptr[70] = /*_.PROGN___V74*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4868:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4876:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IF___V72*/ meltfptr[71] = 0; @@ -21850,7 +21997,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4869:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4877:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21866,7 +22013,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4869:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4877:/ cond.else"); /*^block */ /*anyblock */ @@ -21880,7 +22027,7 @@ lab_endgetargs:; melt_assert_failed (("check nambodformal"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4869) ? (4869) : __LINE__, + (4877) ? (4877) : __LINE__, __FUNCTION__); ; } @@ -21896,7 +22043,7 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[71] = /*_.IFELSE___V76*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4869:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4877:/ clear"); /*clear *//*_.IFELSE___V76*/ meltfptr[72] = 0; } @@ -21905,7 +22052,7 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[71] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4870:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4878:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21931,13 +22078,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4871:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4879:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4864:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4872:/ clear"); /*clear *//*_.CURBODFORMAL__V69*/ meltfptr[65] = 0; /*^clear */ /*clear *//*_.NAMBODFORMAL__V70*/ meltfptr[66] = 0; @@ -21953,7 +22100,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4860:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4868:/ clear"); /*clear *//*_.CURBODFORMBIND__V64*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_#BODFORMIX__L19*/ meltfnum[13] = 0; @@ -21961,7 +22108,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V65*/ meltfptr[61] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4873:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -22001,7 +22148,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V79*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4873:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4881:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V79*/ meltfptr[66] = 0; } ; @@ -22012,7 +22159,7 @@ lab_endgetargs:; /*_.IF___V78*/ meltfptr[65] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4874:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4882:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22038,12 +22185,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4875:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4883:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4876:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4884:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22063,14 +22210,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4877:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4885:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.CITNAM__V21*/ meltfptr[20]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4878:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4886:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22090,13 +22237,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4879:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4887:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4824:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4832:/ clear"); /*clear *//*_.DLOC__V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.CITDEF__V19*/ meltfptr[18] = 0; @@ -22168,7 +22315,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V81*/ meltfptr[71] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V82*/ meltfptr[72] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4818:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -22255,6 +22402,13 @@ meltrout_126_warmelt_outobj_SYNTESTGEN_CMATCHER (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_126_warmelt_outobj_SYNTESTGEN_CMATCHER_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 83; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -22270,7 +22424,7 @@ meltrout_126_warmelt_outobj_SYNTESTGEN_CMATCHER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4886:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22318,7 +22472,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4887:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4895:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22344,7 +22498,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4887:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4895:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22359,7 +22513,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4887:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4895:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22372,7 +22526,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4887; + argtab[2].meltbp_long = 4895; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_cmatcher recv="; /*^apply.arg */ @@ -22397,7 +22551,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4887:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4895:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -22410,7 +22564,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4887:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4895:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -22419,7 +22573,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4887:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4895:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -22434,7 +22588,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4888:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4896:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22446,7 +22600,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_CMATCHER */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4888:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4896:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -22454,7 +22608,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4888:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4896:/ cond.else"); /*^block */ /*anyblock */ @@ -22468,7 +22622,7 @@ lab_endgetargs:; melt_assert_failed (("check recv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4888) ? (4888) : __LINE__, __FUNCTION__); + (4896) ? (4896) : __LINE__, __FUNCTION__); ; } ; @@ -22483,7 +22637,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4888:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4896:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -22496,7 +22650,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4889:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4897:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22507,7 +22661,7 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.GENDEV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SOURCE_GENERATOR_DEVICE */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:4889:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4897:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22515,7 +22669,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4889:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4897:/ cond.else"); /*^block */ /*anyblock */ @@ -22529,7 +22683,7 @@ lab_endgetargs:; melt_assert_failed (("check gendev"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4889) ? (4889) : __LINE__, __FUNCTION__); + (4897) ? (4897) : __LINE__, __FUNCTION__); ; } ; @@ -22544,7 +22698,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4889:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4897:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -22557,7 +22711,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4890:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4898:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22568,7 +22722,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L6*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4890:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4898:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L6*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -22576,7 +22730,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4890:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4898:/ cond.else"); /*^block */ /*anyblock */ @@ -22590,7 +22744,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4890) ? (4890) : __LINE__, __FUNCTION__); + (4898) ? (4898) : __LINE__, __FUNCTION__); ; } ; @@ -22605,7 +22759,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4890:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4898:/ clear"); /*clear *//*_#IS_STRBUF__L6*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -22618,7 +22772,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4891:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4899:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22630,7 +22784,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:4891:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4899:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22638,7 +22792,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4891:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4899:/ cond.else"); /*^block */ /*anyblock */ @@ -22652,7 +22806,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4891) ? (4891) : __LINE__, __FUNCTION__); + (4899) ? (4899) : __LINE__, __FUNCTION__); ; } ; @@ -22667,7 +22821,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4891:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4899:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -22678,7 +22832,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4892:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4900:/ quasiblock"); /*^cond */ @@ -22706,7 +22860,7 @@ lab_endgetargs:; /*_.DLOC__V18*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4893:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4901:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22730,7 +22884,7 @@ lab_endgetargs:; /*_.CMATDEF__V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4894:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4902:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22754,7 +22908,7 @@ lab_endgetargs:; /*_.CMATREP__V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4895:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4903:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22779,7 +22933,7 @@ lab_endgetargs:; /*_.CMATNAM__V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4896:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4904:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22803,7 +22957,7 @@ lab_endgetargs:; /*_.CMATINS__V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4897:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4905:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22827,7 +22981,7 @@ lab_endgetargs:; /*_.CMATBIND__V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4898:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4906:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22851,7 +23005,7 @@ lab_endgetargs:; /*_.CMATOUT__V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4899:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4907:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22876,7 +23030,7 @@ lab_endgetargs:; /*_.CMATSTATE__V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4900:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4908:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22901,7 +23055,7 @@ lab_endgetargs:; /*_.CMATTEST__V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4901:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4909:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22926,7 +23080,7 @@ lab_endgetargs:; /*_.CMATFILL__V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4902:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4910:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22951,7 +23105,7 @@ lab_endgetargs:; /*_.CMATOPER__V28*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4903:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4911:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22975,7 +23129,7 @@ lab_endgetargs:; /*_.SCMATDEF_TESTLOC__V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4903:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4911:/ cond"); /*cond */ if ( /*_.SCMATDEF_TESTLOC__V29*/ meltfptr[28]) /*then */ { /*^cond.then */ @@ -22984,12 +23138,12 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4903:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4911:/ cond.else"); /*_.TESTLOC__V30*/ meltfptr[29] = /*_.DLOC__V18*/ meltfptr[16];; } ; - MELT_LOCATION ("warmelt-outobj.melt:4904:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4912:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23013,7 +23167,7 @@ lab_endgetargs:; /*_.SCMATDEF_FILLLOC__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4904:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4912:/ cond"); /*cond */ if ( /*_.SCMATDEF_FILLLOC__V31*/ meltfptr[30]) /*then */ { /*^cond.then */ @@ -23022,12 +23176,12 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4904:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4912:/ cond.else"); /*_.FILLLOC__V32*/ meltfptr[31] = /*_.DLOC__V18*/ meltfptr[16];; } ; - MELT_LOCATION ("warmelt-outobj.melt:4905:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4913:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23051,7 +23205,7 @@ lab_endgetargs:; /*_.SCMATDEF_OPERLOC__V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4905:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4913:/ cond"); /*cond */ if ( /*_.SCMATDEF_OPERLOC__V33*/ meltfptr[32]) /*then */ { /*^cond.then */ @@ -23060,7 +23214,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4905:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4913:/ cond.else"); /*_.OPERLOC__V34*/ meltfptr[33] = /*_.DLOC__V18*/ meltfptr[16];; } @@ -23094,7 +23248,7 @@ lab_endgetargs:; (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[8])), ( /*_#I__L12*/ meltfnum[11])));; - MELT_LOCATION ("warmelt-outobj.melt:4909:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4917:/ quasiblock"); /*_.NBUF__V37*/ meltfptr[36] = @@ -23102,7 +23256,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[9])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:4911:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4919:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23124,7 +23278,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4912:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4920:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23151,7 +23305,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4912:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4920:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.NBUF__V37*/ meltfptr[36]), melt_string_str ((melt_ptr_t) ( /*_.NAMED_NAME__V39*/ @@ -23167,7 +23321,7 @@ lab_endgetargs:; /*_.LET___V36*/ meltfptr[35] = /*_.STRBUF2STRING__V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-outobj.melt:4909:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4917:/ clear"); /*clear *//*_.NBUF__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V38*/ meltfptr[37] = 0; @@ -23176,7 +23330,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.STRBUF2STRING__V40*/ meltfptr[39] = 0; /*_.REPSTATNAM__V41*/ meltfptr[36] = /*_.LET___V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-outobj.melt:4915:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4923:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23196,14 +23350,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4916:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4924:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.CMATNAM__V21*/ meltfptr[20]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4917:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4925:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23223,14 +23377,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4918:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4926:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4919:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4927:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.REPLMAP__V35*/ meltfptr[34]), (meltobject_ptr_t) ( /*_.CMATSTATE__V25*/ @@ -23239,7 +23393,7 @@ lab_endgetargs:; meltfptr[36])); } ; - MELT_LOCATION ("warmelt-outobj.melt:4920:/ blockmultialloc"); + MELT_LOCATION ("warmelt-outobj.melt:4928:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -23261,11 +23415,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#5 */ - melt_assertmsg ("putupl [:4920] #5 checktup", + melt_assertmsg ("putupl [:4928] #5 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V45*/ meltfptr[44])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4920] #5 checkoff", + melt_assertmsg ("putupl [:4928] #5 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -23280,7 +23434,7 @@ lab_endgetargs:; /*_.TUPLE___V44*/ meltfptr[39] = /*_.TUPLREC___V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4920:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4928:/ clear"); /*clear *//*_.TUPLREC___V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.TUPLREC___V45*/ meltfptr[44] = 0; @@ -23310,7 +23464,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4921:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4929:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23335,7 +23489,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4922:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4930:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23362,12 +23516,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4923:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4931:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4924:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4932:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -23407,7 +23561,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4924:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4932:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V50*/ meltfptr[49] = 0; } ; @@ -23418,7 +23572,7 @@ lab_endgetargs:; /*_.IF___V49*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4925:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4933:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23441,7 +23595,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4926:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4934:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23466,7 +23620,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4927:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4935:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23486,12 +23640,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4928:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4936:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4929:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4937:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -23531,7 +23685,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4929:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4937:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V55*/ meltfptr[54] = 0; } ; @@ -23542,7 +23696,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4930:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4938:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23567,12 +23721,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4931:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4939:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4932:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4940:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23597,7 +23751,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4933:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4941:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23617,7 +23771,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4934:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4942:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (2), 0); } @@ -23641,7 +23795,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4938:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4946:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23667,7 +23821,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4938:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4946:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -23682,7 +23836,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4938:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4946:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23696,7 +23850,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4938; + argtab[2].meltbp_long = 4946; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_cmatcher curmatoutbind="; @@ -23718,7 +23872,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4938:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4946:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0; @@ -23731,7 +23885,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4938:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4946:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = /*_.IF___V61*/ meltfptr[60];; @@ -23740,7 +23894,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4938:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4946:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -23753,10 +23907,10 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4939:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4947:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:4940:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4948:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -23791,7 +23945,7 @@ lab_endgetargs:; meltfptr[60]));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4943:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4951:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23817,7 +23971,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4943:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4951:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -23832,7 +23986,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4943:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4951:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23846,7 +24000,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4943; + argtab[2].meltbp_long = 4951; /*^apply.arg */ argtab[3].meltbp_cstring = "syntestgen_cmatcher curmatoutbind="; @@ -23874,7 +24028,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4943:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4951:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0; @@ -23887,7 +24041,7 @@ lab_endgetargs:; /*_.IF___V67*/ meltfptr[66] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4943:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4951:/ quasiblock"); /*_.PROGN___V69*/ meltfptr[67] = /*_.IF___V67*/ meltfptr[66];; @@ -23896,7 +24050,7 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[65] = /*_.PROGN___V69*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4943:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4951:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V67*/ meltfptr[66] = 0; @@ -23911,7 +24065,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4945:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4953:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23927,7 +24081,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4945:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4953:/ cond.else"); /*^block */ /*anyblock */ @@ -23941,7 +24095,7 @@ lab_endgetargs:; melt_assert_failed (("check namoutformal "), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4945) ? (4945) : __LINE__, + (4953) ? (4953) : __LINE__, __FUNCTION__); ; } @@ -23957,7 +24111,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[66] = /*_.IFELSE___V71*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4945:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4953:/ clear"); /*clear *//*_.IFELSE___V71*/ meltfptr[67] = 0; } @@ -23966,7 +24120,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[66] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4946:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4954:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23992,13 +24146,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4947:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4955:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4939:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4947:/ clear"); /*clear *//*_.CUROUTFORMAL__V64*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.NAMOUTFORMAL__V65*/ meltfptr[61] = 0; @@ -24014,7 +24168,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:4935:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4943:/ clear"); /*clear *//*_.CURMATOUTBIND__V59*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_#OUTIX__L13*/ meltfnum[12] = 0; @@ -24022,7 +24176,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V60*/ meltfptr[59] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:4950:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4958:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24047,12 +24201,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4951:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4959:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4952:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4960:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -24063,7 +24217,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:4954:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4962:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -24104,7 +24258,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V75*/ meltfptr[65];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4954:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4962:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V75*/ meltfptr[65] = 0; } ; @@ -24115,7 +24269,7 @@ lab_endgetargs:; /*_.IF___V74*/ meltfptr[61] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4956:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4964:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24140,7 +24294,7 @@ lab_endgetargs:; /*_.BINDER__V76*/ meltfptr[66] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4956:/ blockmultialloc"); + MELT_LOCATION ("warmelt-outobj.melt:4964:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_2_st @@ -24163,12 +24317,12 @@ lab_endgetargs:; /*^putuple */ /*putupl#6 */ - melt_assertmsg ("putupl [:4956] #6 checktup", + melt_assertmsg ("putupl [:4964] #6 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V78*/ meltfptr[65])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4956] #6 checkoff", + melt_assertmsg ("putupl [:4964] #6 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -24180,12 +24334,12 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#7 */ - melt_assertmsg ("putupl [:4956] #7 checktup", + melt_assertmsg ("putupl [:4964] #7 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V78*/ meltfptr[65])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4956] #7 checkoff", + melt_assertmsg ("putupl [:4964] #7 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -24196,12 +24350,12 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#8 */ - melt_assertmsg ("putupl [:4956] #8 checktup", + melt_assertmsg ("putupl [:4964] #8 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V78*/ meltfptr[65])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4956] #8 checkoff", + melt_assertmsg ("putupl [:4964] #8 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -24218,13 +24372,13 @@ lab_endgetargs:; /*_.TUPLREC___V78*/ meltfptr[65];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4956:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4964:/ clear"); /*clear *//*_.TUPLREC___V78*/ meltfptr[65] = 0; /*^clear */ /*clear *//*_.TUPLREC___V78*/ meltfptr[65] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-outobj.melt:4955:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4963:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24250,7 +24404,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4958:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4966:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24276,7 +24430,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4959:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4967:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24296,17 +24450,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4960:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4968:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (2), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4953:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4961:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4952:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4960:/ clear"); /*clear *//*_.IF___V74*/ meltfptr[61] = 0; /*^clear */ /*clear *//*_.BINDER__V76*/ meltfptr[66] = 0; @@ -24322,7 +24476,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:4962:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4970:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24342,14 +24496,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4963:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4971:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.CMATNAM__V21*/ meltfptr[20]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:4964:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4972:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24369,13 +24523,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4965:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4973:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4892:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4900:/ clear"); /*clear *//*_.DLOC__V18*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.CMATDEF__V19*/ meltfptr[18] = 0; @@ -24459,7 +24613,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V82*/ meltfptr[61] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V83*/ meltfptr[66] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4886:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -24551,6 +24705,13 @@ meltrout_127_warmelt_outobj_EMIT_SYNTAX_TESTING_ROUTINE (meltclosure_ptr_t (struct frame_meltrout_127_warmelt_outobj_EMIT_SYNTAX_TESTING_ROUTINE_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 50; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -24566,7 +24727,7 @@ meltrout_127_warmelt_outobj_EMIT_SYNTAX_TESTING_ROUTINE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:4971:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ getarg"); /*_.GENDEVTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24598,7 +24759,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4972:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4980:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24624,7 +24785,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4972:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4980:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -24639,7 +24800,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4972:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4980:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24652,7 +24813,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4972; + argtab[2].meltbp_long = 4980; /*^apply.arg */ argtab[3].meltbp_cstring = "emit_syntax_testing_routine gendevtup="; @@ -24678,7 +24839,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4972:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4980:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -24691,7 +24852,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4972:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4980:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -24700,7 +24861,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4972:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4980:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -24715,7 +24876,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4974:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4982:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24726,7 +24887,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.GENDEVTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-outobj.melt:4974:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4982:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24734,7 +24895,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4974:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4982:/ cond.else"); /*^block */ /*anyblock */ @@ -24748,7 +24909,7 @@ lab_endgetargs:; melt_assert_failed (("check gendevtup"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4974) ? (4974) : __LINE__, __FUNCTION__); + (4982) ? (4982) : __LINE__, __FUNCTION__); ; } ; @@ -24763,7 +24924,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4974:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4982:/ clear"); /*clear *//*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -24776,7 +24937,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4975:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4983:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24788,7 +24949,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4975:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4983:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -24796,7 +24957,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4975:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4983:/ cond.else"); /*^block */ /*anyblock */ @@ -24810,7 +24971,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4975) ? (4975) : __LINE__, __FUNCTION__); + (4983) ? (4983) : __LINE__, __FUNCTION__); ; } ; @@ -24825,7 +24986,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4975:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4983:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -24838,7 +24999,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4976:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4984:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24849,7 +25010,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:4976:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4984:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24857,7 +25018,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4976:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4984:/ cond.else"); /*^block */ /*anyblock */ @@ -24871,7 +25032,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4976) ? (4976) : __LINE__, __FUNCTION__); + (4984) ? (4984) : __LINE__, __FUNCTION__); ; } ; @@ -24886,7 +25047,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4976:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4984:/ clear"); /*clear *//*_#IS_STRBUF__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -24897,13 +25058,13 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:4977:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4985:/ quasiblock"); /*_#NBGENDEV__L6*/ meltfnum[0] = (melt_multiple_length ((melt_ptr_t) ( /*_.GENDEVTUP__V2*/ meltfptr[1])));; - MELT_LOCATION ("warmelt-outobj.melt:4979:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4987:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -24927,7 +25088,7 @@ lab_endgetargs:; /*_.MODNAM__V15*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4981:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4989:/ quasiblock"); /*_.NABUF__V17*/ meltfptr[16] = @@ -24935,7 +25096,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[2])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:4982:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4990:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24955,7 +25116,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4983:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4991:/ locexp"); meltgc_add_strbuf_cident ((melt_ptr_t) ( /*_.NABUF__V17*/ meltfptr[16]), melt_string_str ((melt_ptr_t) ( /*_.MODNAM__V15*/ @@ -24971,7 +25132,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[15] = /*_.STRBUF2STRING__V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-outobj.melt:4981:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4989:/ clear"); /*clear *//*_.NABUF__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V18*/ meltfptr[17] = 0; @@ -24980,7 +25141,7 @@ lab_endgetargs:; /*_.SYNTESTNAME__V20*/ meltfptr[16] = /*_.LET___V16*/ meltfptr[15];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4986:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4994:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25006,7 +25167,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4986:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4994:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25021,7 +25182,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:4986:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4994:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25034,7 +25195,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4986; + argtab[2].meltbp_long = 4994; /*^apply.arg */ argtab[3].meltbp_cstring = "emit_syntax_testing_routine syntestname="; @@ -25055,7 +25216,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4986:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4994:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0; @@ -25068,7 +25229,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:4986:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:4994:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[22] = /*_.IF___V22*/ meltfptr[18];; @@ -25077,7 +25238,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = /*_.PROGN___V24*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4986:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4994:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V22*/ meltfptr[18] = 0; @@ -25092,7 +25253,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:4987:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:4995:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25104,7 +25265,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.SYNTESTNAME__V20*/ meltfptr[16])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:4987:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:4995:/ cond"); /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -25112,7 +25273,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:4987:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:4995:/ cond.else"); /*^block */ /*anyblock */ @@ -25126,7 +25287,7 @@ lab_endgetargs:; melt_assert_failed (("check syntestname"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (4987) ? (4987) : __LINE__, __FUNCTION__); + (4995) ? (4995) : __LINE__, __FUNCTION__); ; } ; @@ -25141,7 +25302,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[18] = /*_.IFELSE___V26*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:4987:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4995:/ clear"); /*clear *//*_#IS_STRING__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V26*/ meltfptr[22] = 0; @@ -25154,26 +25315,26 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4988:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4996:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4989:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4997:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:4990:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:4998:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4991:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4999:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25194,12 +25355,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4992:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5000:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4993:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5001:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25219,12 +25380,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:4994:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5002:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4995:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5003:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25273,14 +25434,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5005:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5013:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (1), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5006:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5014:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25306,7 +25467,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5006:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5014:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -25321,7 +25482,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5006:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5014:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25335,7 +25496,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5006; + argtab[2].meltbp_long = 5014; /*^apply.arg */ argtab[3].meltbp_cstring = "emit_syntax_testing_routine curgendev="; @@ -25362,7 +25523,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5006:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5014:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; @@ -25375,7 +25536,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5006:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5014:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; @@ -25384,7 +25545,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5006:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5014:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -25399,7 +25560,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5007:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5015:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25411,7 +25572,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURGENDEV__V30*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_SOURCE_GENERATOR_DEVICE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:5007:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5015:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -25419,7 +25580,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5007:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5015:/ cond.else"); /*^block */ /*anyblock */ @@ -25433,7 +25594,7 @@ lab_endgetargs:; melt_assert_failed (("check curgendev"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5007) ? (5007) : __LINE__, + (5015) ? (5015) : __LINE__, __FUNCTION__); ; } @@ -25449,7 +25610,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[31] = /*_.IFELSE___V36*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5007:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5015:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V36*/ meltfptr[32] = 0; @@ -25460,12 +25621,12 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5008:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5016:/ quasiblock"); /*_#SUCGIX__L14*/ meltfnum[7] = (( /*_#GIX__L10*/ meltfnum[1]) + (1));; - MELT_LOCATION ("warmelt-outobj.melt:5009:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5017:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25492,12 +25653,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5011:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5019:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5012:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5020:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25522,14 +25683,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5013:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5021:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5014:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5022:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25555,7 +25716,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5014:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5022:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -25570,7 +25731,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5014:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5022:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25584,7 +25745,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5014; + argtab[2].meltbp_long = 5022; /*^apply.arg */ argtab[3].meltbp_cstring = "emit_syntax_testing_routine before syntax_test_generator repr="; @@ -25606,7 +25767,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5014:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5022:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; @@ -25619,7 +25780,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5014:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5022:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[40];; @@ -25628,7 +25789,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5014:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5022:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V41*/ meltfptr[40] = 0; @@ -25641,7 +25802,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5015:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5023:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -25671,7 +25832,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5016:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5024:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25697,7 +25858,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5016:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5024:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -25712,7 +25873,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5016:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5024:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25726,7 +25887,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5016; + argtab[2].meltbp_long = 5024; /*^apply.arg */ argtab[3].meltbp_cstring = "emit_syntax_testing_routine after syntax_test_generator repr="; @@ -25755,7 +25916,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5016:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5024:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0; @@ -25768,7 +25929,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5016:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5024:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];; @@ -25777,7 +25938,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[41] = /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5016:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5024:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[45] = 0; @@ -25794,7 +25955,7 @@ lab_endgetargs:; /*_.LET___V37*/ meltfptr[32] = /*_.IFCPP___V45*/ meltfptr[41];; - MELT_LOCATION ("warmelt-outobj.melt:5008:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5016:/ clear"); /*clear *//*_#SUCGIX__L14*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.REPR__V38*/ meltfptr[37] = 0; @@ -25808,7 +25969,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V45*/ meltfptr[41] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:5018:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5026:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } @@ -25819,7 +25980,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5002:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5010:/ clear"); /*clear *//*_.CURGENDEV__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_#GIX__L10*/ meltfnum[1] = 0; @@ -25833,12 +25994,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5020:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5028:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5021:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5029:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25863,12 +26024,12 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5024:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5032:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5025:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5033:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25888,20 +26049,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5026:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5034:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5027:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5035:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V4*/ meltfptr[3]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:4977:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:4985:/ clear"); /*clear *//*_#NBGENDEV__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MODNAM__V15*/ meltfptr[13] = 0; @@ -25923,7 +26084,7 @@ lab_endgetargs:; /*clear *//*_.ADD2OUT__V49*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V50*/ meltfptr[46] = 0; - MELT_LOCATION ("warmelt-outobj.melt:4971:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -26013,6 +26174,13 @@ meltrout_128_warmelt_outobj_TRANSLATE_MACROEXPANDED_LIST (meltclosure_ptr_t (struct frame_meltrout_128_warmelt_outobj_TRANSLATE_MACROEXPANDED_LIST_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 133; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -26028,7 +26196,7 @@ meltrout_128_warmelt_outobj_TRANSLATE_MACROEXPANDED_LIST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5033:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ getarg"); /*_.XLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26069,7 +26237,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5034:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5042:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26095,7 +26263,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5034:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5042:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26110,7 +26278,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5034:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5042:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26123,7 +26291,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5034; + argtab[2].meltbp_long = 5042; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list modnamstr="; @@ -26149,7 +26317,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5034:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5042:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -26162,7 +26330,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5034:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5042:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -26171,7 +26339,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5034:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5042:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -26186,7 +26354,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5035:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5043:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26197,7 +26365,7 @@ lab_endgetargs:; /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5035:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5043:/ cond"); /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26205,7 +26373,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5035:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5043:/ cond.else"); /*^block */ /*anyblock */ @@ -26219,7 +26387,7 @@ lab_endgetargs:; melt_assert_failed (("check xlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5035) ? (5035) : __LINE__, __FUNCTION__); + (5043) ? (5043) : __LINE__, __FUNCTION__); ; } ; @@ -26234,7 +26402,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5035:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5043:/ clear"); /*clear *//*_#IS_LIST__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -26247,7 +26415,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5036:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5044:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26258,7 +26426,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5036:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5044:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26266,7 +26434,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5036:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5044:/ cond.else"); /*^block */ /*anyblock */ @@ -26280,7 +26448,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5036) ? (5036) : __LINE__, __FUNCTION__); + (5044) ? (5044) : __LINE__, __FUNCTION__); ; } ; @@ -26295,7 +26463,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5036:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5044:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -26308,7 +26476,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5037:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5045:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26320,7 +26488,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5037:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5045:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26328,7 +26496,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5037:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5045:/ cond.else"); /*^block */ /*anyblock */ @@ -26342,7 +26510,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5037) ? (5037) : __LINE__, __FUNCTION__); + (5045) ? (5045) : __LINE__, __FUNCTION__); ; } ; @@ -26357,7 +26525,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5037:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5045:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -26370,7 +26538,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5038:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5046:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26382,7 +26550,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:5038:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5046:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26390,7 +26558,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5038:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5046:/ cond.else"); /*^block */ /*anyblock */ @@ -26404,7 +26572,7 @@ lab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5038) ? (5038) : __LINE__, __FUNCTION__); + (5046) ? (5046) : __LINE__, __FUNCTION__); ; } ; @@ -26419,7 +26587,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5038:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5046:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -26432,7 +26600,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5039:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5047:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26448,7 +26616,7 @@ lab_endgetargs:; /*_#NOT__L8*/ meltfnum[0] = (!( /*_#STRING_DYNLOADED_SUFFIXED__L7*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:5039:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5047:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26456,7 +26624,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5039:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5047:/ cond.else"); /*^block */ /*anyblock */ @@ -26467,7 +26635,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_macroexpanded_list modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5039) ? (5039) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_macroexpanded_list modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5047) ? (5047) : __LINE__, __FUNCTION__); ; } ; @@ -26482,7 +26650,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5039:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5047:/ clear"); /*clear *//*_#STRING_DYNLOADED_SUFFIXED__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L8*/ meltfnum[0] = 0; @@ -26497,7 +26665,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5041:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5049:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26513,7 +26681,7 @@ lab_endgetargs:; /*_#NOT__L10*/ meltfnum[0] = (!( /*_#STRING_SUFFIXED__L9*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:5041:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5049:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26521,7 +26689,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5041:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5049:/ cond.else"); /*^block */ /*anyblock */ @@ -26532,7 +26700,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_macroexpanded_list modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5041) ? (5041) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_macroexpanded_list modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5049) ? (5049) : __LINE__, __FUNCTION__); ; } ; @@ -26547,7 +26715,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5041:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5049:/ clear"); /*clear *//*_#STRING_SUFFIXED__L9*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L10*/ meltfnum[0] = 0; @@ -26562,7 +26730,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5043:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5051:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26578,7 +26746,7 @@ lab_endgetargs:; /*_#NOT__L12*/ meltfnum[0] = (!( /*_#STRING_SUFFIXED__L11*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:5043:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5051:/ cond"); /*cond */ if ( /*_#NOT__L12*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26586,7 +26754,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5043:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5051:/ cond.else"); /*^block */ /*anyblock */ @@ -26597,7 +26765,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_macroexpanded_list modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5043) ? (5043) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_macroexpanded_list modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5051) ? (5051) : __LINE__, __FUNCTION__); ; } ; @@ -26612,7 +26780,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5043:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5051:/ clear"); /*clear *//*_#STRING_SUFFIXED__L11*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L12*/ meltfnum[0] = 0; @@ -26625,14 +26793,14 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5045:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5053:/ quasiblock"); /*_#STARTCLOCK__L13*/ meltfnum[1] = 0;; /*^compute */ /*_#ENDCLOCK__L14*/ meltfnum[0] = 0;; - MELT_LOCATION ("warmelt-outobj.melt:5048:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5056:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), 3, "MOCX_INITIALENV"); @@ -26640,7 +26808,7 @@ lab_endgetargs:; meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5049:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5057:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), 8, "MOCX_CHEADERLIST"); @@ -26648,7 +26816,7 @@ lab_endgetargs:; meltfptr[24] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5050:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5058:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -26680,14 +26848,14 @@ lab_endgetargs:; /*_.FIRSTX__V28*/ meltfptr[27] = (melt_pair_head ((melt_ptr_t) ( /*_.LIST_FIRST__V27*/ meltfptr[26])));; - MELT_LOCATION ("warmelt-outobj.melt:5052:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5060:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[14] = melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTX__V28*/ meltfptr[27]), (melt_ptr_t) (( /*!CLASS_SOURCE */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:5052:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5060:/ cond"); /*cond */ if ( /*_#IS_A__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -26707,7 +26875,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5052:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5060:/ clear"); /*clear *//*_.LOCA_LOCATION__V30*/ meltfptr[29] = 0; } ; @@ -26718,7 +26886,7 @@ lab_endgetargs:; /*_.FIRSTLOC__V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5053:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5061:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), 0, "NCTX_INITPROC"); @@ -26738,7 +26906,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[4])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:5057:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5065:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26777,7 +26945,7 @@ lab_endgetargs:; /*_.UCMEB1__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; { - MELT_LOCATION ("warmelt-outobj.melt:5063:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5071:/ locexp"); /* translate_macroexpanded_list STARTMODNAM__1 */ #if HAVE_CLOCK /*_#STARTCLOCK__L13*/ meltfnum[1] = (long) clock (); @@ -26788,13 +26956,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5071:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5079:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L16*/ meltfnum[15] = (( /*_.INIENV__V24*/ meltfptr[22]) == (( /*!INITIAL_ENVIRONMENT */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-outobj.melt:5071:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5079:/ cond"); /*cond */ if ( /*_#__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -26804,7 +26972,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5072:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5080:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), @@ -26817,7 +26985,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5071:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5079:/ cond.else"); /*^block */ /*anyblock */ @@ -26825,7 +26993,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5073:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5081:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), @@ -26839,21 +27007,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5075:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5083:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5076:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5084:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5077:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5085:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), ("struct melt_callframe_st; /*defined in melt-runtime.h*/")); @@ -26861,28 +27029,28 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5078:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5086:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5079:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5087:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5080:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5088:/ locexp"); meltgc_prepend_list ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1]), (melt_ptr_t) ( /*_.UCMEB1__V34*/ meltfptr[33])); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5081:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5089:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26908,7 +27076,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5081:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5089:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -26923,7 +27091,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5081:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5089:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26937,7 +27105,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5081; + argtab[2].meltbp_long = 5089; /*^apply.arg */ argtab[3].meltbp_cstring = "after macroexpansion compile_list_sexpr xlist="; @@ -26964,7 +27132,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5081:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5089:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; @@ -26977,7 +27145,7 @@ lab_endgetargs:; /*_.IF___V37*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5081:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5089:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[36];; @@ -26986,7 +27154,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5081:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5089:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IF___V37*/ meltfptr[36] = 0; @@ -27001,7 +27169,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5082:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5090:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27013,7 +27181,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.INIPROC__V31*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_NREP_INITPROC */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:5082:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5090:/ cond"); /*cond */ if ( /*_#IS_A__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -27021,7 +27189,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5082:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5090:/ cond.else"); /*^block */ /*anyblock */ @@ -27035,7 +27203,7 @@ lab_endgetargs:; melt_assert_failed (("check iniproc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5082) ? (5082) : __LINE__, __FUNCTION__); + (5090) ? (5090) : __LINE__, __FUNCTION__); ; } ; @@ -27050,7 +27218,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[36] = /*_.IFELSE___V41*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5082:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5090:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V41*/ meltfptr[37] = 0; @@ -27063,7 +27231,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5083:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5091:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27074,7 +27242,7 @@ lab_endgetargs:; /*_#IS_LIST__L20*/ meltfnum[16] = (melt_magic_discr ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5083:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5091:/ cond"); /*cond */ if ( /*_#IS_LIST__L20*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -27082,7 +27250,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5083:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5091:/ cond.else"); /*^block */ /*anyblock */ @@ -27096,7 +27264,7 @@ lab_endgetargs:; melt_assert_failed (("check xlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5083) ? (5083) : __LINE__, __FUNCTION__); + (5091) ? (5091) : __LINE__, __FUNCTION__); ; } ; @@ -27111,7 +27279,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5083:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5091:/ clear"); /*clear *//*_#IS_LIST__L20*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V43*/ meltfptr[42] = 0; @@ -27122,7 +27290,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5087:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ quasiblock"); /*^newclosure */ @@ -27186,7 +27354,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.INIPROC__V31*/ meltfptr[29]); ; /*_.LAMBDA___V44*/ meltfptr[42] = /*_.LAMBDA___V45*/ meltfptr[44];; - MELT_LOCATION ("warmelt-outobj.melt:5085:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5093:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27207,7 +27375,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5119:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5127:/ locexp"); /* translate_macroexpanded_list CHECK_ERRORS_AFTER_NORMALIZATION__1 */ if (melt_error_counter > 0) melt_fatal_error @@ -27217,7 +27385,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5124:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5132:/ quasiblock"); /*^getslot */ @@ -27255,7 +27423,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[20])), (0)));; - MELT_LOCATION ("warmelt-outobj.melt:5128:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27279,7 +27447,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CHEADTUP__V51*/ meltfptr[50])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5131:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5139:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27305,7 +27473,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5131:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5139:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -27320,7 +27488,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5131:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5139:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27334,7 +27502,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5131; + argtab[2].meltbp_long = 5139; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr prolist="; /*^apply.arg */ @@ -27360,7 +27528,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5131:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5139:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0; @@ -27373,7 +27541,7 @@ lab_endgetargs:; /*_.IF___V53*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5131:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5139:/ quasiblock"); /*_.PROGN___V55*/ meltfptr[53] = /*_.IF___V53*/ meltfptr[52];; @@ -27382,7 +27550,7 @@ lab_endgetargs:; /*_.IFCPP___V52*/ meltfptr[51] = /*_.PROGN___V55*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5131:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5139:/ clear"); /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IF___V53*/ meltfptr[52] = 0; @@ -27395,12 +27563,12 @@ lab_endgetargs:; /*_.IFCPP___V52*/ meltfptr[51] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5133:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5141:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L27*/ meltfnum[25] = (( /*_#NBCHEAD__L24*/ meltfnum[23]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:5133:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5141:/ cond"); /*cond */ if ( /*_#I__L27*/ meltfnum[25]) /*then */ { /*^cond.then */ @@ -27410,7 +27578,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5135:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5143:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); @@ -27418,13 +27586,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5136:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5144:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5137:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5145:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27449,7 +27617,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5138:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5146:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); @@ -27457,7 +27625,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5139:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5147:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); @@ -27483,7 +27651,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5143:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5151:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27509,7 +27677,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5143:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5151:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -27525,7 +27693,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5143:/ checksignal"); + ("warmelt-outobj.melt:5151:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27539,7 +27707,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5143; + argtab[2].meltbp_long = 5151; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr curchead="; @@ -27566,7 +27734,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5143:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5151:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = 0; /*^clear */ @@ -27580,7 +27748,7 @@ lab_endgetargs:; /*_.IF___V59*/ meltfptr[58] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5143:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5151:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[59] = @@ -27591,7 +27759,7 @@ lab_endgetargs:; /*_.PROGN___V61*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5143:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5151:/ clear"); /*clear *//*_#MELT_NEED_DBG__L29*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V59*/ meltfptr[58] = 0; @@ -27606,7 +27774,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5144:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5152:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27618,7 +27786,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURCHEAD__V57*/ meltfptr[53]), (melt_ptr_t) (( /*!CLASS_SOURCE_CHEADER */ meltfrout->tabval[24])));; - MELT_LOCATION ("warmelt-outobj.melt:5144:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5152:/ cond"); /*cond */ if ( /*_#IS_A__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -27626,7 +27794,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5144:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5152:/ cond.else"); /*^block */ /*anyblock */ @@ -27641,7 +27809,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5144) ? (5144) : __LINE__, + (5152) ? (5152) : __LINE__, __FUNCTION__); ; } @@ -27658,7 +27826,7 @@ lab_endgetargs:; /*_.IFELSE___V63*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5144:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5152:/ clear"); /*clear *//*_#IS_A__L31*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V63*/ meltfptr[59] = 0; @@ -27671,13 +27839,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5145:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5153:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5146:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5154:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27703,13 +27871,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5147:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5155:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5148:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5156:/ quasiblock"); /*^cond */ @@ -27737,7 +27905,7 @@ lab_endgetargs:; /*_.HLOC__V65*/ meltfptr[64] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5149:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5157:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27762,7 +27930,7 @@ lab_endgetargs:; /*_.CHSTR__V66*/ meltfptr[65] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5151:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5159:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -27774,7 +27942,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5152:/ checksignal"); + ("warmelt-outobj.melt:5160:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27804,7 +27972,7 @@ lab_endgetargs:; /*_.OUTPUT_RAW_LOCATION__V68*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5151:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5159:/ clear"); /*clear *//*_.OUTPUT_RAW_LOCATION__V68*/ meltfptr[67] = 0; } @@ -27816,7 +27984,7 @@ lab_endgetargs:; /*_.IF___V67*/ meltfptr[66] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5153:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5161:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27838,14 +28006,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5154:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5162:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5148:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5156:/ clear"); /*clear *//*_.HLOC__V65*/ meltfptr[64] = 0; /*^clear */ /*clear *//*_.CHSTR__V66*/ meltfptr[65] = 0; @@ -27859,7 +28027,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5140:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5148:/ clear"); /*clear *//*_.CURCHEAD__V57*/ meltfptr[53] = 0; /*^clear */ /*clear *//*_#HIX__L28*/ meltfnum[24] = 0; @@ -27873,7 +28041,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5157:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5165:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); @@ -27881,13 +28049,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5158:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5166:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5159:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5167:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27912,7 +28080,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5160:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5168:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); @@ -27920,18 +28088,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5161:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5169:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5134:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5142:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5133:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5141:/ clear"); /*clear *//*_.ADD2OUT__V56*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V70*/ meltfptr[64] = 0; @@ -27941,7 +28109,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5165:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5173:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27952,7 +28120,7 @@ lab_endgetargs:; /*_#IS_LIST__L32*/ meltfnum[28] = (melt_magic_discr ((melt_ptr_t) ( /*_.PROLIST__V47*/ meltfptr[46])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5165:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5173:/ cond"); /*cond */ if ( /*_#IS_LIST__L32*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -27960,7 +28128,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5165:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5173:/ cond.else"); /*^block */ /*anyblock */ @@ -27974,7 +28142,7 @@ lab_endgetargs:; melt_assert_failed (("check prolist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5165) ? (5165) : __LINE__, __FUNCTION__); + (5173) ? (5173) : __LINE__, __FUNCTION__); ; } ; @@ -27989,7 +28157,7 @@ lab_endgetargs:; /*_.IFCPP___V71*/ meltfptr[65] = /*_.IFELSE___V72*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5165:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5173:/ clear"); /*clear *//*_#IS_LIST__L32*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IFELSE___V72*/ meltfptr[66] = 0; @@ -28000,7 +28168,7 @@ lab_endgetargs:; /*_.IFCPP___V71*/ meltfptr[65] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5168:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ quasiblock"); /*^newclosure */ @@ -28064,7 +28232,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.OBJLIST__V48*/ meltfptr[47]); ; /*_.LAMBDA___V73*/ meltfptr[67] = /*_.LAMBDA___V74*/ meltfptr[52];; - MELT_LOCATION ("warmelt-outobj.melt:5166:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5174:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28085,7 +28253,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5178:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5186:/ locexp"); /*translate_macroexpanded_list CHECK_ERRORS_AFTER_COMPILATION__1 */ if (melt_error_counter > 0) melt_fatal_error @@ -28097,7 +28265,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5185:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5193:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28108,7 +28276,7 @@ lab_endgetargs:; /*_#IS_LIST__L33*/ meltfnum[29] = (melt_magic_discr ((melt_ptr_t) ( /*_.OBJLIST__V48*/ meltfptr[47])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5185:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5193:/ cond"); /*cond */ if ( /*_#IS_LIST__L33*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -28116,7 +28284,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5185:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5193:/ cond.else"); /*^block */ /*anyblock */ @@ -28130,7 +28298,7 @@ lab_endgetargs:; melt_assert_failed (("check objlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5185) ? (5185) : __LINE__, __FUNCTION__); + (5193) ? (5193) : __LINE__, __FUNCTION__); ; } ; @@ -28145,7 +28313,7 @@ lab_endgetargs:; /*_.IFCPP___V76*/ meltfptr[66] = /*_.IFELSE___V77*/ meltfptr[76];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5185:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5193:/ clear"); /*clear *//*_#IS_LIST__L33*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V77*/ meltfptr[76] = 0; @@ -28156,7 +28324,7 @@ lab_endgetargs:; /*_.IFCPP___V76*/ meltfptr[66] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5186:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5194:/ quasiblock"); /*^getslot */ @@ -28167,7 +28335,7 @@ lab_endgetargs:; meltfptr[76] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5187:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5195:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), 2, "NCTX_DATALIST"); @@ -28175,7 +28343,7 @@ lab_endgetargs:; meltfptr[78] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5188:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5196:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), 3, "NCTX_VALUELIST"); @@ -28183,7 +28351,7 @@ lab_endgetargs:; meltfptr[79] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5189:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5197:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), 14, "NCTX_PROCURMODENVLIST"); @@ -28193,7 +28361,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5191:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5199:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28205,7 +28373,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.INIPRO__V78*/ meltfptr[76]), (melt_ptr_t) (( /*!CLASS_NREP_INITPROC */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:5191:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5199:/ cond"); /*cond */ if ( /*_#IS_A__L34*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -28213,7 +28381,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5191:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5199:/ cond.else"); /*^block */ /*anyblock */ @@ -28227,7 +28395,7 @@ lab_endgetargs:; melt_assert_failed (("check inipro"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5191) ? (5191) : __LINE__, __FUNCTION__); + (5199) ? (5199) : __LINE__, __FUNCTION__); ; } ; @@ -28242,7 +28410,7 @@ lab_endgetargs:; /*_.IFCPP___V82*/ meltfptr[81] = /*_.IFELSE___V83*/ meltfptr[82];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5191:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5199:/ clear"); /*clear *//*_#IS_A__L34*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IFELSE___V83*/ meltfptr[82] = 0; @@ -28253,7 +28421,7 @@ lab_endgetargs:; /*_.IFCPP___V82*/ meltfptr[81] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5192:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ quasiblock"); /*^checksignal */ @@ -28303,7 +28471,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5197:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5205:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28329,7 +28497,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5197:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5205:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -28344,7 +28512,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5197:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5205:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28358,7 +28526,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5197; + argtab[2].meltbp_long = 5205; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr obel="; /*^apply.arg */ @@ -28379,7 +28547,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5197:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5205:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L36*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V89*/ meltfptr[88] = 0; @@ -28392,7 +28560,7 @@ lab_endgetargs:; /*_.IF___V88*/ meltfptr[87] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5197:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5205:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[88] = /*_.IF___V88*/ meltfptr[87];; @@ -28401,7 +28569,7 @@ lab_endgetargs:; /*_.IFCPP___V87*/ meltfptr[86] = /*_.PROGN___V90*/ meltfptr[88];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5197:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5205:/ clear"); /*clear *//*_#MELT_NEED_DBG__L35*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IF___V88*/ meltfptr[87] = 0; @@ -28414,17 +28582,17 @@ lab_endgetargs:; /*_.IFCPP___V87*/ meltfptr[86] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5199:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5207:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5200:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L37*/ meltfnum[28] = melt_is_instance_of ((melt_ptr_t) ( /*_.OBEL__V86*/ meltfptr[85]), (melt_ptr_t) (( /*!CLASS_PROCROUTINEOBJ */ meltfrout->tabval[32])));; - MELT_LOCATION ("warmelt-outobj.melt:5200:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5208:/ cond"); /*cond */ if ( /*_#IS_A__L37*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -28432,7 +28600,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5201:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5209:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -28468,7 +28636,7 @@ lab_endgetargs:; /*_#GET_INT__L39*/ meltfnum[38];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5200:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5208:/ clear"); /*clear *//*_.OPROUT_FILENUM__V92*/ meltfptr[88] = 0; /*^clear */ /*clear *//*_#GET_INT__L39*/ meltfnum[38] = 0; @@ -28481,7 +28649,7 @@ lab_endgetargs:; /*_#FILNUM__L38*/ meltfnum[29] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5203:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5211:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -28522,7 +28690,7 @@ lab_endgetargs:; /*_.NTH_SECUNDARY_FILE__V94*/ meltfptr[93];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5203:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5211:/ clear"); /*clear *//*_.NTH_SECUNDARY_FILE__V94*/ meltfptr[93] = 0; } ; @@ -28533,7 +28701,7 @@ lab_endgetargs:; /*_.SECFIL__V93*/ meltfptr[88] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5205:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5213:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -28575,7 +28743,7 @@ lab_endgetargs:; /*_.SECFIL_IMPLBUF__V96*/ meltfptr[95];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5205:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5213:/ clear"); /*clear *//*_.SECFIL_IMPLBUF__V96*/ meltfptr[95] = 0; } ; @@ -28587,7 +28755,7 @@ lab_endgetargs:; /*_.IMPLBUF__V33*/ meltfptr[32];; } ; - MELT_LOCATION ("warmelt-outobj.melt:5207:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5215:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -28614,7 +28782,7 @@ lab_endgetargs:; /*_.LET___V91*/ meltfptr[87] = /*_.OUTPUT_C_CODE__V97*/ meltfptr[95];; - MELT_LOCATION ("warmelt-outobj.melt:5199:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5207:/ clear"); /*clear *//*_#IS_A__L37*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_#FILNUM__L38*/ meltfnum[29] = 0; @@ -28631,7 +28799,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5194:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5202:/ clear"); /*clear *//*_.PAIREL__V85*/ meltfptr[84] = 0; /*^clear */ /*clear *//*_.OBEL__V86*/ meltfptr[85] = 0; @@ -28643,7 +28811,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5209:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28669,7 +28837,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5209:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[38]) /*then */ { /*^cond.then */ @@ -28684,7 +28852,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5209:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28698,7 +28866,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5209; + argtab[2].meltbp_long = 5217; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr final modnamstr="; @@ -28725,7 +28893,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V100*/ meltfptr[95];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5209:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V100*/ meltfptr[95] = 0; @@ -28738,7 +28906,7 @@ lab_endgetargs:; /*_.IF___V99*/ meltfptr[93] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5209:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[95] = /*_.IF___V99*/ meltfptr[93];; @@ -28747,7 +28915,7 @@ lab_endgetargs:; /*_.IFCPP___V98*/ meltfptr[88] = /*_.PROGN___V101*/ meltfptr[95];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5209:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ clear"); /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[38] = 0; /*^clear */ /*clear *//*_.IF___V99*/ meltfptr[93] = 0; @@ -28762,19 +28930,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5210:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5218:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5211:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5219:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5213:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5221:/ quasiblock"); /*^checksignal */ @@ -28801,7 +28969,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.GENDEVTUP__V103*/ meltfptr[95])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5216:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28827,7 +28995,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5216:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L43*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -28842,7 +29010,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5216:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28856,7 +29024,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5216; + argtab[2].meltbp_long = 5224; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr before emit_syntax_testing_routine gendevtup="; @@ -28883,7 +29051,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V106*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5216:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L44*/ meltfnum[38] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V106*/ meltfptr[105] = 0; @@ -28896,7 +29064,7 @@ lab_endgetargs:; /*_.IF___V105*/ meltfptr[104] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5216:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ quasiblock"); /*_.PROGN___V107*/ meltfptr[105] = /*_.IF___V105*/ meltfptr[104];; @@ -28905,7 +29073,7 @@ lab_endgetargs:; /*_.IFCPP___V104*/ meltfptr[103] = /*_.PROGN___V107*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5216:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ clear"); /*clear *//*_#MELT_NEED_DBG__L43*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V105*/ meltfptr[104] = 0; @@ -28918,7 +29086,7 @@ lab_endgetargs:; /*_.IFCPP___V104*/ meltfptr[103] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5217:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5225:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -28929,7 +29097,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5218:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5226:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28956,7 +29124,7 @@ lab_endgetargs:; /*_.EMIT_SYNTAX_TESTING_ROUTINE__V109*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5217:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5225:/ clear"); /*clear *//*_.EMIT_SYNTAX_TESTING_ROUTINE__V109*/ meltfptr[105] = 0; } ; @@ -28972,7 +29140,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5219:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5227:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), @@ -28989,7 +29157,7 @@ lab_endgetargs:; /*_.LET___V102*/ meltfptr[93] = /*_.IFELSE___V108*/ meltfptr[104];; - MELT_LOCATION ("warmelt-outobj.melt:5213:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5221:/ clear"); /*clear *//*_.GENDEVTUP__V103*/ meltfptr[95] = 0; /*^clear */ /*clear *//*_#NBGENDEV__L42*/ meltfnum[29] = 0; @@ -28999,12 +29167,12 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V108*/ meltfptr[104] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:5222:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5230:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5224:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5232:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -29028,7 +29196,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5225:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5233:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29050,13 +29218,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5227:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5235:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L45*/ meltfnum[38] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V32*/ meltfptr[31]));; - MELT_LOCATION ("warmelt-outobj.melt:5227:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5235:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29097,7 +29265,7 @@ lab_endgetargs:; /*_#I__L48*/ meltfnum[47] = (( /*_#STRBUF_USEDLENGTH__L45*/ meltfnum[38]) > ( /*_#IRAW__L47*/ meltfnum[29]));; - MELT_LOCATION ("warmelt-outobj.melt:5227:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5235:/ cond"); /*cond */ if ( /*_#I__L48*/ meltfnum[47]) /*then */ { /*^cond.then */ @@ -29107,7 +29275,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5228:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5236:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large declaration string buffer for module "), melt_string_str ((melt_ptr_t) @@ -29119,13 +29287,13 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5229:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5237:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L49*/ meltfnum[48] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]));; - MELT_LOCATION ("warmelt-outobj.melt:5229:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5237:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29166,7 +29334,7 @@ lab_endgetargs:; /*_#I__L52*/ meltfnum[51] = (( /*_#STRBUF_USEDLENGTH__L49*/ meltfnum[48]) > ( /*_#IRAW__L51*/ meltfnum[50]));; - MELT_LOCATION ("warmelt-outobj.melt:5229:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5237:/ cond"); /*cond */ if ( /*_#I__L52*/ meltfnum[51]) /*then */ { /*^cond.then */ @@ -29176,7 +29344,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5230:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5238:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large implementation string buffer module for "), melt_string_str ((melt_ptr_t) @@ -29190,7 +29358,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5233:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5241:/ locexp"); /* translate_macroexpanded_list OUTPUTCFILE__1: */ melt_output_cfile_decl_impl ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2]), @@ -29199,7 +29367,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5240:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5248:/ quasiblock"); /*^cond */ @@ -29239,7 +29407,7 @@ lab_endgetargs:; /*_#HISECFILERK__L55*/ meltfnum[54] = 0;; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5245:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29265,7 +29433,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5245:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L56*/ meltfnum[55]) /*then */ { /*^cond.then */ @@ -29280,7 +29448,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5245:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29294,7 +29462,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5245; + argtab[2].meltbp_long = 5253; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr secfiles="; /*^apply.arg */ @@ -29314,7 +29482,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V117*/ meltfptr[116];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5245:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L57*/ meltfnum[56] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V117*/ meltfptr[116] = 0; @@ -29327,7 +29495,7 @@ lab_endgetargs:; /*_.IF___V116*/ meltfptr[115] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5245:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ quasiblock"); /*_.PROGN___V118*/ meltfptr[116] = /*_.IF___V116*/ meltfptr[115];; @@ -29336,7 +29504,7 @@ lab_endgetargs:; /*_.IFCPP___V115*/ meltfptr[114] = /*_.PROGN___V118*/ meltfptr[116];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5245:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ clear"); /*clear *//*_#MELT_NEED_DBG__L56*/ meltfnum[55] = 0; /*^clear */ /*clear *//*_.IF___V116*/ meltfptr[115] = 0; @@ -29367,7 +29535,7 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:5249:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5257:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -29380,7 +29548,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5251:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5259:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29392,7 +29560,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURFIL__V119*/ meltfptr[115]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[34])));; - MELT_LOCATION ("warmelt-outobj.melt:5251:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5259:/ cond"); /*cond */ if ( /*_#IS_A__L59*/ meltfnum[55]) /*then */ { /*^cond.then */ @@ -29400,7 +29568,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5251:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5259:/ cond.else"); /*^block */ /*anyblock */ @@ -29415,7 +29583,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5251) ? (5251) : __LINE__, + (5259) ? (5259) : __LINE__, __FUNCTION__); ; } @@ -29432,7 +29600,7 @@ lab_endgetargs:; /*_.IFELSE___V121*/ meltfptr[120];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5251:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5259:/ clear"); /*clear *//*_#IS_A__L59*/ meltfnum[55] = 0; /*^clear */ /*clear *//*_.IFELSE___V121*/ meltfptr[120] = 0; @@ -29445,7 +29613,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5253:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5261:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29461,7 +29629,7 @@ lab_endgetargs:; /*_#I__L61*/ meltfnum[60] = (( /*_#GET_INT__L60*/ meltfnum[55]) == ( /*_#FILIX__L58*/ meltfnum[56]));; - MELT_LOCATION ("warmelt-outobj.melt:5253:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5261:/ cond"); /*cond */ if ( /*_#I__L61*/ meltfnum[60]) /*then */ { /*^cond.then */ @@ -29469,7 +29637,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5253:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5261:/ cond.else"); /*^block */ /*anyblock */ @@ -29484,7 +29652,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5253) ? (5253) : __LINE__, + (5261) ? (5261) : __LINE__, __FUNCTION__); ; } @@ -29501,7 +29669,7 @@ lab_endgetargs:; /*_.IFELSE___V123*/ meltfptr[122];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5253:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5261:/ clear"); /*clear *//*_#GET_INT__L60*/ meltfnum[55] = 0; /*^clear */ /*clear *//*_#I__L61*/ meltfnum[60] = 0; @@ -29514,18 +29682,18 @@ lab_endgetargs:; /*_.IFCPP___V122*/ meltfptr[120] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5255:/ compute"); + MELT_LOCATION ("warmelt-outobj.melt:5263:/ compute"); /*_#HISECFILERK__L55*/ meltfnum[54] = /*_#SETQ___L62*/ meltfnum[55] = /*_#FILIX__L58*/ meltfnum[56];; { - MELT_LOCATION ("warmelt-outobj.melt:5256:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5264:/ locexp"); /*increment *//*_#NBSECFILES__L53*/ meltfnum[52] += 1; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5258:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5266:/ quasiblock"); /*^cond */ @@ -29553,7 +29721,7 @@ lab_endgetargs:; /*_.SECFILPATH__V124*/ meltfptr[122] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5259:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5267:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29578,7 +29746,7 @@ lab_endgetargs:; /*_.SECDECLBUF__V125*/ meltfptr[124] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5260:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5268:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29603,14 +29771,14 @@ lab_endgetargs:; /*_.SECIMPLBUF__V126*/ meltfptr[125] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5263:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5271:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L63*/ meltfnum[60] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.SECDECLBUF__V125*/ meltfptr[124]));; - MELT_LOCATION ("warmelt-outobj.melt:5263:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5271:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29650,7 +29818,7 @@ lab_endgetargs:; /*_#I__L66*/ meltfnum[65] = (( /*_#STRBUF_USEDLENGTH__L63*/ meltfnum[60]) > ( /*_#IRAW__L65*/ meltfnum[64]));; - MELT_LOCATION ("warmelt-outobj.melt:5263:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5271:/ cond"); /*cond */ if ( /*_#I__L66*/ meltfnum[65]) /*then */ { /*^cond.then */ @@ -29660,7 +29828,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5264:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5272:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large declaration string buffer for secondary file "), @@ -29674,14 +29842,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5265:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5273:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRBUF_USEDLENGTH__L67*/ meltfnum[66] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.SECIMPLBUF__V126*/ meltfptr[125]));; - MELT_LOCATION ("warmelt-outobj.melt:5265:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5273:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29721,7 +29889,7 @@ lab_endgetargs:; /*_#I__L70*/ meltfnum[69] = (( /*_#STRBUF_USEDLENGTH__L67*/ meltfnum[66]) > ( /*_#IRAW__L69*/ meltfnum[68]));; - MELT_LOCATION ("warmelt-outobj.melt:5265:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5273:/ cond"); /*cond */ if ( /*_#I__L70*/ meltfnum[69]) /*then */ { /*^cond.then */ @@ -29731,7 +29899,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5266:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5274:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large implementation string buffer for secondary file "), @@ -29747,7 +29915,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5270:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5278:/ locexp"); /* translate_macroexpanded_list SECFILOUT__1: */ melt_output_cfile_decl_impl_secondary ((melt_ptr_t) ( /*_.SECFILPATH__V124*/ meltfptr[122]), @@ -29758,7 +29926,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5258:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5266:/ clear"); /*clear *//*_.SECFILPATH__V124*/ meltfptr[122] = 0; /*^clear */ /*clear *//*_.SECDECLBUF__V125*/ meltfptr[124] = 0; @@ -29784,12 +29952,12 @@ lab_endgetargs:; /*clear *//*_#IRAW__L69*/ meltfnum[68] = 0; /*^clear */ /*clear *//*_#I__L70*/ meltfnum[69] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5250:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5258:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5249:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5257:/ clear"); /*clear *//*_.IFCPP___V120*/ meltfptr[116] = 0; /*^clear */ /*clear *//*_.IFCPP___V122*/ meltfptr[120] = 0; @@ -29805,13 +29973,13 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5246:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5254:/ clear"); /*clear *//*_.CURFIL__V119*/ meltfptr[115] = 0; /*^clear */ /*clear *//*_#FILIX__L58*/ meltfnum[56] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:5282:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5290:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29852,12 +30020,12 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-outobj.melt:5287:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5295:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L74*/ meltfnum[65] = (( /*_#DELFILIX__L73*/ meltfnum[64]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:5287:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5295:/ cond"); /*cond */ if ( /*_#I__L74*/ meltfnum[65]) /*then */ { /*^cond.then */ @@ -29865,7 +30033,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5288:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5296:/ quasiblock"); /*_.DELFILNAM__V130*/ meltfptr[124] = @@ -29883,7 +30051,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout-> tabval[4])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:5291:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5299:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29905,7 +30073,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5292:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5300:/ quasiblock"); /*_.BAKFILNAM__V133*/ meltfptr[127] = @@ -29916,7 +30084,7 @@ lab_endgetargs:; ( /*_.BAKSBUF__V131*/ meltfptr[125]))));; { - MELT_LOCATION ("warmelt-outobj.melt:5296:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5304:/ locexp"); /*translate_macroexpanded_list BACKUPCHK__1 */ const char *BACKUPCHK__1_delfilnamstr = melt_string_str ((melt_ptr_t) /*_.DELFILNAM__V130*/ @@ -29941,10 +30109,10 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5292:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5300:/ clear"); /*clear *//*_.BAKFILNAM__V133*/ meltfptr[127] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5288:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5296:/ clear"); /*clear *//*_.DELFILNAM__V130*/ meltfptr[124] = 0; /*^clear */ /*clear *//*_.BAKSBUF__V131*/ meltfptr[125] = 0; @@ -29959,7 +30127,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5284:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5292:/ clear"); /*clear *//*_#DELFILIX__L73*/ meltfnum[64] = 0; /*^clear */ /*clear *//*_#I__L74*/ meltfnum[65] = 0; @@ -29967,7 +30135,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5314:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5322:/ locexp"); /* translate_macroexpanded_list ENDMODNAM__1 */ #if HAVE_CLOCK && defined (CLOCKS_PER_SEC) /*_#ENDCLOCK__L14*/ meltfnum[0] = (long) clock (); @@ -30000,7 +30168,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5333:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5341:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -30010,7 +30178,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5240:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5248:/ clear"); /*clear *//*_.SECFILES__V114*/ meltfptr[113] = 0; /*^clear */ /*clear *//*_#NBSECFILES__L53*/ meltfnum[52] = 0; @@ -30027,7 +30195,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_#I__L72*/ meltfnum[63] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5192:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ clear"); /*clear *//*_.INIOBJ__V84*/ meltfptr[82] = 0; /*^clear */ /*clear *//*_.IFCPP___V98*/ meltfptr[88] = 0; @@ -30058,7 +30226,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_#I__L52*/ meltfnum[51] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5186:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5194:/ clear"); /*clear *//*_.INIPRO__V78*/ meltfptr[76] = 0; /*^clear */ /*clear *//*_.INIDATA__V79*/ meltfptr[78] = 0; @@ -30069,7 +30237,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.IFCPP___V82*/ meltfptr[81] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5124:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5132:/ clear"); /*clear *//*_.PROLIST__V47*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.OBJLIST__V48*/ meltfptr[47] = 0; @@ -30100,7 +30268,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.IFCPP___V76*/ meltfptr[66] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5045:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5053:/ clear"); /*clear *//*_#STARTCLOCK__L13*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#ENDCLOCK__L14*/ meltfnum[0] = 0; @@ -30138,7 +30306,7 @@ lab_endgetargs:; /*clear *//*_.LAMBDA___V44*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.LIST_EVERY__V46*/ meltfptr[45] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5033:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -30229,6 +30397,13 @@ meltrout_129_warmelt_outobj_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_129_warmelt_outobj_LAMBDA___26___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 22; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -30244,7 +30419,7 @@ meltrout_129_warmelt_outobj_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5087:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ getarg"); /*_.SEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -30262,7 +30437,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5088:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5096:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30288,7 +30463,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5088:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5096:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30303,7 +30478,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5088:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5096:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30316,7 +30491,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5088; + argtab[2].meltbp_long = 5096; /*^apply.arg */ argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.SEXP__V2*/ meltfptr[1]; @@ -30343,7 +30518,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5088:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5096:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0; @@ -30356,7 +30531,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5088:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5096:/ quasiblock"); /*_.PROGN___V6*/ meltfptr[4] = /*_.IF___V4*/ meltfptr[3];; @@ -30365,7 +30540,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.PROGN___V6*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5088:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5096:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V4*/ meltfptr[3] = 0; @@ -30378,17 +30553,17 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5089:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5097:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5090:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5098:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_LOCATED */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5090:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5098:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -30407,7 +30582,7 @@ lab_endgetargs:; /*_.PSLOC__V7*/ meltfptr[3] = /*_.LOCA_LOCATION__V8*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5090:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5098:/ clear"); /*clear *//*_.LOCA_LOCATION__V8*/ meltfptr[4] = 0; } ; @@ -30418,14 +30593,14 @@ lab_endgetargs:; /*_.PSLOC__V7*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5094:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5102:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_COMMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:5094:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5102:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30433,7 +30608,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5095:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5103:/ quasiblock"); /*^getslot */ @@ -30444,7 +30619,7 @@ lab_endgetargs:; meltfptr[4] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5096:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5104:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXP__V2*/ meltfptr[1]), 2, "SCOMM_STR"); @@ -30454,7 +30629,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5098:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5106:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), (0), 0); @@ -30462,7 +30637,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5099:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5107:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), @@ -30471,7 +30646,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5100:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5108:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) (( /*~DECLBUF */ meltfclos-> tabval[0])), @@ -30482,7 +30657,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5101:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5109:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), @@ -30491,14 +30666,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5102:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5110:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5095:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5103:/ clear"); /*clear *//*_.SLOC__V9*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.SCOMM__V10*/ meltfptr[9] = 0; @@ -30508,16 +30683,16 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5094:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5102:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5107:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5115:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:5105:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5113:/ quasiblock"); /*^multimsend */ @@ -30547,7 +30722,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5108:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30573,7 +30748,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5108:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -30588,7 +30763,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5108:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30602,7 +30777,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5108; + argtab[2].meltbp_long = 5116; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr nexp="; /*^apply.arg */ @@ -30629,7 +30804,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5108:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; @@ -30642,7 +30817,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5108:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[13];; @@ -30651,7 +30826,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5108:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[13] = 0; @@ -30664,7 +30839,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5109:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5117:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -30674,7 +30849,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NEXP__V11*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_NREP */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-outobj.melt:5109:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5117:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -30695,7 +30870,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[5] = /*_#NOT__L11*/ meltfnum[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5109:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5117:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[10] = 0; @@ -30708,7 +30883,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[5] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5109:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5117:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -30716,7 +30891,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5111:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5119:/ quasiblock"); /*^checksignal */ @@ -30744,7 +30919,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5112:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5120:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30770,7 +30945,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5112:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5120:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -30786,7 +30961,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5112:/ checksignal"); + ("warmelt-outobj.melt:5120:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30800,7 +30975,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5112; + argtab[2].meltbp_long = 5120; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr wnexp="; @@ -30822,7 +30997,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5112:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5120:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[10] = 0; /*^clear */ @@ -30836,7 +31011,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5112:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5120:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[19] = @@ -30847,7 +31022,7 @@ lab_endgetargs:; /*_.PROGN___V21*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5112:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5120:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V19*/ meltfptr[18] = 0; @@ -30860,7 +31035,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5113:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5121:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) (( /*~INIPROC */ meltfclos->tabval[3])), 2, "NINIT_TOPL"); @@ -30878,7 +31053,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5111:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5119:/ clear"); /*clear *//*_.WNEXP__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[14] = 0; @@ -30889,7 +31064,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5105:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5113:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -30908,13 +31083,13 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5089:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5097:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.PSLOC__V7*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5087:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -30991,6 +31166,13 @@ meltrout_130_warmelt_outobj_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_130_warmelt_outobj_LAMBDA___27___st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31006,7 +31188,7 @@ meltrout_130_warmelt_outobj_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5168:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ getarg"); /*_.PRO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -31018,7 +31200,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5169:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5177:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31030,7 +31212,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PRO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NREP_ANYPROC */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:5169:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5177:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31038,7 +31220,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5169:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5177:/ cond.else"); /*^block */ /*anyblock */ @@ -31052,7 +31234,7 @@ lab_endgetargs:; melt_assert_failed (("check pro"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5169) ? (5169) : __LINE__, __FUNCTION__); + (5177) ? (5177) : __LINE__, __FUNCTION__); ; } ; @@ -31067,7 +31249,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5169:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5177:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -31088,17 +31270,17 @@ lab_endgetargs:; (( /*_#GET_INT__L2*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:5170:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5178:/ locexp"); melt_put_int ((melt_ptr_t) (( /*~COUNTBOX */ meltfclos->tabval[0])), ( /*_#I__L3*/ meltfnum[2])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5171:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5179:/ quasiblock"); /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int ((melt_ptr_t) (( /*~COUNTBOX */ meltfclos->tabval[0]))));; - MELT_LOCATION ("warmelt-outobj.melt:5171:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5179:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31124,7 +31306,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5172:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5180:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31150,7 +31332,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5172:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5180:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -31165,7 +31347,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5172:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5180:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31178,7 +31360,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5172; + argtab[2].meltbp_long = 5180; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr objpro="; /*^apply.arg */ @@ -31203,7 +31385,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5172:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5180:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -31216,7 +31398,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5172:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5180:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -31225,7 +31407,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5172:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5180:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -31240,20 +31422,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5173:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5181:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~OBJLIST */ meltfclos->tabval[3])), (melt_ptr_t) ( /*_.OBJPRO__V5*/ meltfptr[3])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5171:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5179:/ clear"); /*clear *//*_#GET_INT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.OBJPRO__V5*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5168:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -31336,6 +31518,13 @@ meltrout_131_warmelt_outobj_COMPILE_LIST_SEXPR (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_131_warmelt_outobj_COMPILE_LIST_SEXPR_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 40; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -31351,7 +31540,7 @@ meltrout_131_warmelt_outobj_COMPILE_LIST_SEXPR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5339:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ getarg"); /*_.LSEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -31383,13 +31572,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5340:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5348:/ locexp"); debugeputs (("starting compile_list_sexpr")); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5341:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5349:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31415,7 +31604,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5341:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5349:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31430,7 +31619,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5341:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5349:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31443,7 +31632,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5341; + argtab[2].meltbp_long = 5349; /*^apply.arg */ argtab[3].meltbp_cstring = "@*@@@@ compile_list_sexpr lsexp="; /*^apply.arg */ @@ -31474,7 +31663,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5341:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5349:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -31487,7 +31676,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5341:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5349:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -31496,7 +31685,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5341:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5349:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -31511,7 +31700,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5342:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5350:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31522,7 +31711,7 @@ lab_endgetargs:; /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.LSEXP__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5342:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5350:/ cond"); /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31530,7 +31719,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5342:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5350:/ cond.else"); /*^block */ /*anyblock */ @@ -31544,7 +31733,7 @@ lab_endgetargs:; melt_assert_failed (("check lsexp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5342) ? (5342) : __LINE__, __FUNCTION__); + (5350) ? (5350) : __LINE__, __FUNCTION__); ; } ; @@ -31559,7 +31748,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5342:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5350:/ clear"); /*clear *//*_#IS_LIST__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -31572,7 +31761,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5343:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5351:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31583,7 +31772,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V4*/ meltfptr[3])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5343:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5351:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31591,7 +31780,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5343:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5351:/ cond.else"); /*^block */ /*anyblock */ @@ -31605,7 +31794,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5343) ? (5343) : __LINE__, __FUNCTION__); + (5351) ? (5351) : __LINE__, __FUNCTION__); ; } ; @@ -31620,7 +31809,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5343:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5351:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -31633,7 +31822,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5344:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5352:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31645,7 +31834,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.INIENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5344:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5352:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31653,7 +31842,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5344:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5352:/ cond.else"); /*^block */ /*anyblock */ @@ -31667,7 +31856,7 @@ lab_endgetargs:; melt_assert_failed (("check inienv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5344) ? (5344) : __LINE__, __FUNCTION__); + (5352) ? (5352) : __LINE__, __FUNCTION__); ; } ; @@ -31682,7 +31871,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5344:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5352:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -31695,7 +31884,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5345:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5353:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31711,7 +31900,7 @@ lab_endgetargs:; /*_#NOT__L7*/ meltfnum[1] = (!( /*_#STRING_DYNLOADED_SUFFIXED__L6*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5345:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5353:/ cond"); /*cond */ if ( /*_#NOT__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31719,7 +31908,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5345:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5353:/ cond.else"); /*^block */ /*anyblock */ @@ -31730,7 +31919,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("compile_list_sexpr modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5345) ? (5345) : __LINE__, __FUNCTION__); + melt_assert_failed (("compile_list_sexpr modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5353) ? (5353) : __LINE__, __FUNCTION__); ; } ; @@ -31745,7 +31934,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5345:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5353:/ clear"); /*clear *//*_#STRING_DYNLOADED_SUFFIXED__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L7*/ meltfnum[1] = 0; @@ -31760,7 +31949,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5347:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5355:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31776,7 +31965,7 @@ lab_endgetargs:; /*_#NOT__L9*/ meltfnum[1] = (!( /*_#STRING_SUFFIXED__L8*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5347:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5355:/ cond"); /*cond */ if ( /*_#NOT__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31784,7 +31973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5347:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5355:/ cond.else"); /*^block */ /*anyblock */ @@ -31795,7 +31984,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("compile_list_sexpr modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5347) ? (5347) : __LINE__, __FUNCTION__); + melt_assert_failed (("compile_list_sexpr modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5355) ? (5355) : __LINE__, __FUNCTION__); ; } ; @@ -31810,7 +31999,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5347:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5355:/ clear"); /*clear *//*_#STRING_SUFFIXED__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L9*/ meltfnum[1] = 0; @@ -31825,7 +32014,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5349:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5357:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31841,7 +32030,7 @@ lab_endgetargs:; /*_#NOT__L11*/ meltfnum[1] = (!( /*_#STRING_SUFFIXED__L10*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5349:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5357:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31849,7 +32038,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5349:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5357:/ cond.else"); /*^block */ /*anyblock */ @@ -31860,7 +32049,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("compile_list_sexpr modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5349) ? (5349) : __LINE__, __FUNCTION__); + melt_assert_failed (("compile_list_sexpr modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5357) ? (5357) : __LINE__, __FUNCTION__); ; } ; @@ -31875,7 +32064,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5349:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5357:/ clear"); /*clear *//*_#STRING_SUFFIXED__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[1] = 0; @@ -31888,10 +32077,10 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5351:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5359:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5352:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5360:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_STRING_NAKEDBASENAME__V22*/ meltfptr[21] = @@ -31931,7 +32120,7 @@ lab_endgetargs:; /*_.MAKE_LIST__V28*/ meltfptr[27] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[6]))));; - MELT_LOCATION ("warmelt-outobj.melt:5352:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5360:/ quasiblock"); /*^rawallocobj */ @@ -32035,7 +32224,7 @@ lab_endgetargs:; "MOCX_GENDEVLIST"); ; /*_.MODCTX__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-outobj.melt:5365:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5373:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32050,7 +32239,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5367:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5375:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32076,7 +32265,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5367:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5375:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32091,7 +32280,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5367:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5375:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32105,7 +32294,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5367; + argtab[2].meltbp_long = 5375; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr initial ncx="; /*^apply.arg */ @@ -32125,7 +32314,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5367:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5375:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; @@ -32138,7 +32327,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5367:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5375:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[32];; @@ -32147,7 +32336,7 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5367:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5375:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V33*/ meltfptr[32] = 0; @@ -32162,7 +32351,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5368:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5376:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32174,7 +32363,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V31*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-outobj.melt:5368:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5376:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -32182,7 +32371,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5368:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5376:/ cond.else"); /*^block */ /*anyblock */ @@ -32196,7 +32385,7 @@ lab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5368) ? (5368) : __LINE__, __FUNCTION__); + (5376) ? (5376) : __LINE__, __FUNCTION__); ; } ; @@ -32211,7 +32400,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[32] = /*_.IFELSE___V37*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5368:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5376:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V37*/ meltfptr[33] = 0; @@ -32222,7 +32411,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[32] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5369:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5377:/ quasiblock"); /*^checksignal */ @@ -32250,12 +32439,12 @@ lab_endgetargs:; ; /*_#LENXLIST__L15*/ meltfnum[0] = (melt_list_length ((melt_ptr_t) ( /*_.XLIST__V39*/ meltfptr[38])));; - MELT_LOCATION ("warmelt-outobj.melt:5372:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5380:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L16*/ meltfnum[1] = (( /*_#LENXLIST__L15*/ meltfnum[0]) <= (3));; - MELT_LOCATION ("warmelt-outobj.melt:5372:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5380:/ cond"); /*cond */ if ( /*_#I__L16*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -32265,7 +32454,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5374:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5382:/ locexp"); /* compile_list_sexpr WARNSHORTCHK__1 */ warning (0, "MELT expanded few (%d) expresssions", (int) /*_#LENXLIST__L15*/ meltfnum[0]); @@ -32277,7 +32466,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5377:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5385:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32304,7 +32493,7 @@ lab_endgetargs:; /*_.LET___V38*/ meltfptr[33] = /*_.TRANSLATE_MACROEXPANDED_LIST__V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-outobj.melt:5369:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5377:/ clear"); /*clear *//*_.XLIST__V39*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_#LENXLIST__L15*/ meltfnum[0] = 0; @@ -32314,7 +32503,7 @@ lab_endgetargs:; /*clear *//*_.TRANSLATE_MACROEXPANDED_LIST__V40*/ meltfptr[39] = 0; /*_.LET___V21*/ meltfptr[19] = /*_.LET___V38*/ meltfptr[33];; - MELT_LOCATION ("warmelt-outobj.melt:5351:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5359:/ clear"); /*clear *//*_.MAKE_STRING_NAKEDBASENAME__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.MAKE_MAPSTRING__V23*/ meltfptr[22] = 0; @@ -32340,7 +32529,7 @@ lab_endgetargs:; /*clear *//*_.LET___V38*/ meltfptr[33] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:5382:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5390:/ locexp"); /* compile_list_sexpr CHECK_ERRORS_AFTER_GENERATION__1 */ if (melt_error_counter > 0) melt_fatal_error @@ -32352,11 +32541,11 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5387:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5395:/ locexp"); debugeputs (("ended compile_list_sexpr")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5339:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ diff --git a/gcc/melt/generated/warmelt-outobj+05.c b/gcc/melt/generated/warmelt-outobj+05.c index 6794479af49..c092a21c76b 100644 --- a/gcc/melt/generated/warmelt-outobj+05.c +++ b/gcc/melt/generated/warmelt-outobj+05.c @@ -2268,6 +2268,13 @@ meltrout_132_warmelt_outobj_TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES (struct frame_meltrout_132_warmelt_outobj_TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 71; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2283,7 +2290,7 @@ meltrout_132_warmelt_outobj_TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5402:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ getarg"); /*_.FILES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2315,7 +2322,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5403:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2341,7 +2348,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5403:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2356,7 +2363,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5403:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2369,7 +2376,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5403; + argtab[2].meltbp_long = 5411; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_one_or_more_melt_files files="; @@ -2395,7 +2402,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5403:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -2408,7 +2415,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5403:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -2417,7 +2424,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5403:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -2432,7 +2439,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5404:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5412:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2444,7 +2451,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5404:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5412:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2452,7 +2459,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5404:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5412:/ cond.else"); /*^block */ /*anyblock */ @@ -2466,7 +2473,7 @@ lab_endgetargs:; melt_assert_failed (("check curenv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5404) ? (5404) : __LINE__, __FUNCTION__); + (5412) ? (5412) : __LINE__, __FUNCTION__); ; } ; @@ -2481,7 +2488,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5404:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5412:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -2494,7 +2501,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5405:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5413:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2505,7 +2512,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODSRCNAME__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5405:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5413:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2513,7 +2520,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5405:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5413:/ cond.else"); /*^block */ /*anyblock */ @@ -2527,7 +2534,7 @@ lab_endgetargs:; melt_assert_failed (("check modsrcname"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5405) ? (5405) : __LINE__, __FUNCTION__); + (5413) ? (5413) : __LINE__, __FUNCTION__); ; } ; @@ -2542,7 +2549,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5405:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5413:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -2553,14 +2560,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5406:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1] = /*string_dynloaded_suffixed: */ (melt_string_is_ending ((melt_ptr_t) /*_.MODSRCNAME__V3*/ meltfptr[2], MELT_DYNLOADED_SUFFIX));; - MELT_LOCATION ("warmelt-outobj.melt:5406:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ cond"); /*cond */ if ( /*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2569,7 +2576,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5406:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ cond.else"); /*^block */ /*anyblock */ @@ -2579,7 +2586,7 @@ lab_endgetargs:; /*string_suffixed: */ (melt_string_is_ending ((melt_ptr_t) /*_.MODSRCNAME__V3*/ meltfptr[2], ".melt"));; - MELT_LOCATION ("warmelt-outobj.melt:5406:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ cond"); /*cond */ if ( /*_#STRING_SUFFIXED__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -2588,7 +2595,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5406:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ cond.else"); /*^block */ /*anyblock */ @@ -2604,7 +2611,7 @@ lab_endgetargs:; /*_#STRING_SUFFIXED__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5406:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ clear"); /*clear *//*_#STRING_SUFFIXED__L9*/ meltfnum[8] = 0; } ; @@ -2613,7 +2620,7 @@ lab_endgetargs:; /*_#OR___L6*/ meltfnum[0] = /*_#OR___L8*/ meltfnum[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5406:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5414:/ clear"); /*clear *//*_#STRING_SUFFIXED__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#OR___L8*/ meltfnum[7] = 0; @@ -2631,7 +2638,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5409:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5417:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ("invalid MELT source name - should not be suffixed"), melt_string_str ((melt_ptr_t) @@ -2645,7 +2652,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5411:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5419:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2661,7 +2668,7 @@ lab_endgetargs:; /*_#NOT__L11*/ meltfnum[6] = (!( /*_#STRING_DYNLOADED_SUFFIXED__L10*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:5411:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5419:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -2669,7 +2676,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5411:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5419:/ cond.else"); /*^block */ /*anyblock */ @@ -2680,7 +2687,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_to_c_one_or_more_melt_files modsrcname not ended with MELT_DYNLOADED_SUFFIX"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5411) ? (5411) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_to_c_one_or_more_melt_files modsrcname not ended with MELT_DYNLOADED_SUFFIX"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5419) ? (5419) : __LINE__, __FUNCTION__); ; } ; @@ -2695,7 +2702,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5411:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5419:/ clear"); /*clear *//*_#STRING_DYNLOADED_SUFFIXED__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[6] = 0; @@ -2710,7 +2717,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5413:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5421:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2726,7 +2733,7 @@ lab_endgetargs:; /*_#NOT__L13*/ meltfnum[8] = (!( /*_#STRING_SUFFIXED__L12*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:5413:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5421:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -2734,7 +2741,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5413:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5421:/ cond.else"); /*^block */ /*anyblock */ @@ -2745,7 +2752,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_to_c_one_or_more_melt_files modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5413) ? (5413) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_to_c_one_or_more_melt_files modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5421) ? (5421) : __LINE__, __FUNCTION__); ; } ; @@ -2760,7 +2767,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5413:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5421:/ clear"); /*clear *//*_#STRING_SUFFIXED__L12*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#NOT__L13*/ meltfnum[8] = 0; @@ -2775,7 +2782,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5415:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2791,7 +2798,7 @@ lab_endgetargs:; /*_#NOT__L15*/ meltfnum[7] = (!( /*_#STRING_SUFFIXED__L14*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:5415:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ cond"); /*cond */ if ( /*_#NOT__L15*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -2799,7 +2806,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5415:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ cond.else"); /*^block */ /*anyblock */ @@ -2810,7 +2817,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_to_c_one_or_more_melt_files modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5415) ? (5415) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_to_c_one_or_more_melt_files modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5423) ? (5423) : __LINE__, __FUNCTION__); ; } ; @@ -2825,7 +2832,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5415:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ clear"); /*clear *//*_#STRING_SUFFIXED__L14*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#NOT__L15*/ meltfnum[7] = 0; @@ -2838,7 +2845,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5417:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5425:/ quasiblock"); /*_#ISVALIDMODSRC__L16*/ meltfnum[8] = 0;; @@ -2849,7 +2856,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; { - MELT_LOCATION ("warmelt-outobj.melt:5422:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5430:/ locexp"); /* translate_to_c_one_or_more_melt_files SETISVALIDMODSRCCH__1 */ const char *modsrcstr = melt_string_str ((melt_ptr_t) /*_.MODSRCNAME__V3*/ meltfptr[2]); @@ -2861,12 +2868,12 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5429:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5437:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOT__L17*/ meltfnum[6] = (!( /*_#ISVALIDMODSRC__L16*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:5429:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5437:/ cond"); /*cond */ if ( /*_#NOT__L17*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -2876,7 +2883,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5431:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5439:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2902,7 +2909,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5431:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5439:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -2917,7 +2924,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5431:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5439:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2931,7 +2938,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5431; + argtab[2].meltbp_long = 5439; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_one_or_more_melt_files bad generated modsrcname="; @@ -2953,7 +2960,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5431:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5439:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0; @@ -2966,7 +2973,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5431:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5439:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[23] = /*_.IF___V23*/ meltfptr[22];; @@ -2975,7 +2982,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = /*_.PROGN___V25*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5431:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5439:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V23*/ meltfptr[22] = 0; @@ -2990,20 +2997,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5432:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5440:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ("invalid generated source name [basename should have no dot or plus]"), melt_string_str ((melt_ptr_t) ( /*_.MODSRCNAME__V3*/ meltfptr[2]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:5435:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5443:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:5435:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5443:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3016,7 +3023,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5430:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5438:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[23] = /*_.RETURN___V26*/ meltfptr[22];; @@ -3025,7 +3032,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.PROGN___V27*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5429:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5437:/ clear"); /*clear *//*_.IFCPP___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.RETURN___V26*/ meltfptr[22] = 0; @@ -3040,13 +3047,13 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5438:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5446:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L20*/ meltfnum[18] = (melt_magic_discr ((melt_ptr_t) ( /*_.FILES__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5438:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5446:/ cond"); /*cond */ if ( /*_#IS_STRING__L20*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -3056,7 +3063,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5439:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5447:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3082,7 +3089,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5439:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5447:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3097,7 +3104,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5439:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5447:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3111,7 +3118,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5439; + argtab[2].meltbp_long = 5447; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_one_or_more_melt_files reading single file "; @@ -3133,7 +3140,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5439:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5447:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -3146,7 +3153,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5439:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5447:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[23];; @@ -3155,7 +3162,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[22] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5439:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5447:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[23] = 0; @@ -3170,7 +3177,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5440:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5448:/ locexp"); inform (UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s - %s", melt_dbgcounter, ("reading from file"), melt_string_str ((melt_ptr_t) @@ -3181,7 +3188,7 @@ lab_endgetargs:; (meltgc_read_file (melt_string_str ((melt_ptr_t) ( /*_.FILES__V2*/ meltfptr[1])), (char *) 0));; - MELT_LOCATION ("warmelt-outobj.melt:5441:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5449:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3200,7 +3207,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5438:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5446:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = @@ -3210,7 +3217,7 @@ lab_endgetargs:; /*_.IFELSE___V28*/ meltfptr[21] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5438:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5446:/ clear"); /*clear *//*_.IFCPP___V29*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.READ_FILE__V33*/ meltfptr[23] = 0; @@ -3228,13 +3235,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5442:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5450:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L23*/ meltfnum[21] = (melt_magic_discr ((melt_ptr_t) ( /*_.FILES__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5442:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5450:/ cond"); /*cond */ if ( /*_#IS_LIST__L23*/ meltfnum[21]) /*then */ { /*^cond.then */ @@ -3244,7 +3251,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5443:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5451:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3270,7 +3277,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5443:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5451:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3286,7 +3293,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5443:/ checksignal"); + ("warmelt-outobj.melt:5451:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3300,7 +3307,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5443; + argtab[2].meltbp_long = 5451; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_one_or_more_melt_files reading list of files "; @@ -3322,7 +3329,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5443:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5451:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = 0; /*^clear */ @@ -3336,7 +3343,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5443:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5451:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[34] = @@ -3347,7 +3354,7 @@ lab_endgetargs:; /*_.PROGN___V40*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5443:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5451:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[30] = 0; @@ -3379,7 +3386,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5447:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5455:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3405,7 +3412,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5447:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5455:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -3421,7 +3428,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5447:/ checksignal"); + ("warmelt-outobj.melt:5455:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3436,7 +3443,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5447; + argtab[2].meltbp_long = 5455; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_one_or_more_melt_files curfile="; @@ -3462,7 +3469,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5447:/ clear"); + ("warmelt-outobj.melt:5455:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[7] = 0; /*^clear */ @@ -3478,7 +3485,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5447:/ quasiblock"); + ("warmelt-outobj.melt:5455:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = @@ -3489,7 +3496,7 @@ lab_endgetargs:; /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5447:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5455:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[43] = 0; @@ -3504,7 +3511,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5448:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5456:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3516,7 +3523,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.CURFILE__V42*/ meltfptr[34])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5448:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5456:/ cond"); /*cond */ if ( /*_#IS_STRING__L28*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3526,7 +3533,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5448:/ cond.else"); + ("warmelt-outobj.melt:5456:/ cond.else"); /*^block */ /*anyblock */ @@ -3541,7 +3548,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5448) ? (5448) : + (5456) ? (5456) : __LINE__, __FUNCTION__); ; } @@ -3558,7 +3565,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5448:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5456:/ clear"); /*clear *//*_#IS_STRING__L28*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V48*/ meltfptr[44] = 0; @@ -3571,7 +3578,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5449:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5457:/ locexp"); inform (UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s - %s", melt_dbgcounter, ("reading from file"), @@ -3580,7 +3587,7 @@ lab_endgetargs:; meltfptr[34]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:5450:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5458:/ quasiblock"); /*_.CUREAD__V50*/ meltfptr[49] = @@ -3590,7 +3597,7 @@ lab_endgetargs:; (char *) 0));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5452:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5460:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3616,7 +3623,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5452:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5460:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L29*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -3632,7 +3639,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5452:/ checksignal"); + ("warmelt-outobj.melt:5460:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3647,7 +3654,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5452; + argtab[2].meltbp_long = 5460; /*^apply.arg */ argtab[3].meltbp_cstring = "compilefile_mode curead="; @@ -3673,7 +3680,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5452:/ clear"); + ("warmelt-outobj.melt:5460:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L30*/ meltfnum[7] = 0; /*^clear */ @@ -3689,7 +3696,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5452:/ quasiblock"); + ("warmelt-outobj.melt:5460:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[52] = @@ -3700,7 +3707,7 @@ lab_endgetargs:; /*_.PROGN___V54*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5452:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5460:/ clear"); /*clear *//*_#MELT_NEED_DBG__L29*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[51] = 0; @@ -3715,7 +3722,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5453:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5461:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3729,7 +3736,7 @@ lab_endgetargs:; (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.CUREAD__V50*/ meltfptr[49])) == MELTOBMAG_LIST));; - MELT_LOCATION ("warmelt-outobj.melt:5453:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5461:/ cond"); /*cond */ if ( /*_#IS_LIST_OR_NULL__L31*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3739,7 +3746,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5453:/ cond.else"); + ("warmelt-outobj.melt:5461:/ cond.else"); /*^block */ /*anyblock */ @@ -3754,7 +3761,7 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5453) ? (5453) : + (5461) ? (5461) : __LINE__, __FUNCTION__); ; } @@ -3771,7 +3778,7 @@ lab_endgetargs:; /*_.IFELSE___V56*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5453:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5461:/ clear"); /*clear *//*_#IS_LIST_OR_NULL__L31*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V56*/ meltfptr[52] = 0; @@ -3783,7 +3790,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-outobj.melt:5454:/ checksignal"); + ("warmelt-outobj.melt:5462:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3807,7 +3814,7 @@ lab_endgetargs:; /*_.LET___V49*/ meltfptr[44] = /*_.LIST_APPEND2LIST__V57*/ meltfptr[52];; - MELT_LOCATION ("warmelt-outobj.melt:5450:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5458:/ clear"); /*clear *//*_.CUREAD__V50*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.IFCPP___V51*/ meltfptr[50] = 0; @@ -3822,7 +3829,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5444:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5452:/ clear"); /*clear *//*_.CURPAIR__V41*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.CURFILE__V42*/ meltfptr[34] = 0; @@ -3834,7 +3841,7 @@ lab_endgetargs:; /*clear *//*_.LET___V49*/ meltfptr[44] = 0; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:5442:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5450:/ quasiblock"); /*epilog */ @@ -3853,7 +3860,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5456:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5464:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3869,7 +3876,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5456:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5464:/ cond.else"); /*^block */ /*anyblock */ @@ -3880,7 +3887,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("bad files - should be a list of filenames or a filename"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5456) ? (5456) : __LINE__, __FUNCTION__); + melt_assert_failed (("bad files - should be a list of filenames or a filename"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5464) ? (5464) : __LINE__, __FUNCTION__); ; } ; @@ -3896,7 +3903,7 @@ lab_endgetargs:; /*_.IFELSE___V59*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5456:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5464:/ clear"); /*clear *//*_.IFELSE___V59*/ meltfptr[50] = 0; } @@ -3905,7 +3912,7 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[49] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5455:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5463:/ quasiblock"); /*_.PROGN___V60*/ meltfptr[51] = @@ -3916,7 +3923,7 @@ lab_endgetargs:; /*_.PROGN___V60*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5442:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5450:/ clear"); /*clear *//*_.IFCPP___V58*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.PROGN___V60*/ meltfptr[51] = 0; @@ -3927,7 +3934,7 @@ lab_endgetargs:; /*_.IFELSE___V28*/ meltfptr[21] = /*_.IFELSE___V36*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5438:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5446:/ clear"); /*clear *//*_#IS_LIST__L23*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.IFELSE___V36*/ meltfptr[22] = 0; @@ -3937,7 +3944,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5458:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3963,7 +3970,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5458:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -3978,7 +3985,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5458:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3992,7 +3999,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5458; + argtab[2].meltbp_long = 5466; /*^apply.arg */ argtab[3].meltbp_cstring = "after read translate_to_c_one_or_more_melt_files rlist="; @@ -4013,7 +4020,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5458:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[50] = 0; @@ -4026,7 +4033,7 @@ lab_endgetargs:; /*_.IF___V62*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5458:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[49] = /*_.IF___V62*/ meltfptr[23];; @@ -4035,7 +4042,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[52] = /*_.PROGN___V64*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5458:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ clear"); /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[23] = 0; @@ -4050,7 +4057,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5459:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5467:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4064,7 +4071,7 @@ lab_endgetargs:; /*_#I__L35*/ meltfnum[7] = (( /*_#LIST_LENGTH__L34*/ meltfnum[21]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:5459:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5467:/ cond"); /*cond */ if ( /*_#I__L35*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -4072,7 +4079,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5459:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5467:/ cond.else"); /*^block */ /*anyblock */ @@ -4086,7 +4093,7 @@ lab_endgetargs:; melt_assert_failed (("check non empty rlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5459) ? (5459) : __LINE__, __FUNCTION__); + (5467) ? (5467) : __LINE__, __FUNCTION__); ; } ; @@ -4101,7 +4108,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[51] = /*_.IFELSE___V66*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5459:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5467:/ clear"); /*clear *//*_#LIST_LENGTH__L34*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_#I__L35*/ meltfnum[7] = 0; @@ -4114,7 +4121,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[51] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5460:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5468:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4137,7 +4144,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5461:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5469:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4163,7 +4170,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5461:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5469:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -4178,7 +4185,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5461:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5469:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4192,7 +4199,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5461; + argtab[2].meltbp_long = 5469; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_one_or_more_melt_files done modsrcname="; @@ -4215,7 +4222,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V70*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5461:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5469:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V70*/ meltfptr[22] = 0; @@ -4228,7 +4235,7 @@ lab_endgetargs:; /*_.IF___V69*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5461:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5469:/ quasiblock"); /*_.PROGN___V71*/ meltfptr[22] = /*_.IF___V69*/ meltfptr[49];; @@ -4237,7 +4244,7 @@ lab_endgetargs:; /*_.IFCPP___V68*/ meltfptr[23] = /*_.PROGN___V71*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5461:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5469:/ clear"); /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IF___V69*/ meltfptr[49] = 0; @@ -4254,7 +4261,7 @@ lab_endgetargs:; /*_.LET___V19*/ meltfptr[17] = /*_.IFCPP___V68*/ meltfptr[23];; - MELT_LOCATION ("warmelt-outobj.melt:5417:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5425:/ clear"); /*clear *//*_#ISVALIDMODSRC__L16*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.RLIST__V20*/ meltfptr[19] = 0; @@ -4274,7 +4281,7 @@ lab_endgetargs:; /*clear *//*_.COMPILE_LIST_SEXPR__V67*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.IFCPP___V68*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5402:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4283,7 +4290,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION ("warmelt-outobj.melt:5402:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4385,6 +4392,13 @@ meltrout_133_warmelt_outobj_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT (struct frame_meltrout_133_warmelt_outobj_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 5; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -4401,7 +4415,7 @@ meltrout_133_warmelt_outobj_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5468:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5476:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4423,7 +4437,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5471:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5479:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4434,7 +4448,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:5471:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5479:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4442,7 +4456,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5471:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5479:/ cond.else"); /*^block */ /*anyblock */ @@ -4456,7 +4470,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5471) ? (5471) : __LINE__, __FUNCTION__); + (5479) ? (5479) : __LINE__, __FUNCTION__); ; } ; @@ -4471,7 +4485,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5471:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5479:/ clear"); /*clear *//*_#IS_STRBUF__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -4484,19 +4498,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5472:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5480:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ("/** Copyright (C) ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5473:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5481:/ quasiblock"); /*_#YEAR__L2*/ meltfnum[0] = 0;; { - MELT_LOCATION ("warmelt-outobj.melt:5476:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5484:/ locexp"); /*+ GETYEAR__1 */ time_t GETYEAR__1_now = 0; struct tm *GETYEAR__1_tm = NULL; @@ -4511,17 +4525,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5486:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5494:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ( /*_#YEAR__L2*/ meltfnum[0])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5473:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5481:/ clear"); /*clear *//*_#YEAR__L2*/ meltfnum[0] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:5488:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5496:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" Free Software Foundation, Inc.")); @@ -4529,26 +4543,26 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5489:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5497:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5490:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5498:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" This generated file ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5491:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5499:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.NAME__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5491:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5499:/ cond"); /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4558,7 +4572,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5494:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5502:/ locexp"); /*ADDBASENAME__1 + */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), lbasename (melt_string_str @@ -4574,7 +4588,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5499:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5507:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" is part of GCC.")); @@ -4582,21 +4596,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5500:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5508:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5501:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5509:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5502:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5510:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" [DON\'T EDIT THIS GENERATED FILE]\n\n GCC is free software; you can redistribute it and/or modify\n it under the terms of the GNU General Public License as published by\n the Free Software Foundation; either version 3, or (at your option)\n any later version.\n\n GCC is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n GNU General Public License for more details.\n\n You should have received a copy of the GNU General Public License\n along with GCC; see the file COPYING3. If not see\n <http://www.gnu.org/licenses/>.\n**/")); @@ -4604,19 +4618,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5518:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5526:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5519:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5527:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5468:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5476:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ diff --git a/gcc/melt/generated/warmelt-outobj+meltdesc.c b/gcc/melt/generated/warmelt-outobj+meltdesc.c index bda70d1ff63..dce9026def6 100644 --- a/gcc/melt/generated/warmelt-outobj+meltdesc.c +++ b/gcc/melt/generated/warmelt-outobj+meltdesc.c @@ -36,18 +36,18 @@ const char melt_modulename[]="warmelt-outobj"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt-modules/0.9.6-pre/warmelt-outobj"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="b58b6176d8de740e75fb438a9d0520ae"; +const char melt_prepromd5meltrun[]="645c0ba8ebdaa28786b09eb745ef7c82"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="a648199470aa6c20ea16d1a75de34049"; +const char melt_primaryhexmd5[]="7225f82b95c2091cfad1cec82e13965c"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+01.c #1 */ "8be8db1fb3dea909a24e7069878323cb", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+02.c #2 */ "dbda4943c22759257acf3a3554959325", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+03.c #3 */ "2ecf1e65486e214123a9c90f3c2735ff", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+04.c #4 */ "8c876f616f6b185c085444c17afde2fb", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+05.c #5 */ "7be117d1d09b182daca93c2f3599e90d", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+01.c #1 */ "a0b8498303f968f86416d72d0022f5bf", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+02.c #2 */ "31807dbf0c65a2aeea2276662e45e4f2", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+03.c #3 */ "53d0e675217527c6f11e8e9e0dd2cebf", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+04.c #4 */ "515267aa2224f517e44230abb0e666a2", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-outobj+05.c #5 */ "1e5e8519d5850cda1bc10a8b2d129fe4", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -55,10 +55,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="47a13ea047025e300c445300e7436852" ; +const char melt_cumulated_hexmd5[]="23962fd67ffa652909ed27317bf6da9a" ; /* include the timestamp file */ -#define meltmod_warmelt_outobj_mds__47a13ea047025e300c445300e7436852 1 +#define meltmod_warmelt_outobj_mds__23962fd67ffa652909ed27317bf6da9a 1 #include "warmelt-outobj+melttime.h" diff --git a/gcc/melt/generated/warmelt-outobj+melttime.h b/gcc/melt/generated/warmelt-outobj+melttime.h index 8378a6655ff..c2b78abac71 100644 --- a/gcc/melt/generated/warmelt-outobj+melttime.h +++ b/gcc/melt/generated/warmelt-outobj+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-outobj+melttime.h is included from warmelt-outobj+meltdesc.c only. */ -#if meltmod_warmelt_outobj_mds__47a13ea047025e300c445300e7436852 +#if meltmod_warmelt_outobj_mds__23962fd67ffa652909ed27317bf6da9a /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-outobj */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Mon Jul 2 19:08:39 2012 MEST"; -const long long melt_gen_timenum=1341248919; +const char melt_gen_timestamp[]="Mon Jul 2 19:34:25 2012 MEST"; +const long long melt_gen_timenum=1341250465; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341248919; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_outobj_mds__47a13ea047025e300c445300e7436852 */ + #else /* ! meltmod_warmelt_outobj_mds__23962fd67ffa652909ed27317bf6da9a */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-outobj - #endif /* meltmod_warmelt_outobj_mds__47a13ea047025e300c445300e7436852 */ + #endif /* meltmod_warmelt_outobj_mds__23962fd67ffa652909ed27317bf6da9a */ diff --git a/gcc/melt/generated/warmelt-outobj.c b/gcc/melt/generated/warmelt-outobj.c index 90e52de72f1..594020f0a68 100644 --- a/gcc/melt/generated/warmelt-outobj.c +++ b/gcc/melt/generated/warmelt-outobj.c @@ -2271,6 +2271,13 @@ meltrout_1_warmelt_outobj_GET_CODE_BUFFER_LIMIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_1_warmelt_outobj_GET_CODE_BUFFER_LIMIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 2; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2413,6 +2420,13 @@ meltrout_2_warmelt_outobj_PUT_CODE_BUFFER_LIMIT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_2_warmelt_outobj_PUT_CODE_BUFFER_LIMIT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 7; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2742,6 +2756,13 @@ meltrout_3_warmelt_outobj_CODE_BUFFER_LIMIT_OPTSET (meltclosure_ptr_t meltframptr_ = (struct frame_meltrout_3_warmelt_outobj_CODE_BUFFER_LIMIT_OPTSET_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 6; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -2945,6 +2966,13 @@ meltrout_4_warmelt_outobj_OUTDECLINIT_ROOT (meltclosure_ptr_t meltclosp_, meltframptr_ = (struct frame_meltrout_4_warmelt_outobj_OUTDECLINIT_ROOT_st *) meltfirstargp_; + /* use arguments output_curframe_declstruct_init */ + (void) meltclosp_; + (void) meltfirstargp_; + (void) meltxargdescr_; + (void) meltxargtab_; + (void) meltxresdescr_; + (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 9; ix++) if (meltframptr_->mcfr_varptr[ix]) @@ -3266,10 +3294,6 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) - dbgprintf ("start initialize_module_meltdata_warmelt_outobj iniframp__=%p", - (void *) iniframp__); - melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -3009); struct cdata_st { @@ -3921,6 +3945,10 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, struct MELT_STRING_STRUCT (37) dstr_638__TRANSLATE_TO_C_O; long spare_; } *cdat = NULL; + dbgprintf ("start initialize_module_meltdata_warmelt_outobj iniframp__=%p", + (void *) iniframp__); + melt_assertmsg ("check module initial frame", + iniframp__->mcfr_nbvar == /*minihash */ -3270); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -4005,7 +4033,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_5__BUFFER_LIMIT_CONT.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - cdat->dobj_5__BUFFER_LIMIT_CONT.obj_hash = 329240445; + cdat->dobj_5__BUFFER_LIMIT_CONT.obj_hash = 952761759; cdat->dobj_5__BUFFER_LIMIT_CONT.obj_len = 1; /*iniboxint dint_6__ */ @@ -5673,7 +5701,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_138__PREVLOC_CONTAINER.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - cdat->dobj_138__PREVLOC_CONTAINER.obj_hash = 767108182; + cdat->dobj_138__PREVLOC_CONTAINER.obj_hash = 957801173; cdat->dobj_138__PREVLOC_CONTAINER.obj_len = 1; @@ -5725,7 +5753,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_141__PREVIMPLBUF_CONTAINER.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - cdat->dobj_141__PREVIMPLBUF_CONTAINER.obj_hash = 204151630; + cdat->dobj_141__PREVIMPLBUF_CONTAINER.obj_hash = 401478320; cdat->dobj_141__PREVIMPLBUF_CONTAINER.obj_len = 1; /*inirout drout_142__LINE_AND_FILE_OF_LOCATION */ @@ -6155,7 +6183,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_174__OUTPUCOD_PROCROUTINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_174__OUTPUCOD_PROCROUTINE.routdescr, - "OUTPUCOD_PROCROUTINE @warmelt-outobj.melt:1422", + "OUTPUCOD_PROCROUTINE @warmelt-outobj.melt:1430", MELT_ROUTDESCR_LEN - 1); cdat->drout_174__OUTPUCOD_PROCROUTINE.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_174__OUTPUCOD_PROCROUTINE, @@ -6274,7 +6302,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_183__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_183__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:1538", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:1546", MELT_ROUTDESCR_LEN - 1); cdat->drout_183__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_183__LAMBDA_, meltrout_40_warmelt_outobj_LAMBDA___3__); @@ -6316,7 +6344,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_186__OUTPUT_CURFRAME_CDAT_STRUCT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_186__OUTPUT_CURFRAME_CDAT_STRUCT.routdescr, - "OUTPUT_CURFRAME_CDAT_STRUCT @warmelt-outobj.melt:1606", + "OUTPUT_CURFRAME_CDAT_STRUCT @warmelt-outobj.melt:1614", MELT_ROUTDESCR_LEN - 1); cdat->drout_186__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_186__OUTPUT_CURFRAME_CDAT_STRUCT, @@ -6335,7 +6363,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_188__OUTPUT_CURFRAME_CDAT_FILL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_188__OUTPUT_CURFRAME_CDAT_FILL.routdescr, - "OUTPUT_CURFRAME_CDAT_FILL @warmelt-outobj.melt:1628", + "OUTPUT_CURFRAME_CDAT_FILL @warmelt-outobj.melt:1636", MELT_ROUTDESCR_LEN - 1); cdat->drout_188__OUTPUT_CURFRAME_CDAT_FILL.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_188__OUTPUT_CURFRAME_CDAT_FILL, @@ -6368,7 +6396,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_192__OUTPUCOD_INITIALROUTINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_192__OUTPUCOD_INITIALROUTINE.routdescr, - "OUTPUCOD_INITIALROUTINE @warmelt-outobj.melt:1671", + "OUTPUCOD_INITIALROUTINE @warmelt-outobj.melt:1679", MELT_ROUTDESCR_LEN - 1); cdat->drout_192__OUTPUCOD_INITIALROUTINE.nbval = 26; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_192__OUTPUCOD_INITIALROUTINE, @@ -6387,7 +6415,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_194__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_194__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:1804", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:1812", MELT_ROUTDESCR_LEN - 1); cdat->drout_194__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_194__LAMBDA_, meltrout_44_warmelt_outobj_LAMBDA___4__); @@ -6398,7 +6426,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_195__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_195__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:1825", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:1833", MELT_ROUTDESCR_LEN - 1); cdat->drout_195__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_195__LAMBDA_, meltrout_45_warmelt_outobj_LAMBDA___5__); @@ -6562,7 +6590,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_206__OUTPUCOD_GETARG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_206__OUTPUCOD_GETARG.routdescr, - "OUTPUCOD_GETARG @warmelt-outobj.melt:2045", + "OUTPUCOD_GETARG @warmelt-outobj.melt:2053", MELT_ROUTDESCR_LEN - 1); cdat->drout_206__OUTPUCOD_GETARG.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_206__OUTPUCOD_GETARG, @@ -6643,7 +6671,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_212__OUTPUCOD_GETARGREST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_212__OUTPUCOD_GETARGREST.routdescr, - "OUTPUCOD_GETARGREST @warmelt-outobj.melt:2110", + "OUTPUCOD_GETARGREST @warmelt-outobj.melt:2118", MELT_ROUTDESCR_LEN - 1); cdat->drout_212__OUTPUCOD_GETARGREST.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_212__OUTPUCOD_GETARGREST, @@ -6693,7 +6721,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_216__OUTPUCOD_OBJLOCV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_216__OUTPUCOD_OBJLOCV.routdescr, - "OUTPUCOD_OBJLOCV @warmelt-outobj.melt:2193", + "OUTPUCOD_OBJLOCV @warmelt-outobj.melt:2201", MELT_ROUTDESCR_LEN - 1); cdat->drout_216__OUTPUCOD_OBJLOCV.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_216__OUTPUCOD_OBJLOCV, @@ -6741,7 +6769,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_220__OUTPUCOD_OBJCLOCCV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_220__OUTPUCOD_OBJCLOCCV.routdescr, - "OUTPUCOD_OBJCLOCCV @warmelt-outobj.melt:2224", + "OUTPUCOD_OBJCLOCCV @warmelt-outobj.melt:2232", MELT_ROUTDESCR_LEN - 1); cdat->drout_220__OUTPUCOD_OBJCLOCCV.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_220__OUTPUCOD_OBJCLOCCV, @@ -6791,7 +6819,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_224__OUTPUCOD_OBJCONSTV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_224__OUTPUCOD_OBJCONSTV.routdescr, - "OUTPUCOD_OBJCONSTV @warmelt-outobj.melt:2243", + "OUTPUCOD_OBJCONSTV @warmelt-outobj.melt:2251", MELT_ROUTDESCR_LEN - 1); cdat->drout_224__OUTPUCOD_OBJCONSTV.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_224__OUTPUCOD_OBJCONSTV, @@ -6841,7 +6869,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_228__OUTPUT_CODE_INSTRUCTIONS_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_228__OUTPUT_CODE_INSTRUCTIONS_LIST.routdescr, - "OUTPUT_CODE_INSTRUCTIONS_LIST @warmelt-outobj.melt:2262", + "OUTPUT_CODE_INSTRUCTIONS_LIST @warmelt-outobj.melt:2270", MELT_ROUTDESCR_LEN - 1); cdat->drout_228__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_228__OUTPUT_CODE_INSTRUCTIONS_LIST, @@ -6891,7 +6919,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_232__OUTPUCOD_OBJCHECKSIGNAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_232__OUTPUCOD_OBJCHECKSIGNAL.routdescr, - "OUTPUCOD_OBJCHECKSIGNAL @warmelt-outobj.melt:2296", + "OUTPUCOD_OBJCHECKSIGNAL @warmelt-outobj.melt:2304", MELT_ROUTDESCR_LEN - 1); cdat->drout_232__OUTPUCOD_OBJCHECKSIGNAL.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_232__OUTPUCOD_OBJCHECKSIGNAL, @@ -6941,7 +6969,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_236__OUTPUCOD_OBJANYBLOCK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_236__OUTPUCOD_OBJANYBLOCK.routdescr, - "OUTPUCOD_OBJANYBLOCK @warmelt-outobj.melt:2307", + "OUTPUCOD_OBJANYBLOCK @warmelt-outobj.melt:2315", MELT_ROUTDESCR_LEN - 1); cdat->drout_236__OUTPUCOD_OBJANYBLOCK.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_236__OUTPUCOD_OBJANYBLOCK, @@ -6991,7 +7019,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_240__OUTPUCOD_OBJMULTIALLOCBLOCK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_240__OUTPUCOD_OBJMULTIALLOCBLOCK.routdescr, - "OUTPUCOD_OBJMULTIALLOCBLOCK @warmelt-outobj.melt:2331", + "OUTPUCOD_OBJMULTIALLOCBLOCK @warmelt-outobj.melt:2339", MELT_ROUTDESCR_LEN - 1); cdat->drout_240__OUTPUCOD_OBJMULTIALLOCBLOCK.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_240__OUTPUCOD_OBJMULTIALLOCBLOCK, @@ -7072,7 +7100,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_246__OUTPUCOD_OBJCITERBLOCK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_246__OUTPUCOD_OBJCITERBLOCK.routdescr, - "OUTPUCOD_OBJCITERBLOCK @warmelt-outobj.melt:2403", + "OUTPUCOD_OBJCITERBLOCK @warmelt-outobj.melt:2411", MELT_ROUTDESCR_LEN - 1); cdat->drout_246__OUTPUCOD_OBJCITERBLOCK.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_246__OUTPUCOD_OBJCITERBLOCK, @@ -7153,7 +7181,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_252__OUTPUCOD_OBJCOMMENTINSTR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_252__OUTPUCOD_OBJCOMMENTINSTR.routdescr, - "OUTPUCOD_OBJCOMMENTINSTR @warmelt-outobj.melt:2458", + "OUTPUCOD_OBJCOMMENTINSTR @warmelt-outobj.melt:2466", MELT_ROUTDESCR_LEN - 1); cdat->drout_252__OUTPUCOD_OBJCOMMENTINSTR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_252__OUTPUCOD_OBJCOMMENTINSTR, @@ -7203,7 +7231,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_256__OUTPUCOD_OBJCOMMENTEDBLOCK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_256__OUTPUCOD_OBJCOMMENTEDBLOCK.routdescr, - "OUTPUCOD_OBJCOMMENTEDBLOCK @warmelt-outobj.melt:2479", + "OUTPUCOD_OBJCOMMENTEDBLOCK @warmelt-outobj.melt:2487", MELT_ROUTDESCR_LEN - 1); cdat->drout_256__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_256__OUTPUCOD_OBJCOMMENTEDBLOCK, @@ -7253,7 +7281,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_260__OUTPUCOD_OBJLABELINSTR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_260__OUTPUCOD_OBJLABELINSTR.routdescr, - "OUTPUCOD_OBJLABELINSTR @warmelt-outobj.melt:2517", + "OUTPUCOD_OBJLABELINSTR @warmelt-outobj.melt:2525", MELT_ROUTDESCR_LEN - 1); cdat->drout_260__OUTPUCOD_OBJLABELINSTR.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_260__OUTPUCOD_OBJLABELINSTR, @@ -7303,7 +7331,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_264__OUTPUCOD_OBJGOTOINSTR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_264__OUTPUCOD_OBJGOTOINSTR.routdescr, - "OUTPUCOD_OBJGOTOINSTR @warmelt-outobj.melt:2536", + "OUTPUCOD_OBJGOTOINSTR @warmelt-outobj.melt:2544", MELT_ROUTDESCR_LEN - 1); cdat->drout_264__OUTPUCOD_OBJGOTOINSTR.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_264__OUTPUCOD_OBJGOTOINSTR, @@ -7353,7 +7381,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_268__ADD2SBUF_CLONSYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_268__ADD2SBUF_CLONSYM.routdescr, - "ADD2SBUF_CLONSYM @warmelt-outobj.melt:2553", + "ADD2SBUF_CLONSYM @warmelt-outobj.melt:2561", MELT_ROUTDESCR_LEN - 1); cdat->drout_268__ADD2SBUF_CLONSYM.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_268__ADD2SBUF_CLONSYM, @@ -7403,7 +7431,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_272__OUTPUCOD_OBJLOOP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_272__OUTPUCOD_OBJLOOP.routdescr, - "OUTPUCOD_OBJLOOP @warmelt-outobj.melt:2566", + "OUTPUCOD_OBJLOOP @warmelt-outobj.melt:2574", MELT_ROUTDESCR_LEN - 1); cdat->drout_272__OUTPUCOD_OBJLOOP.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_272__OUTPUCOD_OBJLOOP, @@ -7453,7 +7481,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_276__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_276__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2585", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2593", MELT_ROUTDESCR_LEN - 1); cdat->drout_276__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_276__LAMBDA_, meltrout_62_warmelt_outobj_LAMBDA___6__); @@ -7464,7 +7492,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_277__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_277__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2607", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2615", MELT_ROUTDESCR_LEN - 1); cdat->drout_277__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_277__LAMBDA_, meltrout_63_warmelt_outobj_LAMBDA___7__); @@ -7475,7 +7503,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_278__OUTPUCOD_OBJEXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_278__OUTPUCOD_OBJEXIT.routdescr, - "OUTPUCOD_OBJEXIT @warmelt-outobj.melt:2625", + "OUTPUCOD_OBJEXIT @warmelt-outobj.melt:2633", MELT_ROUTDESCR_LEN - 1); cdat->drout_278__OUTPUCOD_OBJEXIT.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_278__OUTPUCOD_OBJEXIT, @@ -7525,7 +7553,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_282__OUTPUCOD_OBJAGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_282__OUTPUCOD_OBJAGAIN.routdescr, - "OUTPUCOD_OBJAGAIN @warmelt-outobj.melt:2645", + "OUTPUCOD_OBJAGAIN @warmelt-outobj.melt:2653", MELT_ROUTDESCR_LEN - 1); cdat->drout_282__OUTPUCOD_OBJAGAIN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_282__OUTPUCOD_OBJAGAIN, @@ -7575,7 +7603,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_286__OUTPUCOD_OBJCOMPUTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_286__OUTPUCOD_OBJCOMPUTE.routdescr, - "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.melt:2664", + "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.melt:2672", MELT_ROUTDESCR_LEN - 1); cdat->drout_286__OUTPUCOD_OBJCOMPUTE.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_286__OUTPUCOD_OBJCOMPUTE, @@ -7625,7 +7653,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_290__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_290__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2675", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2683", MELT_ROUTDESCR_LEN - 1); cdat->drout_290__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_290__LAMBDA_, meltrout_67_warmelt_outobj_LAMBDA___8__); @@ -7636,7 +7664,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_291__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_291__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2684", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2692", MELT_ROUTDESCR_LEN - 1); cdat->drout_291__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_291__LAMBDA_, meltrout_68_warmelt_outobj_LAMBDA___9__); @@ -7678,7 +7706,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_294__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_294__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2694", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2702", MELT_ROUTDESCR_LEN - 1); cdat->drout_294__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_294__LAMBDA_, meltrout_69_warmelt_outobj_LAMBDA___10__); @@ -7689,7 +7717,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_295__OUTPUCOD_OBJCOND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_295__OUTPUCOD_OBJCOND.routdescr, - "OUTPUCOD_OBJCOND @warmelt-outobj.melt:2710", + "OUTPUCOD_OBJCOND @warmelt-outobj.melt:2718", MELT_ROUTDESCR_LEN - 1); cdat->drout_295__OUTPUCOD_OBJCOND.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_295__OUTPUCOD_OBJCOND, @@ -7739,7 +7767,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_299__OUTPUCOD_OBJCPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_299__OUTPUCOD_OBJCPPIF.routdescr, - "OUTPUCOD_OBJCPPIF @warmelt-outobj.melt:2752", + "OUTPUCOD_OBJCPPIF @warmelt-outobj.melt:2760", MELT_ROUTDESCR_LEN - 1); cdat->drout_299__OUTPUCOD_OBJCPPIF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_299__OUTPUCOD_OBJCPPIF, @@ -7789,7 +7817,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_303__OUTPUCOD_OBJINTERNSYMBOL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_303__OUTPUCOD_OBJINTERNSYMBOL.routdescr, - "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.melt:2785", + "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.melt:2793", MELT_ROUTDESCR_LEN - 1); cdat->drout_303__OUTPUCOD_OBJINTERNSYMBOL.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_303__OUTPUCOD_OBJINTERNSYMBOL, @@ -7870,7 +7898,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_309__OUTPUCOD_OBJINTERNKEYWORD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_309__OUTPUCOD_OBJINTERNKEYWORD.routdescr, - "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.melt:2810", + "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.melt:2818", MELT_ROUTDESCR_LEN - 1); cdat->drout_309__OUTPUCOD_OBJINTERNKEYWORD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_309__OUTPUCOD_OBJINTERNKEYWORD, @@ -7951,7 +7979,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_315__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_315__OUTPUCOD_OBJGETNAMEDSYMBOL.routdescr, - "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.melt:2834", + "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.melt:2842", MELT_ROUTDESCR_LEN - 1); cdat->drout_315__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_315__OUTPUCOD_OBJGETNAMEDSYMBOL, @@ -8001,7 +8029,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_319__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_319__OUTPUCOD_OBJGETNAMEDKEYWORD.routdescr, - "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.melt:2873", + "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.melt:2881", MELT_ROUTDESCR_LEN - 1); cdat->drout_319__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_319__OUTPUCOD_OBJGETNAMEDKEYWORD, @@ -8051,7 +8079,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_323__OUTPUCOD_OBJAPPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_323__OUTPUCOD_OBJAPPLY.routdescr, - "OUTPUCOD_OBJAPPLY @warmelt-outobj.melt:2909", + "OUTPUCOD_OBJAPPLY @warmelt-outobj.melt:2917", MELT_ROUTDESCR_LEN - 1); cdat->drout_323__OUTPUCOD_OBJAPPLY.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_323__OUTPUCOD_OBJAPPLY, @@ -8130,7 +8158,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_329__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_329__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2967", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2975", MELT_ROUTDESCR_LEN - 1); cdat->drout_329__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_329__LAMBDA_, meltrout_77_warmelt_outobj_LAMBDA___11__); @@ -8141,7 +8169,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_330__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_330__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:2984", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:2992", MELT_ROUTDESCR_LEN - 1); cdat->drout_330__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_330__LAMBDA_, meltrout_78_warmelt_outobj_LAMBDA___12__); @@ -8152,7 +8180,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_331__OUTPUCOD_OBJMSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_331__OUTPUCOD_OBJMSEND.routdescr, - "OUTPUCOD_OBJMSEND @warmelt-outobj.melt:3006", + "OUTPUCOD_OBJMSEND @warmelt-outobj.melt:3014", MELT_ROUTDESCR_LEN - 1); cdat->drout_331__OUTPUCOD_OBJMSEND.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_331__OUTPUCOD_OBJMSEND, @@ -8202,7 +8230,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_335__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_335__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3083", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3091", MELT_ROUTDESCR_LEN - 1); cdat->drout_335__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_335__LAMBDA_, meltrout_80_warmelt_outobj_LAMBDA___13__); @@ -8213,7 +8241,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_336__OUTPUCOD_OBJMULTIAPPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_336__OUTPUCOD_OBJMULTIAPPLY.routdescr, - "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.melt:3104", + "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.melt:3112", MELT_ROUTDESCR_LEN - 1); cdat->drout_336__OUTPUCOD_OBJMULTIAPPLY.nbval = 24; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_336__OUTPUCOD_OBJMULTIAPPLY, @@ -8263,7 +8291,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_340__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_340__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3150", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3158", MELT_ROUTDESCR_LEN - 1); cdat->drout_340__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_340__LAMBDA_, meltrout_82_warmelt_outobj_LAMBDA___14__); @@ -8274,7 +8302,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_341__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_341__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3193", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3201", MELT_ROUTDESCR_LEN - 1); cdat->drout_341__LAMBDA_.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_341__LAMBDA_, meltrout_83_warmelt_outobj_LAMBDA___15__); @@ -8285,7 +8313,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_342__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_342__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3221", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3229", MELT_ROUTDESCR_LEN - 1); cdat->drout_342__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_342__LAMBDA_, meltrout_84_warmelt_outobj_LAMBDA___16__); @@ -8296,7 +8324,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_343__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_343__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3236", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3244", MELT_ROUTDESCR_LEN - 1); cdat->drout_343__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_343__LAMBDA_, meltrout_85_warmelt_outobj_LAMBDA___17__); @@ -8307,7 +8335,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_344__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_344__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3247", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3255", MELT_ROUTDESCR_LEN - 1); cdat->drout_344__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_344__LAMBDA_, meltrout_86_warmelt_outobj_LAMBDA___18__); @@ -8318,7 +8346,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_345__OUTPUCOD_OBJMULTIMSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_345__OUTPUCOD_OBJMULTIMSEND.routdescr, - "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.melt:3269", + "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.melt:3277", MELT_ROUTDESCR_LEN - 1); cdat->drout_345__OUTPUCOD_OBJMULTIMSEND.nbval = 24; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_345__OUTPUCOD_OBJMULTIMSEND, @@ -8368,7 +8396,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_349__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_349__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3302", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3310", MELT_ROUTDESCR_LEN - 1); cdat->drout_349__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_349__LAMBDA_, meltrout_88_warmelt_outobj_LAMBDA___19__); @@ -8379,7 +8407,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_350__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_350__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3352", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3360", MELT_ROUTDESCR_LEN - 1); cdat->drout_350__LAMBDA_.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_350__LAMBDA_, meltrout_89_warmelt_outobj_LAMBDA___20__); @@ -8390,7 +8418,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_351__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_351__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3380", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3388", MELT_ROUTDESCR_LEN - 1); cdat->drout_351__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_351__LAMBDA_, meltrout_90_warmelt_outobj_LAMBDA___21__); @@ -8401,7 +8429,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_352__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_352__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3393", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3401", MELT_ROUTDESCR_LEN - 1); cdat->drout_352__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_352__LAMBDA_, meltrout_91_warmelt_outobj_LAMBDA___22__); @@ -8412,7 +8440,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_353__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_353__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3404", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3412", MELT_ROUTDESCR_LEN - 1); cdat->drout_353__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_353__LAMBDA_, meltrout_92_warmelt_outobj_LAMBDA___23__); @@ -8423,7 +8451,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_354__OUTPUCOD_OBJCLEAR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_354__OUTPUCOD_OBJCLEAR.routdescr, - "OUTPUCOD_OBJCLEAR @warmelt-outobj.melt:3424", + "OUTPUCOD_OBJCLEAR @warmelt-outobj.melt:3432", MELT_ROUTDESCR_LEN - 1); cdat->drout_354__OUTPUCOD_OBJCLEAR.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_354__OUTPUCOD_OBJCLEAR, @@ -8473,7 +8501,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_358__OUTPUCOD_OBJRAWALLOCOBJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_358__OUTPUCOD_OBJRAWALLOCOBJ.routdescr, - "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.melt:3440", + "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.melt:3448", MELT_ROUTDESCR_LEN - 1); cdat->drout_358__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_358__OUTPUCOD_OBJRAWALLOCOBJ, @@ -8523,7 +8551,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_362__OUTPUCOD_OBJNEWCLOSURE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_362__OUTPUCOD_OBJNEWCLOSURE.routdescr, - "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.melt:3478", + "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.melt:3486", MELT_ROUTDESCR_LEN - 1); cdat->drout_362__OUTPUCOD_OBJNEWCLOSURE.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_362__OUTPUCOD_OBJNEWCLOSURE, @@ -8573,7 +8601,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_366__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_366__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3491", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3499", MELT_ROUTDESCR_LEN - 1); cdat->drout_366__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_366__LAMBDA_, meltrout_96_warmelt_outobj_LAMBDA___24__); @@ -8584,7 +8612,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_367__OUTPUCOD_OBJTOUCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_367__OUTPUCOD_OBJTOUCH.routdescr, - "OUTPUCOD_OBJTOUCH @warmelt-outobj.melt:3511", + "OUTPUCOD_OBJTOUCH @warmelt-outobj.melt:3519", MELT_ROUTDESCR_LEN - 1); cdat->drout_367__OUTPUCOD_OBJTOUCH.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_367__OUTPUCOD_OBJTOUCH, @@ -8634,7 +8662,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_371__OUTPUCOD_OBJPUTUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_371__OUTPUCOD_OBJPUTUPLE.routdescr, - "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.melt:3536", + "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.melt:3544", MELT_ROUTDESCR_LEN - 1); cdat->drout_371__OUTPUCOD_OBJPUTUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_371__OUTPUCOD_OBJPUTUPLE, @@ -8709,7 +8737,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, "OBJPUTPAIRHEAD_COUNTER", sizeof (cdat->dstr_376__OBJPUTPAIRHEAD_C. val) - 1); - MELT_LOCATION ("warmelt-outobj.melt:3608:/ iniobj"); + MELT_LOCATION ("warmelt-outobj.melt:3616:/ iniobj"); /*iniobj dobj_377__OBJPUTPAIRHEAD_COUNTER*/ /*_.VALDATA___V526*/ meltfptr[525] = @@ -8727,7 +8755,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_377__OBJPUTPAIRHEAD_COUNTER.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - cdat->dobj_377__OBJPUTPAIRHEAD_COUNTER.obj_hash = 463870164; + cdat->dobj_377__OBJPUTPAIRHEAD_COUNTER.obj_hash = 454649916; cdat->dobj_377__OBJPUTPAIRHEAD_COUNTER.obj_len = 1; /*iniboxint dint_378__ */ @@ -8743,7 +8771,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_379__OUTPUCOD_OBJPUTPAIRHEAD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_379__OUTPUCOD_OBJPUTPAIRHEAD.routdescr, - "OUTPUCOD_OBJPUTPAIRHEAD @warmelt-outobj.melt:3610", + "OUTPUCOD_OBJPUTPAIRHEAD @warmelt-outobj.melt:3618", MELT_ROUTDESCR_LEN - 1); cdat->drout_379__OUTPUCOD_OBJPUTPAIRHEAD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_379__OUTPUCOD_OBJPUTPAIRHEAD, @@ -8824,7 +8852,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_385__OUTPUCOD_OBJPUTPAIRTAIL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_385__OUTPUCOD_OBJPUTPAIRTAIL.routdescr, - "OUTPUCOD_OBJPUTPAIRTAIL @warmelt-outobj.melt:3639", + "OUTPUCOD_OBJPUTPAIRTAIL @warmelt-outobj.melt:3647", MELT_ROUTDESCR_LEN - 1); cdat->drout_385__OUTPUCOD_OBJPUTPAIRTAIL.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_385__OUTPUCOD_OBJPUTPAIRTAIL, @@ -8874,7 +8902,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_389__OUTPUCOD_OBJPUTLIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_389__OUTPUCOD_OBJPUTLIST.routdescr, - "OUTPUCOD_OBJPUTLIST @warmelt-outobj.melt:3665", + "OUTPUCOD_OBJPUTLIST @warmelt-outobj.melt:3673", MELT_ROUTDESCR_LEN - 1); cdat->drout_389__OUTPUCOD_OBJPUTLIST.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_389__OUTPUCOD_OBJPUTLIST, @@ -8924,7 +8952,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_393__OUTPUCOD_OBJGETSLOT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_393__OUTPUCOD_OBJGETSLOT.routdescr, - "OUTPUCOD_OBJGETSLOT @warmelt-outobj.melt:3696", + "OUTPUCOD_OBJGETSLOT @warmelt-outobj.melt:3704", MELT_ROUTDESCR_LEN - 1); cdat->drout_393__OUTPUCOD_OBJGETSLOT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_393__OUTPUCOD_OBJGETSLOT, @@ -9004,7 +9032,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_399__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_399__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:3717", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:3725", MELT_ROUTDESCR_LEN - 1); cdat->drout_399__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_399__LAMBDA_, meltrout_103_warmelt_outobj_LAMBDA___25__); @@ -9015,7 +9043,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_400__OUTPUCOD_OBJPUTSLOT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_400__OUTPUCOD_OBJPUTSLOT.routdescr, - "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.melt:3732", + "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.melt:3740", MELT_ROUTDESCR_LEN - 1); cdat->drout_400__OUTPUCOD_OBJPUTSLOT.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_400__OUTPUCOD_OBJPUTSLOT, @@ -9094,7 +9122,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_406__OUTPUCOD_OBJPUTCLOSUROUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_406__OUTPUCOD_OBJPUTCLOSUROUT.routdescr, - "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.melt:3807", + "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.melt:3815", MELT_ROUTDESCR_LEN - 1); cdat->drout_406__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_406__OUTPUCOD_OBJPUTCLOSUROUT, @@ -9144,7 +9172,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_410__OUTPUCOD_OBJPUTCLOSEDV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_410__OUTPUCOD_OBJPUTCLOSEDV.routdescr, - "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.melt:3851", + "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.melt:3859", MELT_ROUTDESCR_LEN - 1); cdat->drout_410__OUTPUCOD_OBJPUTCLOSEDV.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_410__OUTPUCOD_OBJPUTCLOSEDV, @@ -9194,7 +9222,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_414__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_414__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routdescr, - "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.melt:3887", + "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.melt:3895", MELT_ROUTDESCR_LEN - 1); cdat->drout_414__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_414__OUTPUCOD_OBJPUTCLOSEDNOTNULLV, @@ -9244,7 +9272,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_418__OUTPUCOD_OBJPUTROUTCONST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_418__OUTPUCOD_OBJPUTROUTCONST.routdescr, - "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.melt:3927", + "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.melt:3935", MELT_ROUTDESCR_LEN - 1); cdat->drout_418__OUTPUCOD_OBJPUTROUTCONST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_418__OUTPUCOD_OBJPUTROUTCONST, @@ -9294,7 +9322,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_422__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_422__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routdescr, - "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.melt:3966", + "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.melt:3974", MELT_ROUTDESCR_LEN - 1); cdat->drout_422__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -9345,7 +9373,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_426__OUTPUCOD_OBJPUTXTRARESULT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_426__OUTPUCOD_OBJPUTXTRARESULT.routdescr, - "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.melt:4001", + "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.melt:4009", MELT_ROUTDESCR_LEN - 1); cdat->drout_426__OUTPUCOD_OBJPUTXTRARESULT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_426__OUTPUCOD_OBJPUTXTRARESULT, @@ -9395,7 +9423,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_430__OUTPUCOD_OBJEXPV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_430__OUTPUCOD_OBJEXPV.routdescr, - "OUTPUCOD_OBJEXPV @warmelt-outobj.melt:4042", + "OUTPUCOD_OBJEXPV @warmelt-outobj.melt:4050", MELT_ROUTDESCR_LEN - 1); cdat->drout_430__OUTPUCOD_OBJEXPV.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_430__OUTPUCOD_OBJEXPV, @@ -9445,7 +9473,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_434__OUTPUCOD_OBJLOCATEDEXPV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_434__OUTPUCOD_OBJLOCATEDEXPV.routdescr, - "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.melt:4058", + "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.melt:4066", MELT_ROUTDESCR_LEN - 1); cdat->drout_434__OUTPUCOD_OBJLOCATEDEXPV.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_434__OUTPUCOD_OBJLOCATEDEXPV, @@ -9524,7 +9552,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_440__OUTPUCOD_VERBATIMSTRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_440__OUTPUCOD_VERBATIMSTRING.routdescr, - "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.melt:4097", + "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.melt:4105", MELT_ROUTDESCR_LEN - 1); cdat->drout_440__OUTPUCOD_VERBATIMSTRING.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_440__OUTPUCOD_VERBATIMSTRING, @@ -9543,7 +9571,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_442__OUTPUCOD_STRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_442__OUTPUCOD_STRING.routdescr, - "OUTPUCOD_STRING @warmelt-outobj.melt:4110", + "OUTPUCOD_STRING @warmelt-outobj.melt:4118", MELT_ROUTDESCR_LEN - 1); cdat->drout_442__OUTPUCOD_STRING.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_442__OUTPUCOD_STRING, @@ -9562,7 +9590,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_444__OUTPUCOD_INTEGER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_444__OUTPUCOD_INTEGER.routdescr, - "OUTPUCOD_INTEGER @warmelt-outobj.melt:4123", + "OUTPUCOD_INTEGER @warmelt-outobj.melt:4131", MELT_ROUTDESCR_LEN - 1); cdat->drout_444__OUTPUCOD_INTEGER.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_444__OUTPUCOD_INTEGER, @@ -9581,7 +9609,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_446__OUTPUCOD_FINALRETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_446__OUTPUCOD_FINALRETURN.routdescr, - "OUTPUCOD_FINALRETURN @warmelt-outobj.melt:4130", + "OUTPUCOD_FINALRETURN @warmelt-outobj.melt:4138", MELT_ROUTDESCR_LEN - 1); cdat->drout_446__OUTPUCOD_FINALRETURN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_446__OUTPUCOD_FINALRETURN, @@ -9631,7 +9659,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_450__SORTED_NAMED_DICT_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_450__SORTED_NAMED_DICT_TUPLE.routdescr, - "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.melt:4143", + "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.melt:4151", MELT_ROUTDESCR_LEN - 1); cdat->drout_450__SORTED_NAMED_DICT_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_450__SORTED_NAMED_DICT_TUPLE, @@ -9681,7 +9709,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_454__OUTPUT_EXPORTED_OFFSETS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_454__OUTPUT_EXPORTED_OFFSETS.routdescr, - "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.melt:4160", + "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.melt:4168", MELT_ROUTDESCR_LEN - 1); cdat->drout_454__OUTPUT_EXPORTED_OFFSETS.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_454__OUTPUT_EXPORTED_OFFSETS, @@ -9756,7 +9784,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, "CLASS_SECONDARY_C_FILE", sizeof (cdat->dstr_459__CLASS_SECONDARY_. val) - 1); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ iniobj"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ iniobj"); /*iniobj dobj_460__CLASS_SECONDARY_C_FILE*/ /*_.VALDATA___V609*/ meltfptr[608] = @@ -9775,7 +9803,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_460__CLASS_SECONDARY_C_FILE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_460__CLASS_SECONDARY_C_FILE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_460__CLASS_SECONDARY_C_FILE.obj_hash = 46578310; + cdat->dobj_460__CLASS_SECONDARY_C_FILE.obj_hash = 11789448; cdat->dobj_460__CLASS_SECONDARY_C_FILE.obj_len = 8; @@ -9850,7 +9878,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_466__SECFIL_MODNAM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_466__SECFIL_MODNAM.obj_num = 0; - cdat->dobj_466__SECFIL_MODNAM.obj_hash = 10299183; + cdat->dobj_466__SECFIL_MODNAM.obj_hash = 974776145; cdat->dobj_466__SECFIL_MODNAM.obj_len = 4; @@ -9912,7 +9940,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_470__SECFIL_PATH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_470__SECFIL_PATH.obj_num = 1; - cdat->dobj_470__SECFIL_PATH.obj_hash = 927583115; + cdat->dobj_470__SECFIL_PATH.obj_hash = 813645253; cdat->dobj_470__SECFIL_PATH.obj_len = 4; @@ -9974,7 +10002,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_474__SECFIL_DECLBUF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_474__SECFIL_DECLBUF.obj_num = 2; - cdat->dobj_474__SECFIL_DECLBUF.obj_hash = 479122065; + cdat->dobj_474__SECFIL_DECLBUF.obj_hash = 107093127; cdat->dobj_474__SECFIL_DECLBUF.obj_len = 4; @@ -10037,7 +10065,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_478__SECFIL_IMPLBUF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_478__SECFIL_IMPLBUF.obj_num = 3; - cdat->dobj_478__SECFIL_IMPLBUF.obj_hash = 1052414760; + cdat->dobj_478__SECFIL_IMPLBUF.obj_hash = 122676281; cdat->dobj_478__SECFIL_IMPLBUF.obj_len = 4; @@ -10081,7 +10109,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, "GENERATED_C_FILENAME", sizeof (cdat->dstr_481__GENERATED_C_FILE. val) - 1); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ iniobj"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ iniobj"); /*iniobj dobj_482__GENERATED_C_FILENAME*/ /*_.VALDATA___V631*/ meltfptr[630] = @@ -10099,7 +10127,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_482__GENERATED_C_FILENAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); - cdat->dobj_482__GENERATED_C_FILENAME.obj_hash = 433521456; + cdat->dobj_482__GENERATED_C_FILENAME.obj_hash = 905505601; cdat->dobj_482__GENERATED_C_FILENAME.obj_len = 5; /*inimult dtup_483__GENERATED_C_FILENAME */ @@ -10160,7 +10188,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_487.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_487.obj_num = 0; - cdat->dobj_487.obj_hash = 199570893; + cdat->dobj_487.obj_hash = 313975431; cdat->dobj_487.obj_len = 2; @@ -10209,7 +10237,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_490.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_490.obj_num = 1; - cdat->dobj_490.obj_hash = 854785831; + cdat->dobj_490.obj_hash = 697064190; cdat->dobj_490.obj_len = 2; @@ -10258,7 +10286,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_493.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_493.obj_num = 2; - cdat->dobj_493.obj_hash = 705143023; + cdat->dobj_493.obj_hash = 614215535; cdat->dobj_493.obj_len = 2; @@ -10307,7 +10335,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_496.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_496.obj_num = 3; - cdat->dobj_496.obj_hash = 621510180; + cdat->dobj_496.obj_hash = 975389258; cdat->dobj_496.obj_len = 2; @@ -10368,7 +10396,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_503__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_503__NTH_SECUNDARY_FILE.routdescr, - "NTH_SECUNDARY_FILE @warmelt-outobj.melt:4241", + "NTH_SECUNDARY_FILE @warmelt-outobj.melt:4249", MELT_ROUTDESCR_LEN - 1); cdat->drout_503__NTH_SECUNDARY_FILE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_503__NTH_SECUNDARY_FILE, @@ -10387,7 +10415,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_505__OUTPUT_MELT_DESCRIPTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_505__OUTPUT_MELT_DESCRIPTOR.routdescr, - "OUTPUT_MELT_DESCRIPTOR @warmelt-outobj.melt:4275", + "OUTPUT_MELT_DESCRIPTOR @warmelt-outobj.melt:4283", MELT_ROUTDESCR_LEN - 1); cdat->drout_505__OUTPUT_MELT_DESCRIPTOR.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_505__OUTPUT_MELT_DESCRIPTOR, @@ -10552,7 +10580,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_518__RECV.val, "RECV", sizeof (cdat->dstr_518__RECV.val) - 1); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ iniobj"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ iniobj"); /*iniobj dobj_519*/ /*_.VALDATA___V668*/ meltfptr[667] = (melt_ptr_t) & cdat->dobj_519; @@ -10571,7 +10599,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_519.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_519.obj_num = 0; - cdat->dobj_519.obj_hash = 996847572; + cdat->dobj_519.obj_hash = 504855914; cdat->dobj_519.obj_len = 2; @@ -10621,7 +10649,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_522.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_522.obj_num = 1; - cdat->dobj_522.obj_hash = 847795988; + cdat->dobj_522.obj_hash = 850814095; cdat->dobj_522.obj_len = 2; @@ -10670,7 +10698,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_525.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_525.obj_num = 2; - cdat->dobj_525.obj_hash = 913259229; + cdat->dobj_525.obj_hash = 495604217; cdat->dobj_525.obj_len = 2; @@ -10720,7 +10748,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_528.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_528.obj_num = 3; - cdat->dobj_528.obj_hash = 830586785; + cdat->dobj_528.obj_hash = 261739598; cdat->dobj_528.obj_len = 2; @@ -10769,7 +10797,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_531.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_531.obj_num = 4; - cdat->dobj_531.obj_hash = 61550708; + cdat->dobj_531.obj_hash = 793166567; cdat->dobj_531.obj_len = 2; /*inimult dtup_532__SYNTAX_TEST_GENERATOR */ @@ -10796,7 +10824,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_533__SYNTAX_TEST_GENERATOR.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V121*/ meltfptr[120]); - cdat->dobj_533__SYNTAX_TEST_GENERATOR.obj_hash = 1037785079; + cdat->dobj_533__SYNTAX_TEST_GENERATOR.obj_hash = 224689661; cdat->dobj_533__SYNTAX_TEST_GENERATOR.obj_len = 4; @@ -10815,7 +10843,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_535__SYNTESTGEN_ANY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_535__SYNTESTGEN_ANY.routdescr, - "SYNTESTGEN_ANY @warmelt-outobj.melt:4688", + "SYNTESTGEN_ANY @warmelt-outobj.melt:4696", MELT_ROUTDESCR_LEN - 1); cdat->drout_535__SYNTESTGEN_ANY.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_535__SYNTESTGEN_ANY, @@ -10896,7 +10924,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_541__SUBSTITUTE_FORMALS_FOR_SYNTEST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_541__SUBSTITUTE_FORMALS_FOR_SYNTEST.routdescr, - "SUBSTITUTE_FORMALS_FOR_SYNTEST @warmelt-outobj.melt:4708", + "SUBSTITUTE_FORMALS_FOR_SYNTEST @warmelt-outobj.melt:4716", MELT_ROUTDESCR_LEN - 1); cdat->drout_541__SUBSTITUTE_FORMALS_FOR_SYNTEST.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_541__SUBSTITUTE_FORMALS_FOR_SYNTEST, @@ -10946,7 +10974,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_545__EXPAND_TUPLE_FOR_SYNTEST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_545__EXPAND_TUPLE_FOR_SYNTEST.routdescr, - "EXPAND_TUPLE_FOR_SYNTEST @warmelt-outobj.melt:4734", + "EXPAND_TUPLE_FOR_SYNTEST @warmelt-outobj.melt:4742", MELT_ROUTDESCR_LEN - 1); cdat->drout_545__EXPAND_TUPLE_FOR_SYNTEST.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_545__EXPAND_TUPLE_FOR_SYNTEST, @@ -10965,7 +10993,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_547__SYNTESTGEN_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_547__SYNTESTGEN_PRIMITIVE.routdescr, - "SYNTESTGEN_PRIMITIVE @warmelt-outobj.melt:4758", + "SYNTESTGEN_PRIMITIVE @warmelt-outobj.melt:4766", MELT_ROUTDESCR_LEN - 1); cdat->drout_547__SYNTESTGEN_PRIMITIVE.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_547__SYNTESTGEN_PRIMITIVE, @@ -11077,7 +11105,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_555__SYNTESTGEN_CITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_555__SYNTESTGEN_CITERATOR.routdescr, - "SYNTESTGEN_CITERATOR @warmelt-outobj.melt:4818", + "SYNTESTGEN_CITERATOR @warmelt-outobj.melt:4826", MELT_ROUTDESCR_LEN - 1); cdat->drout_555__SYNTESTGEN_CITERATOR.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_555__SYNTESTGEN_CITERATOR, @@ -11127,7 +11155,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_559__SYNTESTGEN_CMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_559__SYNTESTGEN_CMATCHER.routdescr, - "SYNTESTGEN_CMATCHER @warmelt-outobj.melt:4886", + "SYNTESTGEN_CMATCHER @warmelt-outobj.melt:4894", MELT_ROUTDESCR_LEN - 1); cdat->drout_559__SYNTESTGEN_CMATCHER.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_559__SYNTESTGEN_CMATCHER, @@ -11256,7 +11284,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_569__EMIT_SYNTAX_TESTING_ROUTINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_569__EMIT_SYNTAX_TESTING_ROUTINE.routdescr, - "EMIT_SYNTAX_TESTING_ROUTINE @warmelt-outobj.melt:4971", + "EMIT_SYNTAX_TESTING_ROUTINE @warmelt-outobj.melt:4979", MELT_ROUTDESCR_LEN - 1); cdat->drout_569__EMIT_SYNTAX_TESTING_ROUTINE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_569__EMIT_SYNTAX_TESTING_ROUTINE, @@ -11275,7 +11303,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_571__TRANSLATE_MACROEXPANDED_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_571__TRANSLATE_MACROEXPANDED_LIST.routdescr, - "TRANSLATE_MACROEXPANDED_LIST @warmelt-outobj.melt:5033", + "TRANSLATE_MACROEXPANDED_LIST @warmelt-outobj.melt:5041", MELT_ROUTDESCR_LEN - 1); cdat->drout_571__TRANSLATE_MACROEXPANDED_LIST.nbval = 42; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_571__TRANSLATE_MACROEXPANDED_LIST, @@ -11463,7 +11491,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_584__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_584__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:5087", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:5095", MELT_ROUTDESCR_LEN - 1); cdat->drout_584__LAMBDA_.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_584__LAMBDA_, meltrout_129_warmelt_outobj_LAMBDA___26__); @@ -11627,7 +11655,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_595__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_595__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-outobj.melt:5168", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-outobj.melt:5176", MELT_ROUTDESCR_LEN - 1); cdat->drout_595__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_595__LAMBDA_, meltrout_130_warmelt_outobj_LAMBDA___27__); @@ -11700,7 +11728,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_600__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_600__COMPILE_LIST_SEXPR.routdescr, - "COMPILE_LIST_SEXPR @warmelt-outobj.melt:5339", + "COMPILE_LIST_SEXPR @warmelt-outobj.melt:5347", MELT_ROUTDESCR_LEN - 1); cdat->drout_600__COMPILE_LIST_SEXPR.nbval = 12; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_600__COMPILE_LIST_SEXPR, @@ -11899,7 +11927,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, "MELT_ARGUMENT", sizeof (cdat->dstr_613__MELT_ARGUMENT.val) - 1); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ iniobj"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ iniobj"); /*iniobj dobj_614__MELT_ARGUMENT*/ /*_.VALDATA___V763*/ meltfptr[762] = @@ -11917,7 +11945,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_614__MELT_ARGUMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); - cdat->dobj_614__MELT_ARGUMENT.obj_hash = 1067630364; + cdat->dobj_614__MELT_ARGUMENT.obj_hash = 1022205498; cdat->dobj_614__MELT_ARGUMENT.obj_len = 5; /*inimult dtup_615__MELT_ARGUMENT */ @@ -11978,7 +12006,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->dobj_619.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_619.obj_num = 0; - cdat->dobj_619.obj_hash = 220502288; + cdat->dobj_619.obj_hash = 159754182; cdat->dobj_619.obj_len = 2; @@ -12014,7 +12042,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, cdat->drout_623__TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_623__TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES.routdescr, - "TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES @warmelt-outobj.melt:5402", + "TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES @warmelt-outobj.melt:5410", MELT_ROUTDESCR_LEN - 1); cdat->drout_623__TRANSLATE_TO_C_ONE_OR_MORE_MELT_FILES.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -12067,7 +12095,7 @@ initialize_module_meltdata_warmelt_outobj (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_627__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT. routdescr, - "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT @warmelt-outobj.melt:5468", + "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT @warmelt-outobj.melt:5476", MELT_ROUTDESCR_LEN - 1); cdat->drout_627__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -12281,7 +12309,7 @@ start_module_melt (void *modargp_) /**initial routine prologue**/ /* set initial frame marking */ ((struct melt_callframe_st *) &meltfram__)->mcfr_nbvar = - /*minihash */ -3009; + /*minihash */ -3270; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmod__warmelt_outobj__forward_or_mark_module_start_frame; /**COMMENT: get previous environment **/ ; @@ -12330,7 +12358,8 @@ start_module_melt (void *modargp_) meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -20775,7 +20804,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V321*/ meltfptr[320]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20788,7 +20817,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_PROCROUTINEOBJ__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20801,7 +20830,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V324*/ meltfptr[323]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -20813,7 +20842,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20826,7 +20855,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[3] = (melt_ptr_t) ( /*_.VARIADIC_INDEX_IDSTR__V51*/ meltfptr[50]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20839,7 +20868,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[4] = (melt_ptr_t) ( /*_.VARIADIC_LENGTH_IDSTR__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20852,7 +20881,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[5] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -20864,7 +20893,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V320*/ meltfptr[319]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -20876,7 +20905,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V301*/ meltfptr[300]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20889,7 +20918,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[8] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -20901,7 +20930,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20915,7 +20944,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20929,7 +20958,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[11] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20943,7 +20972,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[12] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20957,7 +20986,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20971,7 +21000,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[14] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -20983,7 +21012,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -20997,7 +21026,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:1538:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21010,7 +21039,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V325*/ meltfptr[324])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:1538:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21023,7 +21052,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V325*/ meltfptr[324])->tabval[1] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:1538:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21035,7 +21064,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V325*/ meltfptr[324])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:1538:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21048,12 +21077,12 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V325*/ meltfptr[324])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:1538:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1546:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V325*/ meltfptr[324]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21067,7 +21096,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V323*/ meltfptr[322])->tabval[17] = (melt_ptr_t) ( /*_.VALROUT___V325*/ meltfptr[324]); - MELT_LOCATION ("warmelt-outobj.melt:1422:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1430:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V323*/ meltfptr[322]); @@ -21163,7 +21192,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V333*/ meltfptr[332]); - MELT_LOCATION ("warmelt-outobj.melt:1606:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21177,7 +21206,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V335*/ meltfptr[334])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_DECLINIT__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-outobj.melt:1606:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21189,7 +21218,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V335*/ meltfptr[334])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:1606:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21203,7 +21232,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V335*/ meltfptr[334])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:1606:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21217,7 +21246,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V335*/ meltfptr[334])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:1606:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1614:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V335*/ meltfptr[334]); @@ -21237,7 +21266,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V336*/ meltfptr[335]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21251,7 +21280,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_INITIAL_PREDEF__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21265,7 +21294,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V338*/ meltfptr[337]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21279,7 +21308,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_INITIAL_FILL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21293,7 +21322,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V339*/ meltfptr[338]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21305,7 +21334,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21319,7 +21348,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21333,7 +21362,7 @@ meltmod__warmelt_outobj__initialmeltchunk_2 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:1628:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1636:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V337*/ meltfptr[336]); @@ -21366,7 +21395,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21380,7 +21409,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_INITIALROUTINEOBJ__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21394,7 +21423,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ROUTINEOBJ__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21408,7 +21437,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[2] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21420,7 +21449,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V301*/ meltfptr[300]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21432,7 +21461,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V336*/ meltfptr[335]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21444,7 +21473,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V340*/ meltfptr[339]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21456,7 +21485,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V320*/ meltfptr[319]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21470,7 +21499,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V342*/ meltfptr[341]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21484,7 +21513,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[8] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21498,7 +21527,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21512,7 +21541,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[10] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:1825:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1833:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21525,7 +21554,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V343*/ meltfptr[342])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:1825:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1833:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21538,12 +21567,12 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V343*/ meltfptr[342])->tabval[1] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:1825:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1833:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V343*/ meltfptr[342]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21557,7 +21586,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[11] = (melt_ptr_t) ( /*_.VALROUT___V343*/ meltfptr[342]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21571,7 +21600,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21585,7 +21614,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21599,7 +21628,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[14] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21613,7 +21642,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[15] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V56*/ meltfptr[55]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21627,7 +21656,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[16] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21639,7 +21668,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21651,7 +21680,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V215*/ meltfptr[214]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21665,7 +21694,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[19] = (melt_ptr_t) ( /*_.CLASS_OBJINSTR__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21677,7 +21706,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21691,7 +21720,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[21] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21703,7 +21732,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[22] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21717,7 +21746,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[23] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21731,7 +21760,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[24] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21743,7 +21772,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[25] = (melt_ptr_t) ( /*_.VALCLO___V312*/ meltfptr[311]); - MELT_LOCATION ("warmelt-outobj.melt:1671:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1679:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V341*/ meltfptr[340]); @@ -21858,7 +21887,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V353*/ meltfptr[352]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21871,7 +21900,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJGETARG__V59*/ meltfptr[58]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21884,7 +21913,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V60*/ meltfptr[59]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21896,7 +21925,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21909,7 +21938,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_OBJLOCV__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21922,7 +21951,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21935,7 +21964,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[5] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21948,7 +21977,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[6] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -21960,7 +21989,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -21973,7 +22002,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V355*/ meltfptr[354])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2045:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2053:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V355*/ meltfptr[354]); @@ -22031,7 +22060,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V359*/ meltfptr[358]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22044,7 +22073,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJGETARGREST__V61*/ meltfptr[60]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22057,7 +22086,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[1] = (melt_ptr_t) ( /*_.VARIADIC_INDEX_IDSTR__V51*/ meltfptr[50]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22070,7 +22099,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[2] = (melt_ptr_t) ( /*_.VARIADIC_LENGTH_IDSTR__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22083,7 +22112,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V60*/ meltfptr[59]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22095,7 +22124,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22108,7 +22137,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_OBJLOCV__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22121,7 +22150,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22134,7 +22163,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[7] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22147,7 +22176,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[8] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22159,7 +22188,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22172,7 +22201,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V361*/ meltfptr[360])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2118:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V361*/ meltfptr[360]); @@ -22211,7 +22240,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V363*/ meltfptr[362]); - MELT_LOCATION ("warmelt-outobj.melt:2193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22224,7 +22253,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V365*/ meltfptr[364])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJLOCV__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-outobj.melt:2193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22237,7 +22266,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V365*/ meltfptr[364])->tabval[1] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:2193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22250,7 +22279,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V365*/ meltfptr[364])->tabval[2] = (melt_ptr_t) ( /*_.CTYPE_LONG__V62*/ meltfptr[61]); - MELT_LOCATION ("warmelt-outobj.melt:2193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22262,7 +22291,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V365*/ meltfptr[364])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22275,7 +22304,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V365*/ meltfptr[364])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2201:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V365*/ meltfptr[364]); @@ -22314,7 +22343,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V367*/ meltfptr[366]); - MELT_LOCATION ("warmelt-outobj.melt:2224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22327,7 +22356,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCLOCCV__V63*/ meltfptr[62]); - MELT_LOCATION ("warmelt-outobj.melt:2224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22340,7 +22369,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[1] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:2224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22352,7 +22381,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22365,7 +22394,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2232:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V369*/ meltfptr[368]); @@ -22404,7 +22433,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V371*/ meltfptr[370]); - MELT_LOCATION ("warmelt-outobj.melt:2243:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22417,7 +22446,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V373*/ meltfptr[372])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCONSTV__V64*/ meltfptr[63]); - MELT_LOCATION ("warmelt-outobj.melt:2243:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22430,7 +22459,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V373*/ meltfptr[372])->tabval[1] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:2243:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22442,7 +22471,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V373*/ meltfptr[372])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2243:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22455,7 +22484,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V373*/ meltfptr[372])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2243:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2251:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V373*/ meltfptr[372]); @@ -22494,7 +22523,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V375*/ meltfptr[374]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22508,7 +22537,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V377*/ meltfptr[376])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPLAINBLOCK__V65*/ meltfptr[64]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22535,7 +22564,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V378*/ meltfptr[377]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22547,7 +22576,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V377*/ meltfptr[376])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V378*/ meltfptr[377]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22561,7 +22590,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V377*/ meltfptr[376])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22575,7 +22604,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V377*/ meltfptr[376])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22587,7 +22616,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V377*/ meltfptr[376])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22601,7 +22630,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V377*/ meltfptr[376])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2270:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V377*/ meltfptr[376]); @@ -22625,7 +22654,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V379*/ meltfptr[378]); - MELT_LOCATION ("warmelt-outobj.melt:2296:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2304:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22639,7 +22668,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V381*/ meltfptr[380])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCHECKSIGNAL__V66*/ meltfptr[65]); - MELT_LOCATION ("warmelt-outobj.melt:2296:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2304:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22651,7 +22680,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V381*/ meltfptr[380])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2296:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2304:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22665,7 +22694,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V381*/ meltfptr[380])->tabval[2] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:2296:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2304:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V381*/ meltfptr[380]); @@ -22704,7 +22733,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V383*/ meltfptr[382]); - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22717,7 +22746,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V385*/ meltfptr[384])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJANYBLOCK__V67*/ meltfptr[66]); - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22729,7 +22758,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V385*/ meltfptr[384])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22742,7 +22771,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V385*/ meltfptr[384])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22754,7 +22783,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V385*/ meltfptr[384])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V378*/ meltfptr[377]); - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22766,7 +22795,7 @@ meltmod__warmelt_outobj__initialmeltchunk_3 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V385*/ meltfptr[384])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22792,7 +22821,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:2307:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2315:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V385*/ meltfptr[384]); @@ -22831,7 +22860,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V387*/ meltfptr[386]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22845,7 +22874,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJMULTIALLOCBLOCK__V68*/ meltfptr[67]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22859,7 +22888,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22873,7 +22902,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22887,7 +22916,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22899,7 +22928,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22913,7 +22942,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_OBJINITELEM__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22927,7 +22956,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[6] = (melt_ptr_t) ( /*_.OUTPUT_C_DECLINIT__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22939,7 +22968,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22953,7 +22982,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -22967,7 +22996,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[9] = (melt_ptr_t) ( /*_.OUTPUT_C_INITIAL_FILL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -22979,7 +23008,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V378*/ meltfptr[377]); - MELT_LOCATION ("warmelt-outobj.melt:2331:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2339:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V389*/ meltfptr[388]); @@ -23037,7 +23066,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V393*/ meltfptr[392]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23051,7 +23080,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCITERBLOCK__V70*/ meltfptr[69]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23065,7 +23094,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23079,7 +23108,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V71*/ meltfptr[70]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23091,7 +23120,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23105,7 +23134,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23117,7 +23146,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23131,7 +23160,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23143,7 +23172,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V395*/ meltfptr[394])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V378*/ meltfptr[377]); - MELT_LOCATION ("warmelt-outobj.melt:2403:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2411:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V395*/ meltfptr[394]); @@ -23201,7 +23230,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V399*/ meltfptr[398]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23215,7 +23244,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V401*/ meltfptr[400])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCOMMENTINSTR__V72*/ meltfptr[71]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23229,7 +23258,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V401*/ meltfptr[400])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23243,7 +23272,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V401*/ meltfptr[400])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23255,7 +23284,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V401*/ meltfptr[400])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23267,7 +23296,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V401*/ meltfptr[400])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23281,7 +23310,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V401*/ meltfptr[400])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2458:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2466:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V401*/ meltfptr[400]); @@ -23320,7 +23349,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V403*/ meltfptr[402]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23334,7 +23363,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCOMMENTEDBLOCK__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23346,7 +23375,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23360,7 +23389,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23374,7 +23403,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23388,7 +23417,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23400,7 +23429,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V378*/ meltfptr[377]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23412,7 +23441,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23426,7 +23455,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V405*/ meltfptr[404])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2479:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2487:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V405*/ meltfptr[404]); @@ -23465,7 +23494,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V407*/ meltfptr[406]); - MELT_LOCATION ("warmelt-outobj.melt:2517:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23479,7 +23508,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V409*/ meltfptr[408])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJLABELINSTR__V74*/ meltfptr[73]); - MELT_LOCATION ("warmelt-outobj.melt:2517:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23491,7 +23520,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V409*/ meltfptr[408])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2517:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23505,7 +23534,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V409*/ meltfptr[408])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2517:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23517,7 +23546,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V409*/ meltfptr[408])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2517:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2525:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V409*/ meltfptr[408]); @@ -23556,7 +23585,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V411*/ meltfptr[410]); - MELT_LOCATION ("warmelt-outobj.melt:2536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23570,7 +23599,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V413*/ meltfptr[412])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJGOTOINSTR__V75*/ meltfptr[74]); - MELT_LOCATION ("warmelt-outobj.melt:2536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23582,7 +23611,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V413*/ meltfptr[412])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23594,7 +23623,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V413*/ meltfptr[412])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23608,7 +23637,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V413*/ meltfptr[412])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2544:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V413*/ meltfptr[412]); @@ -23647,7 +23676,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V415*/ meltfptr[414]); - MELT_LOCATION ("warmelt-outobj.melt:2553:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23660,7 +23689,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V417*/ meltfptr[416])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V76*/ meltfptr[75]); - MELT_LOCATION ("warmelt-outobj.melt:2553:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23672,7 +23701,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V417*/ meltfptr[416])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2553:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23685,7 +23714,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V417*/ meltfptr[416])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2553:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2561:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V417*/ meltfptr[416]); @@ -23724,7 +23753,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V419*/ meltfptr[418]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23737,7 +23766,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJLOOP__V77*/ meltfptr[76]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23750,7 +23779,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23763,7 +23792,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V76*/ meltfptr[75]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23775,7 +23804,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23787,7 +23816,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V418*/ meltfptr[417]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23800,7 +23829,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[5] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23813,7 +23842,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23826,7 +23855,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[7] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2585:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2593:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23839,7 +23868,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:2585:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2593:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23852,12 +23881,12 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[1] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2585:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2593:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V422*/ meltfptr[421]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23870,7 +23899,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23883,7 +23912,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23896,7 +23925,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[10] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23908,7 +23937,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23921,7 +23950,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2607:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23934,7 +23963,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V423*/ meltfptr[422])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:2607:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23947,7 +23976,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V423*/ meltfptr[422])->tabval[1] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2607:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -23959,7 +23988,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V423*/ meltfptr[422])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2607:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23972,12 +24001,12 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V423*/ meltfptr[422])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2607:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2615:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V423*/ meltfptr[422]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -23990,7 +24019,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[13] = (melt_ptr_t) ( /*_.VALROUT___V423*/ meltfptr[422]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24002,7 +24031,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24015,7 +24044,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V421*/ meltfptr[420])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2566:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2574:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V421*/ meltfptr[420]); @@ -24054,7 +24083,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V425*/ meltfptr[424]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24067,7 +24096,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V427*/ meltfptr[426])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJEXIT__V78*/ meltfptr[77]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24080,7 +24109,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V427*/ meltfptr[426])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V76*/ meltfptr[75]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24092,7 +24121,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V427*/ meltfptr[426])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24104,7 +24133,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V427*/ meltfptr[426])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V418*/ meltfptr[417]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24116,7 +24145,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V427*/ meltfptr[426])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24129,7 +24158,7 @@ meltmod__warmelt_outobj__initialmeltchunk_4 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V427*/ meltfptr[426])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2625:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2633:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V427*/ meltfptr[426]); @@ -24181,7 +24210,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24194,7 +24223,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V431*/ meltfptr[430])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJAGAIN__V79*/ meltfptr[78]); - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24207,7 +24236,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V431*/ meltfptr[430])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLONED_SYMBOL__V76*/ meltfptr[75]); - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24219,7 +24248,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V431*/ meltfptr[430])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24231,7 +24260,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V431*/ meltfptr[430])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V418*/ meltfptr[417]); - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24243,7 +24272,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V431*/ meltfptr[430])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24256,7 +24285,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V431*/ meltfptr[430])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2645:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2653:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V431*/ meltfptr[430]); @@ -24295,7 +24324,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V433*/ meltfptr[432]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24308,7 +24337,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCOMPUTE__V80*/ meltfptr[79]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24321,7 +24350,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24333,7 +24362,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24346,7 +24375,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[3] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24359,7 +24388,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2675:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24372,12 +24401,12 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V436*/ meltfptr[435])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2675:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2683:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V436*/ meltfptr[435]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24390,7 +24419,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V436*/ meltfptr[435]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24403,7 +24432,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[6] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24415,7 +24444,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24428,7 +24457,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2684:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24441,7 +24470,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V437*/ meltfptr[436])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2684:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24453,7 +24482,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V437*/ meltfptr[436])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2684:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24466,12 +24495,12 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V437*/ meltfptr[436])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2684:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2692:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V437*/ meltfptr[436]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24484,7 +24513,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V437*/ meltfptr[436]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24497,7 +24526,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[10] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V81*/ meltfptr[80]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24510,7 +24539,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[11] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24522,7 +24551,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24535,7 +24564,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2694:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24548,7 +24577,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V438*/ meltfptr[437])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2694:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24560,7 +24589,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V438*/ meltfptr[437])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2694:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24573,12 +24602,12 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V438*/ meltfptr[437])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2694:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2702:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V438*/ meltfptr[437]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24591,7 +24620,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[14] = (melt_ptr_t) ( /*_.VALROUT___V438*/ meltfptr[437]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24604,7 +24633,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[15] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24616,7 +24645,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24629,7 +24658,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V435*/ meltfptr[434])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2664:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2672:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V435*/ meltfptr[434]); @@ -24687,7 +24716,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V442*/ meltfptr[441]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24700,7 +24729,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCOND__V82*/ meltfptr[81]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24712,7 +24741,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24725,7 +24754,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24738,7 +24767,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_OBJPUREVALUE__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24750,7 +24779,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24763,7 +24792,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2718:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V444*/ meltfptr[443]); @@ -24802,7 +24831,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V446*/ meltfptr[445]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24815,7 +24844,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V448*/ meltfptr[447])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCPPIF__V83*/ meltfptr[82]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24827,7 +24856,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V448*/ meltfptr[447])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24839,7 +24868,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V448*/ meltfptr[447])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24852,7 +24881,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V448*/ meltfptr[447])->tabval[3] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24864,7 +24893,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V448*/ meltfptr[447])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24877,7 +24906,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V448*/ meltfptr[447])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2752:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2760:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V448*/ meltfptr[447]); @@ -24916,7 +24945,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V450*/ meltfptr[449]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24930,7 +24959,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJINTERNSYMBOL__V84*/ meltfptr[83]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24944,7 +24973,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_OBJINITOBJECT__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24958,7 +24987,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NREP_DATASYMBOL__V85*/ meltfptr[84]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24970,7 +24999,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -24984,7 +25013,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -24996,7 +25025,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25010,7 +25039,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2785:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2793:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V452*/ meltfptr[451]); @@ -25068,7 +25097,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V456*/ meltfptr[455]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25082,7 +25111,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJINTERNKEYWORD__V86*/ meltfptr[85]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25096,7 +25125,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NREP_DATAKEYWORD__V87*/ meltfptr[86]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25108,7 +25137,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25122,7 +25151,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[3] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25134,7 +25163,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25148,7 +25177,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2810:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2818:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V458*/ meltfptr[457]); @@ -25206,7 +25235,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V462*/ meltfptr[461]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25220,7 +25249,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJGETNAMEDSYMBOL__V88*/ meltfptr[87]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25234,7 +25263,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_OBJINITOBJECT__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25248,7 +25277,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NREP_DATASYMBOL__V85*/ meltfptr[84]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25260,7 +25289,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25274,7 +25303,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25286,7 +25315,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25300,7 +25329,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2834:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2842:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V464*/ meltfptr[463]); @@ -25339,7 +25368,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V466*/ meltfptr[465]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25353,7 +25382,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJGETNAMEDKEYWORD__V89*/ meltfptr[88]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25367,7 +25396,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_OBJINITOBJECT__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25381,7 +25410,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NREP_DATAKEYWORD__V87*/ meltfptr[86]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25393,7 +25422,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25407,7 +25436,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25419,7 +25448,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25433,7 +25462,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2873:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2881:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V468*/ meltfptr[467]); @@ -25472,7 +25501,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V470*/ meltfptr[469]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25485,7 +25514,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJAPPLY__V90*/ meltfptr[89]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25498,7 +25527,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25511,7 +25540,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25523,7 +25552,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25536,7 +25565,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_OBJINSTR__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25549,7 +25578,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[5] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25562,7 +25591,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25575,7 +25604,7 @@ meltmod__warmelt_outobj__initialmeltchunk_5 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_OBJNIL__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25601,7 +25630,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25614,7 +25643,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[9] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25626,7 +25655,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25639,7 +25668,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25652,7 +25681,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[12] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25665,7 +25694,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[13] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25677,7 +25706,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25690,7 +25719,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2967:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25703,7 +25732,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V473*/ meltfptr[472])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:2967:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25715,7 +25744,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V473*/ meltfptr[472])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:2967:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25728,12 +25757,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V473*/ meltfptr[472])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:2967:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2975:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V473*/ meltfptr[472]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25746,7 +25775,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V473*/ meltfptr[472]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25759,7 +25788,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[17] = (melt_ptr_t) ( /*_.VALROUT___V474*/ meltfptr[473]); - MELT_LOCATION ("warmelt-outobj.melt:2909:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2917:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V472*/ meltfptr[471]); @@ -25817,7 +25846,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V478*/ meltfptr[477]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25830,7 +25859,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJMSEND__V92*/ meltfptr[91]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25843,7 +25872,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25856,7 +25885,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25868,7 +25897,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25881,7 +25910,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[4] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25894,7 +25923,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25907,7 +25936,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_OBJNIL__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25920,7 +25949,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[7] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25933,7 +25962,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[8] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -25945,7 +25974,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25958,7 +25987,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25971,7 +26000,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[11] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -25984,7 +26013,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[12] = (melt_ptr_t) ( /*_.VALROUT___V481*/ meltfptr[480]); - MELT_LOCATION ("warmelt-outobj.melt:3006:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3014:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V480*/ meltfptr[479]); @@ -26023,7 +26052,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V483*/ meltfptr[482]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26037,7 +26066,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJMULTIAPPLY__V93*/ meltfptr[92]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26051,7 +26080,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26065,7 +26094,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26077,7 +26106,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26091,7 +26120,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[4] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V81*/ meltfptr[80]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26105,7 +26134,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[5] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3150:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3158:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26118,12 +26147,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V486*/ meltfptr[485])->tabval[0] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3150:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3158:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V486*/ meltfptr[485]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26137,7 +26166,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26151,7 +26180,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[7] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26165,7 +26194,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26179,7 +26208,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[9] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26193,7 +26222,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[10] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26205,7 +26234,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26219,7 +26248,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26233,7 +26262,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[13] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26247,7 +26276,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26259,7 +26288,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26273,7 +26302,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[16] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26287,7 +26316,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[17] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26300,7 +26329,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V487*/ meltfptr[486])->tabval[0] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26313,7 +26342,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V487*/ meltfptr[486])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26325,7 +26354,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V487*/ meltfptr[486])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26338,7 +26367,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V487*/ meltfptr[486])->tabval[3] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26351,12 +26380,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V487*/ meltfptr[486])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3193:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3201:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V487*/ meltfptr[486]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26370,7 +26399,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[18] = (melt_ptr_t) ( /*_.VALROUT___V487*/ meltfptr[486]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26384,7 +26413,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[19] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26398,7 +26427,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[20] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3229:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26411,12 +26440,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3229:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V488*/ meltfptr[487]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26430,7 +26459,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[21] = (melt_ptr_t) ( /*_.VALROUT___V488*/ meltfptr[487]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26444,7 +26473,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[22] = (melt_ptr_t) ( /*_.VALROUT___V489*/ meltfptr[488]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26458,7 +26487,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V485*/ meltfptr[484])->tabval[23] = (melt_ptr_t) ( /*_.VALROUT___V490*/ meltfptr[489]); - MELT_LOCATION ("warmelt-outobj.melt:3104:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3112:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V485*/ meltfptr[484]); @@ -26497,7 +26526,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V492*/ meltfptr[491]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26511,7 +26540,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJMULTIMSEND__V94*/ meltfptr[93]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26525,7 +26554,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26539,7 +26568,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26551,7 +26580,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26565,7 +26594,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[4] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V81*/ meltfptr[80]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26579,7 +26608,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[5] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3302:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3310:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26592,12 +26621,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V495*/ meltfptr[494])->tabval[0] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3302:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3310:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V495*/ meltfptr[494]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26611,7 +26640,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V495*/ meltfptr[494]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26625,7 +26654,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[7] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26639,7 +26668,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26653,7 +26682,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[9] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26667,7 +26696,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[10] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26679,7 +26708,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26693,7 +26722,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26707,7 +26736,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[13] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26721,7 +26750,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26733,7 +26762,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26747,7 +26776,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[16] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26761,7 +26790,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[17] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3352:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26774,7 +26803,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V496*/ meltfptr[495])->tabval[0] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:3352:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26787,7 +26816,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V496*/ meltfptr[495])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:3352:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26799,7 +26828,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V496*/ meltfptr[495])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3352:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26812,7 +26841,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V496*/ meltfptr[495])->tabval[3] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:3352:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26825,12 +26854,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V496*/ meltfptr[495])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3352:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3360:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V496*/ meltfptr[495]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26844,7 +26873,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[18] = (melt_ptr_t) ( /*_.VALROUT___V496*/ meltfptr[495]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26858,7 +26887,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[19] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26872,7 +26901,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[20] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3380:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3388:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26885,12 +26914,12 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3380:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3388:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V497*/ meltfptr[496]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26904,7 +26933,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[21] = (melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26918,7 +26947,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[22] = (melt_ptr_t) ( /*_.VALROUT___V498*/ meltfptr[497]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26932,7 +26961,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V494*/ meltfptr[493])->tabval[23] = (melt_ptr_t) ( /*_.VALROUT___V499*/ meltfptr[498]); - MELT_LOCATION ("warmelt-outobj.melt:3269:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3277:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V494*/ meltfptr[493]); @@ -26971,7 +27000,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V501*/ meltfptr[500]); - MELT_LOCATION ("warmelt-outobj.melt:3424:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -26984,7 +27013,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V503*/ meltfptr[502])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJCLEAR__V95*/ meltfptr[94]); - MELT_LOCATION ("warmelt-outobj.melt:3424:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -26996,7 +27025,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V503*/ meltfptr[502])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3424:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27009,7 +27038,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V503*/ meltfptr[502])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3424:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27021,7 +27050,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V503*/ meltfptr[502])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3424:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27034,7 +27063,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V503*/ meltfptr[502])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3424:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3432:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V503*/ meltfptr[502]); @@ -27073,7 +27102,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V505*/ meltfptr[504]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27087,7 +27116,7 @@ meltmod__warmelt_outobj__initialmeltchunk_6 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V507*/ meltfptr[506])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJRAWALLOCOBJ__V96*/ meltfptr[95]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27114,7 +27143,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27128,7 +27157,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V507*/ meltfptr[506])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_OBJVALUE__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27140,7 +27169,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V507*/ meltfptr[506])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27154,7 +27183,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V507*/ meltfptr[506])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27166,7 +27195,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V507*/ meltfptr[506])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27180,7 +27209,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V507*/ meltfptr[506])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3440:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3448:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V507*/ meltfptr[506]); @@ -27219,7 +27248,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V509*/ meltfptr[508]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27233,7 +27262,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJNEWCLOSURE__V97*/ meltfptr[96]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27247,7 +27276,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27259,7 +27288,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27273,7 +27302,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[3] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27287,7 +27316,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27299,7 +27328,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27313,7 +27342,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3491:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27326,7 +27355,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V512*/ meltfptr[511])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3491:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27338,7 +27367,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V512*/ meltfptr[511])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3491:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27351,12 +27380,12 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V512*/ meltfptr[511])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3491:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3499:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V512*/ meltfptr[511]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27370,7 +27399,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V512*/ meltfptr[511]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27384,7 +27413,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[8] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27396,7 +27425,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27410,7 +27439,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3478:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3486:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V511*/ meltfptr[510]); @@ -27449,7 +27478,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V514*/ meltfptr[513]); - MELT_LOCATION ("warmelt-outobj.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27462,7 +27491,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V516*/ meltfptr[515])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJTOUCH__V98*/ meltfptr[97]); - MELT_LOCATION ("warmelt-outobj.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27474,7 +27503,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V516*/ meltfptr[515])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27487,7 +27516,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V516*/ meltfptr[515])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3511:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3519:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V516*/ meltfptr[515]); @@ -27526,7 +27555,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V518*/ meltfptr[517]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27539,7 +27568,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V520*/ meltfptr[519])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTUPLE__V99*/ meltfptr[98]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27551,7 +27580,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V520*/ meltfptr[519])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V294*/ meltfptr[293]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27563,7 +27592,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V520*/ meltfptr[519])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27576,7 +27605,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V520*/ meltfptr[519])->tabval[3] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27588,7 +27617,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V520*/ meltfptr[519])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27601,7 +27630,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V520*/ meltfptr[519])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3544:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V520*/ meltfptr[519]); @@ -27659,7 +27688,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V524*/ meltfptr[523]); - MELT_LOCATION ("warmelt-outobj.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3616:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -27677,12 +27706,12 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALBXINT___V527*/ meltfptr[526]); - MELT_LOCATION ("warmelt-outobj.melt:3608:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3616:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V526*/ meltfptr[525]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27696,7 +27725,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTPAIR__V100*/ meltfptr[99]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27710,7 +27739,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_OBJPUTPAIRHEAD__V101*/ meltfptr[100]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27722,7 +27751,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27736,7 +27765,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27748,7 +27777,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27762,7 +27791,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[5] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27774,7 +27803,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V528*/ meltfptr[527])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3610:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3618:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V528*/ meltfptr[527]); @@ -27832,7 +27861,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V532*/ meltfptr[531]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27846,7 +27875,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V534*/ meltfptr[533])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTPAIR__V100*/ meltfptr[99]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27860,7 +27889,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V534*/ meltfptr[533])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_OBJPUTPAIRTAIL__V102*/ meltfptr[101]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27872,7 +27901,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V534*/ meltfptr[533])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27886,7 +27915,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V534*/ meltfptr[533])->tabval[3] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27898,7 +27927,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V534*/ meltfptr[533])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27912,7 +27941,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V534*/ meltfptr[533])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3639:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3647:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V534*/ meltfptr[533]); @@ -27951,7 +27980,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V536*/ meltfptr[535]); - MELT_LOCATION ("warmelt-outobj.melt:3665:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27964,7 +27993,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V538*/ meltfptr[537])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTLIST__V103*/ meltfptr[102]); - MELT_LOCATION ("warmelt-outobj.melt:3665:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -27976,7 +28005,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V538*/ meltfptr[537])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3665:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -27989,7 +28018,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V538*/ meltfptr[537])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3665:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28001,7 +28030,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V538*/ meltfptr[537])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3665:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28014,7 +28043,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V538*/ meltfptr[537])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3665:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3673:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V538*/ meltfptr[537]); @@ -28053,7 +28082,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V540*/ meltfptr[539]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28066,7 +28095,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJGETSLOT__V104*/ meltfptr[103]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28079,7 +28108,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28092,7 +28121,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_FIELD__V105*/ meltfptr[104]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28104,7 +28133,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28117,7 +28146,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28130,7 +28159,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[5] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28143,7 +28172,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[6] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28155,7 +28184,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28168,7 +28197,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3717:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28181,7 +28210,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V543*/ meltfptr[542])->tabval[0] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3717:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28193,7 +28222,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V543*/ meltfptr[542])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3717:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28206,12 +28235,12 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V543*/ meltfptr[542])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3717:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3725:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V543*/ meltfptr[542]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28224,7 +28253,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V543*/ meltfptr[542]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28236,7 +28265,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28249,7 +28278,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3696:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3704:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V542*/ meltfptr[541]); @@ -28307,7 +28336,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V547*/ meltfptr[546]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28320,7 +28349,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTSLOT__V106*/ meltfptr[105]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28333,7 +28362,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NREP__V107*/ meltfptr[106]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28345,7 +28374,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28358,7 +28387,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28371,7 +28400,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[4] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28384,7 +28413,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_FIELD__V105*/ meltfptr[104]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28396,7 +28425,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28409,7 +28438,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V549*/ meltfptr[548])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3732:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3740:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V549*/ meltfptr[548]); @@ -28467,7 +28496,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V553*/ meltfptr[552]); - MELT_LOCATION ("warmelt-outobj.melt:3807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28481,7 +28510,7 @@ meltmod__warmelt_outobj__initialmeltchunk_7 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V555*/ meltfptr[554])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTCLOSUROUT__V108*/ meltfptr[107]); - MELT_LOCATION ("warmelt-outobj.melt:3807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28506,7 +28535,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:3807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28520,7 +28549,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V555*/ meltfptr[554])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28532,7 +28561,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V555*/ meltfptr[554])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28546,7 +28575,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V555*/ meltfptr[554])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3815:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V555*/ meltfptr[554]); @@ -28585,7 +28614,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V557*/ meltfptr[556]); - MELT_LOCATION ("warmelt-outobj.melt:3851:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28599,7 +28628,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V559*/ meltfptr[558])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTCLOSEDV__V109*/ meltfptr[108]); - MELT_LOCATION ("warmelt-outobj.melt:3851:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28611,7 +28640,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V559*/ meltfptr[558])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3851:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28625,7 +28654,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V559*/ meltfptr[558])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3851:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28637,7 +28666,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V559*/ meltfptr[558])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3851:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28651,7 +28680,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V559*/ meltfptr[558])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3851:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3859:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V559*/ meltfptr[558]); @@ -28690,7 +28719,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V561*/ meltfptr[560]); - MELT_LOCATION ("warmelt-outobj.melt:3887:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28704,7 +28733,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V563*/ meltfptr[562])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTCLOSEDNOTNULLV__V110*/ meltfptr[109]); - MELT_LOCATION ("warmelt-outobj.melt:3887:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28716,7 +28745,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V563*/ meltfptr[562])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3887:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28730,7 +28759,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V563*/ meltfptr[562])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3887:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28742,7 +28771,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V563*/ meltfptr[562])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3887:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28756,7 +28785,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V563*/ meltfptr[562])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3887:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3895:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V563*/ meltfptr[562]); @@ -28795,7 +28824,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V565*/ meltfptr[564]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28809,7 +28838,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V567*/ meltfptr[566])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTROUTCONST__V111*/ meltfptr[110]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28823,7 +28852,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V567*/ meltfptr[566])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_OBJINITROUTINE__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28835,7 +28864,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V567*/ meltfptr[566])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28849,7 +28878,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V567*/ meltfptr[566])->tabval[3] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28861,7 +28890,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V567*/ meltfptr[566])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28875,7 +28904,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V567*/ meltfptr[566])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3935:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V567*/ meltfptr[566]); @@ -28914,7 +28943,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V569*/ meltfptr[568]); - MELT_LOCATION ("warmelt-outobj.melt:3966:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28928,7 +28957,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V571*/ meltfptr[570])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTROUTCONSTNOTNULL__V112*/ meltfptr[111]); - MELT_LOCATION ("warmelt-outobj.melt:3966:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28940,7 +28969,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V571*/ meltfptr[570])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:3966:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28954,7 +28983,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V571*/ meltfptr[570])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:3966:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -28966,7 +28995,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V571*/ meltfptr[570])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:3966:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -28980,7 +29009,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V571*/ meltfptr[570])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:3966:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3974:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V571*/ meltfptr[570]); @@ -29019,7 +29048,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V573*/ meltfptr[572]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29033,7 +29062,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJPUTXTRARESULT__V113*/ meltfptr[112]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29047,7 +29076,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[1] = (melt_ptr_t) ( /*_.GET_CTYPE__V91*/ meltfptr[90]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29059,7 +29088,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29073,7 +29102,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29087,7 +29116,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[4] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29101,7 +29130,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29115,7 +29144,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[6] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29129,7 +29158,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[7] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29141,7 +29170,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29155,7 +29184,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V575*/ meltfptr[574])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4001:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4009:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V575*/ meltfptr[574]); @@ -29194,7 +29223,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V577*/ meltfptr[576]); - MELT_LOCATION ("warmelt-outobj.melt:4042:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29207,7 +29236,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V579*/ meltfptr[578])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJEXPV__V114*/ meltfptr[113]); - MELT_LOCATION ("warmelt-outobj.melt:4042:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29220,7 +29249,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V579*/ meltfptr[578])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:4042:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29233,7 +29262,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V579*/ meltfptr[578])->tabval[2] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:4042:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29245,7 +29274,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V579*/ meltfptr[578])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:4042:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29258,7 +29287,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V579*/ meltfptr[578])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4042:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4050:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V579*/ meltfptr[578]); @@ -29297,7 +29326,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V581*/ meltfptr[580]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29311,7 +29340,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJLOCATEDEXPV__V115*/ meltfptr[114]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29325,7 +29354,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29339,7 +29368,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[2] = (melt_ptr_t) ( /*_.CTYPE_VOID__V116*/ meltfptr[115]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29351,7 +29380,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29363,7 +29392,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29377,7 +29406,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[5] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29389,7 +29418,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29403,7 +29432,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V583*/ meltfptr[582])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4058:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4066:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V583*/ meltfptr[582]); @@ -29461,7 +29490,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V587*/ meltfptr[586]); - MELT_LOCATION ("warmelt-outobj.melt:4097:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29475,7 +29504,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V589*/ meltfptr[588])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-outobj.melt:4097:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29487,7 +29516,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V589*/ meltfptr[588])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:4097:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29501,7 +29530,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V589*/ meltfptr[588])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4097:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4105:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V589*/ meltfptr[588]); @@ -29521,7 +29550,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V590*/ meltfptr[589]); - MELT_LOCATION ("warmelt-outobj.melt:4110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29534,7 +29563,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V591*/ meltfptr[590])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:4110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29546,7 +29575,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V591*/ meltfptr[590])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:4110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29559,7 +29588,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V591*/ meltfptr[590])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4110:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4118:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V591*/ meltfptr[590]); @@ -29594,7 +29623,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V594*/ meltfptr[593]); - MELT_LOCATION ("warmelt-outobj.melt:4130:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29607,7 +29636,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V595*/ meltfptr[594])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_OBJFINALRETURN__V117*/ meltfptr[116]); - MELT_LOCATION ("warmelt-outobj.melt:4130:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29619,7 +29648,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V595*/ meltfptr[594])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V212*/ meltfptr[211]); - MELT_LOCATION ("warmelt-outobj.melt:4130:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29631,7 +29660,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V595*/ meltfptr[594])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:4130:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29644,7 +29673,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V595*/ meltfptr[594])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4130:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4138:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V595*/ meltfptr[594]); @@ -29683,7 +29712,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V597*/ meltfptr[596]); - MELT_LOCATION ("warmelt-outobj.melt:4143:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29697,7 +29726,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V599*/ meltfptr[598])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:4143:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29711,7 +29740,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V599*/ meltfptr[598])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4143:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29725,7 +29754,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V599*/ meltfptr[598])->tabval[2] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-outobj.melt:4143:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29739,7 +29768,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V599*/ meltfptr[598])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V118*/ meltfptr[117]); - MELT_LOCATION ("warmelt-outobj.melt:4143:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29753,7 +29782,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V599*/ meltfptr[598])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V56*/ meltfptr[55]); - MELT_LOCATION ("warmelt-outobj.melt:4143:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4151:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V599*/ meltfptr[598]); @@ -29792,7 +29821,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V601*/ meltfptr[600]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29806,7 +29835,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29818,7 +29847,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V600*/ meltfptr[599]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29832,7 +29861,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[2] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29846,7 +29875,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_FIELD__V105*/ meltfptr[104]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29860,7 +29889,7 @@ meltmod__warmelt_outobj__initialmeltchunk_8 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -29885,7 +29914,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29899,7 +29928,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -29913,7 +29942,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V603*/ meltfptr[602])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-outobj.melt:4160:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4168:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V603*/ meltfptr[602]); @@ -29971,7 +30000,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V607*/ meltfptr[606]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -29989,7 +30018,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALSTR___V610*/ meltfptr[609]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30024,7 +30053,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V611*/ meltfptr[610]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30042,7 +30071,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30060,7 +30089,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALSTR___V613*/ meltfptr[612]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30078,12 +30107,12 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V612*/ meltfptr[611]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30101,7 +30130,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALSTR___V615*/ meltfptr[614]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30119,12 +30148,12 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30142,7 +30171,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALSTR___V617*/ meltfptr[616]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30160,12 +30189,12 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V616*/ meltfptr[615]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30183,7 +30212,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALSTR___V619*/ meltfptr[618]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30201,7 +30230,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V618*/ meltfptr[617]); @@ -30265,7 +30294,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V620*/ meltfptr[619]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30283,7 +30312,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALTUP___V620*/ meltfptr[619]); - MELT_LOCATION ("warmelt-outobj.melt:4224:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4232:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V609*/ meltfptr[608]); @@ -30383,7 +30412,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V629*/ meltfptr[628]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30420,7 +30449,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V634*/ meltfptr[633]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30438,7 +30467,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V634*/ meltfptr[633]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30456,7 +30485,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V633*/ meltfptr[632]); @@ -30480,7 +30509,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V637*/ meltfptr[636]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30498,7 +30527,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V637*/ meltfptr[636]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30516,7 +30545,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V636*/ meltfptr[635]); @@ -30540,7 +30569,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V640*/ meltfptr[639]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30558,7 +30587,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V640*/ meltfptr[639]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30576,7 +30605,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V639*/ meltfptr[638]); @@ -30600,7 +30629,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V643*/ meltfptr[642]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30618,7 +30647,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V643*/ meltfptr[642]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30636,7 +30665,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V642*/ meltfptr[641]); @@ -30700,7 +30729,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V645*/ meltfptr[644]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30718,7 +30747,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALTUP___V645*/ meltfptr[644]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30865,7 +30894,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V651*/ meltfptr[650]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -30883,12 +30912,12 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALTUP___V651*/ meltfptr[650]); - MELT_LOCATION ("warmelt-outobj.melt:4233:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V631*/ meltfptr[630]); - MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -30901,7 +30930,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V652*/ meltfptr[651])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -30914,7 +30943,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V652*/ meltfptr[651])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -30927,7 +30956,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V652*/ meltfptr[651])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -30939,7 +30968,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V652*/ meltfptr[651])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:4241:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4249:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V652*/ meltfptr[651]); @@ -30959,7 +30988,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V653*/ meltfptr[652]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -30973,7 +31002,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -30987,7 +31016,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31001,7 +31030,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31015,7 +31044,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31029,7 +31058,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31043,7 +31072,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[5] = (melt_ptr_t) ( /*_.STRING4OUT__V120*/ meltfptr[119]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31057,7 +31086,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V655*/ meltfptr[654]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31071,7 +31100,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V656*/ meltfptr[655]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31085,7 +31114,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[8] = (melt_ptr_t) ( /*_.VALSTR___V657*/ meltfptr[656]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31099,7 +31128,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[9] = (melt_ptr_t) ( /*_.VALSTR___V658*/ meltfptr[657]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31113,7 +31142,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[10] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31127,7 +31156,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[11] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31141,7 +31170,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V56*/ meltfptr[55]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -31153,7 +31182,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V654*/ meltfptr[653])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:4275:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4283:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V654*/ meltfptr[653]); @@ -31249,7 +31278,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V666*/ meltfptr[665]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31267,7 +31296,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31285,7 +31314,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V668*/ meltfptr[667]); @@ -31309,7 +31338,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V669*/ meltfptr[668]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31327,7 +31356,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31345,7 +31374,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V671*/ meltfptr[670]); @@ -31369,7 +31398,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V672*/ meltfptr[671]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31387,7 +31416,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( /*_.VALDATA___V672*/ meltfptr[671]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31405,7 +31434,7 @@ meltmod__warmelt_outobj__initialmeltchunk_9 (struct frame_start_module_melt_st (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V674*/ meltfptr[673]); @@ -31443,7 +31472,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V675*/ meltfptr[674]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31461,7 +31490,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct (melt_ptr_t) ( /*_.VALDATA___V675*/ meltfptr[674]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31479,7 +31508,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V677*/ meltfptr[676]); @@ -31503,7 +31532,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V678*/ meltfptr[677]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31521,7 +31550,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct (melt_ptr_t) ( /*_.VALDATA___V678*/ meltfptr[677]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31539,7 +31568,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V680*/ meltfptr[679]); @@ -31617,7 +31646,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V681*/ meltfptr[680]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -31635,12 +31664,12 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct (melt_ptr_t) ( /*_.VALSTR___V683*/ meltfptr[682]); - MELT_LOCATION ("warmelt-outobj.melt:4679:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4687:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V682*/ meltfptr[681]); - MELT_LOCATION ("warmelt-outobj.melt:4688:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31653,7 +31682,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V684*/ meltfptr[683])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4688:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31666,7 +31695,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V684*/ meltfptr[683])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:4688:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31679,7 +31708,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V684*/ meltfptr[683])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4688:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31694,7 +31723,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V684*/ meltfptr[683])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_GENERATOR_DEVICE__V123*/ meltfptr[122]); - MELT_LOCATION ("warmelt-outobj.melt:4688:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31707,7 +31736,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V684*/ meltfptr[683])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4688:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4696:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V684*/ meltfptr[683]); @@ -31765,7 +31794,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V688*/ meltfptr[687]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31779,7 +31808,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31793,7 +31822,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V60*/ meltfptr[59]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31807,7 +31836,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V124*/ meltfptr[123]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31821,7 +31850,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31835,7 +31864,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[4] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31849,7 +31878,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31863,7 +31892,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31877,7 +31906,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V690*/ meltfptr[689])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:4708:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4716:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V690*/ meltfptr[689]); @@ -31916,7 +31945,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V692*/ meltfptr[691]); - MELT_LOCATION ("warmelt-outobj.melt:4734:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31930,7 +31959,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V694*/ meltfptr[693])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4734:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31944,7 +31973,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V694*/ meltfptr[693])->tabval[1] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4734:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31958,7 +31987,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V694*/ meltfptr[693])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4734:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4742:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V694*/ meltfptr[693]); @@ -31978,7 +32007,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -31991,7 +32020,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32004,7 +32033,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V125*/ meltfptr[124]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32019,7 +32048,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_GENERATOR_DEVICE__V123*/ meltfptr[122]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32032,7 +32061,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32045,7 +32074,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32058,7 +32087,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32072,7 +32101,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V126*/ meltfptr[125]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32085,7 +32114,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V127*/ meltfptr[126]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32098,7 +32127,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[8] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32110,7 +32139,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V691*/ meltfptr[690]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32124,7 +32153,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[10] = (melt_ptr_t) ( /*_.CTYPE_VOID__V116*/ meltfptr[115]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32138,7 +32167,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32150,7 +32179,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32162,7 +32191,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V696*/ meltfptr[695])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-outobj.melt:4758:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4766:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V696*/ meltfptr[695]); @@ -32239,7 +32268,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V702*/ meltfptr[701]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32252,7 +32281,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32265,7 +32294,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V71*/ meltfptr[70]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32280,7 +32309,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_GENERATOR_DEVICE__V123*/ meltfptr[122]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32293,7 +32322,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32306,7 +32335,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32319,7 +32348,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32332,7 +32361,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V127*/ meltfptr[126]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32345,7 +32374,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32358,7 +32387,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[8] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32371,7 +32400,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32385,7 +32414,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V128*/ meltfptr[127]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32397,7 +32426,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32409,7 +32438,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V691*/ meltfptr[690]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32421,7 +32450,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32435,7 +32464,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V704*/ meltfptr[703])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V124*/ meltfptr[123]); - MELT_LOCATION ("warmelt-outobj.melt:4818:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4826:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V704*/ meltfptr[703]); @@ -32474,7 +32503,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V706*/ meltfptr[705]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32487,7 +32516,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32500,7 +32529,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V129*/ meltfptr[128]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32515,7 +32544,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_GENERATOR_DEVICE__V123*/ meltfptr[122]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32528,7 +32557,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32541,7 +32570,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32554,7 +32583,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32567,7 +32596,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V130*/ meltfptr[129]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32581,7 +32610,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V131*/ meltfptr[130]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32594,7 +32623,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V127*/ meltfptr[126]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32607,7 +32636,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32620,7 +32649,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[10] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32633,7 +32662,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32645,7 +32674,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V691*/ meltfptr[690]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32657,7 +32686,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32669,7 +32698,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32682,7 +32711,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V124*/ meltfptr[123]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32695,7 +32724,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[16] = (melt_ptr_t) ( /*_.VALSTR___V709*/ meltfptr[708]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32708,7 +32737,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V708*/ meltfptr[707])->tabval[17] = (melt_ptr_t) ( /*_.VALSTR___V710*/ meltfptr[709]); - MELT_LOCATION ("warmelt-outobj.melt:4886:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4894:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V708*/ meltfptr[707]); @@ -32785,7 +32814,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V716*/ meltfptr[715]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32799,7 +32828,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32813,7 +32842,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32827,7 +32856,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32841,7 +32870,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[3] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32855,7 +32884,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32869,7 +32898,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SOURCE_GENERATOR_DEVICE__V123*/ meltfptr[122]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -32881,7 +32910,7 @@ meltmod__warmelt_outobj__initialmeltchunk_10 (struct ((meltroutine_ptr_t) /*_.VALROUT___V718*/ meltfptr[717])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V682*/ meltfptr[681]); - MELT_LOCATION ("warmelt-outobj.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4979:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V718*/ meltfptr[717]); @@ -32915,7 +32944,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct /*touch:DATACLOSURE_*/ meltgc_touch ( /*_.VALCLO___V719*/ meltfptr[718]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32929,7 +32958,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32943,7 +32972,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32957,7 +32986,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NORMALIZATION_CONTEXT__V132*/ meltfptr[131]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32971,7 +33000,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V133*/ meltfptr[132]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -32985,7 +33014,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33001,7 +33030,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V134*/ meltfptr[133]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33015,7 +33044,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V721*/ meltfptr[720]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33029,7 +33058,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[7] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V135*/ meltfptr[134]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33043,7 +33072,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_NREP_INITPROC__V136*/ meltfptr[135]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33057,7 +33086,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[9] = (melt_ptr_t) ( /*_.LIST_EVERY__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33071,7 +33100,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[10] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33085,7 +33114,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33099,7 +33128,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_SOURCE_COMMENT__V137*/ meltfptr[136]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33113,7 +33142,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[13] = (melt_ptr_t) ( /*_.NORMAL_EXP__V138*/ meltfptr[137]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33127,7 +33156,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_NREP__V107*/ meltfptr[106]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33141,7 +33170,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_NREP_ANYPROC__V139*/ meltfptr[138]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33155,7 +33184,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[16] = (melt_ptr_t) ( /*_.WRAP_NORMAL_LET1__V140*/ meltfptr[139]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33168,7 +33197,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33181,7 +33210,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33194,7 +33223,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_COMMENT__V137*/ meltfptr[136]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33207,7 +33236,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[3] = (melt_ptr_t) ( /*_.NORMAL_EXP__V138*/ meltfptr[137]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33220,7 +33249,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NREP__V107*/ meltfptr[106]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33233,7 +33262,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NREP_ANYPROC__V139*/ meltfptr[138]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33246,12 +33275,12 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V722*/ meltfptr[721])->tabval[6] = (melt_ptr_t) ( /*_.WRAP_NORMAL_LET1__V140*/ meltfptr[139]); - MELT_LOCATION ("warmelt-outobj.melt:5087:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5095:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V722*/ meltfptr[721]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33265,7 +33294,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[17] = (melt_ptr_t) ( /*_.VALROUT___V722*/ meltfptr[721]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33279,7 +33308,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[18] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33293,7 +33322,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V127*/ meltfptr[126]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33307,7 +33336,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[20] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33321,7 +33350,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[21] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33335,7 +33364,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[22] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V56*/ meltfptr[55]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33349,7 +33378,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[23] = (melt_ptr_t) ( /*_.ADD2OUT__V49*/ meltfptr[48]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33363,7 +33392,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[24] = (melt_ptr_t) ( /*_.CLASS_SOURCE_CHEADER__V141*/ meltfptr[140]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33377,7 +33406,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[25] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V122*/ meltfptr[121]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33389,7 +33418,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[26] = (melt_ptr_t) ( /*_.VALCLO___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33403,7 +33432,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[27] = (melt_ptr_t) ( /*_.CLASS_NREP_ANYPROC__V139*/ meltfptr[138]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33417,7 +33446,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[28] = (melt_ptr_t) ( /*_.COMPILE2OBJ_PROCEDURE__V142*/ meltfptr[141]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33431,7 +33460,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[29] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5168:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33444,7 +33473,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V723*/ meltfptr[722])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_NREP_ANYPROC__V139*/ meltfptr[138]); - MELT_LOCATION ("warmelt-outobj.melt:5168:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33458,7 +33487,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V723*/ meltfptr[722])->tabval[1] = (melt_ptr_t) ( /*_.COMPILE2OBJ_PROCEDURE__V142*/ meltfptr[141]); - MELT_LOCATION ("warmelt-outobj.melt:5168:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33471,12 +33500,12 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V723*/ meltfptr[722])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5168:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V723*/ meltfptr[722]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33490,7 +33519,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[30] = (melt_ptr_t) ( /*_.VALROUT___V723*/ meltfptr[722]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33504,7 +33533,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[31] = (melt_ptr_t) ( /*_.COMPILE2OBJ_INITPROC__V143*/ meltfptr[142]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33518,7 +33547,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[32] = (melt_ptr_t) ( /*_.CLASS_PROCROUTINEOBJ__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33530,7 +33559,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[33] = (melt_ptr_t) ( /*_.VALCLO___V653*/ meltfptr[652]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33542,7 +33571,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[34] = (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33556,7 +33585,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[35] = (melt_ptr_t) ( /*_.OUTPUT_C_CODE__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33568,7 +33597,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[36] = (melt_ptr_t) ( /*_.VALCLO___V719*/ meltfptr[718]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33580,7 +33609,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[37] = (melt_ptr_t) ( /*_.VALCLO___V604*/ meltfptr[603]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33592,7 +33621,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[38] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33606,7 +33635,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[39] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -33618,7 +33647,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[40] = (melt_ptr_t) ( /*_.VALCLO___V659*/ meltfptr[658]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33632,7 +33661,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V720*/ meltfptr[719])->tabval[41] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:5033:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5041:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V720*/ meltfptr[719]); @@ -33880,7 +33909,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V747*/ meltfptr[746]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33893,7 +33922,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33906,7 +33935,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V144*/ meltfptr[143]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33919,7 +33948,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V119*/ meltfptr[118]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33932,7 +33961,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33945,7 +33974,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MAP_STRINGS__V145*/ meltfptr[144]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33958,7 +33987,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V40*/ meltfptr[39]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33971,7 +34000,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_LIST__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33984,7 +34013,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[7] = (melt_ptr_t) ( /*_.CREATE_NORMCONTEXT__V146*/ meltfptr[145]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -33998,7 +34027,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_NORMALIZATION_CONTEXT__V132*/ meltfptr[131]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -34012,7 +34041,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[9] = (melt_ptr_t) ( /*_.MACROEXPAND_TOPLEVEL_LIST__V147*/ meltfptr[146]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -34025,7 +34054,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[10] = (melt_ptr_t) ( /*_.MACROEXPAND_1__V148*/ meltfptr[147]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -34037,7 +34066,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V749*/ meltfptr[748])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V724*/ meltfptr[723]); - MELT_LOCATION ("warmelt-outobj.melt:5339:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V749*/ meltfptr[748]); @@ -34171,7 +34200,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V761*/ meltfptr[760]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -34208,7 +34237,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V766*/ meltfptr[765]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -34226,7 +34255,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct (melt_ptr_t) ( /*_.VALDATA___V766*/ meltfptr[765]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -34244,7 +34273,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_CSTRING)))); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V765*/ meltfptr[764]); @@ -34266,7 +34295,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V768*/ meltfptr[767]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -34284,7 +34313,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct (melt_ptr_t) ( /*_.VALTUP___V768*/ meltfptr[767]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -34347,7 +34376,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V771*/ meltfptr[770]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -34365,12 +34394,12 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct (melt_ptr_t) ( /*_.VALTUP___V771*/ meltfptr[770]); - MELT_LOCATION ("warmelt-outobj.melt:5391:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5399:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V763*/ meltfptr[762]); - MELT_LOCATION ("warmelt-outobj.melt:5402:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -34384,7 +34413,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V772*/ meltfptr[771])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7]); - MELT_LOCATION ("warmelt-outobj.melt:5402:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -34398,7 +34427,7 @@ meltmod__warmelt_outobj__initialmeltchunk_11 (struct ((meltroutine_ptr_t) /*_.VALROUT___V772*/ meltfptr[771])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V144*/ meltfptr[143]); - MELT_LOCATION ("warmelt-outobj.melt:5402:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -34426,7 +34455,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-outobj.melt:5402:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -34440,7 +34469,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct ((meltroutine_ptr_t) /*_.VALROUT___V772*/ meltfptr[771])->tabval[3] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V149*/ meltfptr[148]); - MELT_LOCATION ("warmelt-outobj.melt:5402:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -34452,7 +34481,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct ((meltroutine_ptr_t) /*_.VALROUT___V772*/ meltfptr[771])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V750*/ meltfptr[749]); - MELT_LOCATION ("warmelt-outobj.melt:5402:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5410:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V772*/ meltfptr[771]); @@ -35581,7 +35610,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V817*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:1600:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:1608:/ initchunk"); /*^block */ /*anyblock */ { @@ -35615,7 +35644,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V818*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2040:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2048:/ initchunk"); /*^block */ /*anyblock */ { @@ -35649,7 +35678,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V819*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2106:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2114:/ initchunk"); /*^block */ /*anyblock */ { @@ -35682,7 +35711,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V820*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2188:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2196:/ initchunk"); /*^block */ /*anyblock */ { @@ -35716,7 +35745,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V821*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2220:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2228:/ initchunk"); /*^block */ /*anyblock */ { @@ -35749,7 +35778,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V822*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2238:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2246:/ initchunk"); /*^block */ /*anyblock */ { @@ -35782,7 +35811,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V823*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2258:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2266:/ initchunk"); /*^block */ /*anyblock */ { @@ -35815,7 +35844,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V824*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2304:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2312:/ initchunk"); /*^block */ /*anyblock */ { @@ -35849,7 +35878,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V825*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2328:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2336:/ initchunk"); /*^block */ /*anyblock */ { @@ -35882,7 +35911,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V826*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2400:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2408:/ initchunk"); /*^block */ /*anyblock */ { @@ -35916,7 +35945,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V827*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2455:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2463:/ initchunk"); /*^block */ /*anyblock */ { @@ -35950,7 +35979,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V828*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2475:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2483:/ initchunk"); /*^block */ /*anyblock */ { @@ -35984,7 +36013,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V829*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2512:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2520:/ initchunk"); /*^block */ /*anyblock */ { @@ -36018,7 +36047,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V830*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2531:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2539:/ initchunk"); /*^block */ /*anyblock */ { @@ -36052,7 +36081,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V831*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2549:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2557:/ initchunk"); /*^block */ /*anyblock */ { @@ -36086,7 +36115,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V832*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2621:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2629:/ initchunk"); /*^block */ /*anyblock */ { @@ -36119,7 +36148,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V833*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2641:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2649:/ initchunk"); /*^block */ /*anyblock */ { @@ -36152,7 +36181,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V834*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2661:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2669:/ initchunk"); /*^block */ /*anyblock */ { @@ -36185,7 +36214,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V835*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2706:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2714:/ initchunk"); /*^block */ /*anyblock */ { @@ -36218,7 +36247,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V836*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2748:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2756:/ initchunk"); /*^block */ /*anyblock */ { @@ -36251,7 +36280,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V837*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2782:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2790:/ initchunk"); /*^block */ /*anyblock */ { @@ -36284,7 +36313,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V838*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2807:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2815:/ initchunk"); /*^block */ /*anyblock */ { @@ -36318,7 +36347,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V839*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2831:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2839:/ initchunk"); /*^block */ /*anyblock */ { @@ -36352,7 +36381,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V840*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2870:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2878:/ initchunk"); /*^block */ /*anyblock */ { @@ -36386,7 +36415,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V841*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:2905:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:2913:/ initchunk"); /*^block */ /*anyblock */ { @@ -36420,7 +36449,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V842*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3002:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3010:/ initchunk"); /*^block */ /*anyblock */ { @@ -36453,7 +36482,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V843*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3099:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3107:/ initchunk"); /*^block */ /*anyblock */ { @@ -36486,7 +36515,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V844*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3263:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3271:/ initchunk"); /*^block */ /*anyblock */ { @@ -36520,7 +36549,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V845*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3419:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3427:/ initchunk"); /*^block */ /*anyblock */ { @@ -36554,7 +36583,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V846*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3437:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3445:/ initchunk"); /*^block */ /*anyblock */ { @@ -36587,7 +36616,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V847*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3474:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3482:/ initchunk"); /*^block */ /*anyblock */ { @@ -36621,7 +36650,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V848*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3508:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3516:/ initchunk"); /*^block */ /*anyblock */ { @@ -36655,7 +36684,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V849*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3531:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3539:/ initchunk"); /*^block */ /*anyblock */ { @@ -36688,7 +36717,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V850*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3605:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3613:/ initchunk"); /*^block */ /*anyblock */ { @@ -36721,7 +36750,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V851*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3636:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3644:/ initchunk"); /*^block */ /*anyblock */ { @@ -36755,7 +36784,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V852*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3662:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3670:/ initchunk"); /*^block */ /*anyblock */ { @@ -36789,7 +36818,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V853*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3693:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3701:/ initchunk"); /*^block */ /*anyblock */ { @@ -36823,7 +36852,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V854*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3727:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3735:/ initchunk"); /*^block */ /*anyblock */ { @@ -36857,7 +36886,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V855*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3803:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3811:/ initchunk"); /*^block */ /*anyblock */ { @@ -36891,7 +36920,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V856*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3848:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3856:/ initchunk"); /*^block */ /*anyblock */ { @@ -36925,7 +36954,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V857*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3883:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3891:/ initchunk"); /*^block */ /*anyblock */ { @@ -36959,7 +36988,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V858*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3923:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3931:/ initchunk"); /*^block */ /*anyblock */ { @@ -36993,7 +37022,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V859*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3963:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:3971:/ initchunk"); /*^block */ /*anyblock */ { @@ -37027,7 +37056,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V860*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:3996:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4004:/ initchunk"); /*^block */ /*anyblock */ { @@ -37061,7 +37090,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V861*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4039:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4047:/ initchunk"); /*^block */ /*anyblock */ { @@ -37095,7 +37124,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V862*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4055:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4063:/ initchunk"); /*^block */ /*anyblock */ { @@ -37128,7 +37157,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V863*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4094:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4102:/ initchunk"); /*^block */ /*anyblock */ { @@ -37162,7 +37191,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V864*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4105:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4113:/ initchunk"); /*^block */ /*anyblock */ { @@ -37196,7 +37225,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V865*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4118:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4126:/ initchunk"); /*^block */ /*anyblock */ { @@ -37229,7 +37258,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V866*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4127:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4135:/ initchunk"); /*^block */ /*anyblock */ { @@ -37262,7 +37291,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V867*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4139:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4147:/ initchunk"); /*^block */ /*anyblock */ { @@ -37296,7 +37325,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V868*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4704:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4712:/ initchunk"); /*^block */ /*anyblock */ { @@ -37330,7 +37359,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V869*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4819:/ initchunk"); /*^block */ /*anyblock */ { @@ -37363,7 +37392,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V870*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4882:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4890:/ initchunk"); /*^block */ /*anyblock */ { @@ -37396,7 +37425,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V871*/ meltfptr[787] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:4968:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:4976:/ initchunk"); /*^block */ /*anyblock */ { @@ -37429,7 +37458,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.INSTALL_METHOD__V872*/ meltfptr[788] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:5526:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5534:/ initchunk"); /*^block */ /*anyblock */ { @@ -37581,7 +37610,7 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct /*clear *//*_.VALUEXPORTER___V873*/ meltfptr[789] = 0; } - MELT_LOCATION ("warmelt-outobj.melt:5536:/ initchunk"); + MELT_LOCATION ("warmelt-outobj.melt:5544:/ initchunk"); /*^block */ /*anyblock */ { @@ -37734,7 +37763,8 @@ meltmod__warmelt_outobj__initialmeltchunk_12 (struct meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "bad MELT FRESH_ENV @%p in system data <%s:%d>", - ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; + (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, + __LINE__);;; /*^apply */ /*apply */ @@ -38484,7 +38514,7 @@ meltmod__warmelt_outobj__forward_or_mark_module_start_frame (struct int ix = 0; initial_frame_st *meltframptr_ = (initial_frame_st *) fp; melt_assertmsg ("check module frame", - meltframptr_->mcfr_nbvar == /*minihash */ -3009); + meltframptr_->mcfr_nbvar == /*minihash */ -3270); if (!marking && melt_is_forwarding) { dbgprintf |