diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-04 11:13:15 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-04 11:13:15 +0000 |
| commit | 7cec80a963bd1c981a0a87bce26ec031064338f0 (patch) | |
| tree | c5c3c38e44c54684bcf6fd9a4cd33b7a8b3a5970 /gcc/melt/generated/warmelt-modes+02.cc | |
| parent | 2c7aa709f4ff1d87253dbb49117bcc611c1a596c (diff) | |
| download | gcc-7cec80a963bd1c981a0a87bce26ec031064338f0.tar.gz | |
2014-11-04 Basile Starynkevitch <basile@starynkevitch.net>
* melt/generated/*: Regenerate all.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@217075 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-modes+02.cc')
| -rw-r--r-- | gcc/melt/generated/warmelt-modes+02.cc | 10520 |
1 files changed, 6943 insertions, 3577 deletions
diff --git a/gcc/melt/generated/warmelt-modes+02.cc b/gcc/melt/generated/warmelt-modes+02.cc index 8fe69b16aed..10d6e3fe6d5 100644 --- a/gcc/melt/generated/warmelt-modes+02.cc +++ b/gcc/melt/generated/warmelt-modes+02.cc @@ -39,8 +39,8 @@ MELT_EXTERN const char meltrun_used_md5_melt_f2[] = MELT_RUN_HASHMD5 /* from mel -class Melt_InitialClassyFrame_WARMELTmiMODES_h258782784; // forward declaration fromline 6691 -typedef Melt_InitialClassyFrame_WARMELTmiMODES_h258782784 Melt_InitialFrame; +class Melt_InitialClassyFrame_WARMELTmiMODES_h317714081; // forward declaration fromline 6691 +typedef Melt_InitialClassyFrame_WARMELTmiMODES_h317714081 Melt_InitialFrame; /**** no MELT module variables ****/ /*** 4 MELT called hook declarations ***/ @@ -438,7 +438,7 @@ MELT_EXTERN const char melt_module_is_gpl_compatible[]; /*declare opaque initial frame: */ -typedef Melt_InitialClassyFrame_WARMELTmiMODES_h258782784 /*opaqueinitialclassy*/ meltinitial_frame_t; +typedef Melt_InitialClassyFrame_WARMELTmiMODES_h317714081 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ @@ -547,7 +547,8 @@ meltrout_47_WARMELTmiMODES_NOP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me /* end of frame for routine meltrout_47_WARMELTmiMODES_NOP_DOCMD fromline 1756 */ - /* classy proc frame meltrout_47_WARMELTmiMODES_NOP_DOCMD */ MeltFrame_meltrout_47_WARMELTmiMODES_NOP_DOCMD + /* classy proc frame meltrout_47_WARMELTmiMODES_NOP_DOCMD */ + MeltFrame_meltrout_47_WARMELTmiMODES_NOP_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_47_WARMELTmiMODES_NOP_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -560,7 +561,8 @@ meltrout_47_WARMELTmiMODES_NOP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me #define meltframe meltfram__ melt_trace_start("NOP_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -570,12 +572,14 @@ meltrout_47_WARMELTmiMODES_NOP_DOCMD(meltclosure_ptr_t meltclosp_, melt_ptr_t me /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1973:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -607,7 +611,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -616,7 +621,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:1974:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -649,16 +655,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "in nop_docmd cmd="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CMD__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1974:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -671,7 +681,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:1974:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -680,9 +691,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -708,7 +721,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:1975:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_1_TRUE*/ meltfrout->tabval[1]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_1_TRUE*/ meltfrout->tabval[1]);; { MELT_LOCATION("warmelt-modes.melt:1975:/ locexp"); @@ -723,14 +737,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:1973:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RETURN___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:1973:/ locexp"); @@ -745,11 +761,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.RETURN___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.RETURN___V6*/ + meltfptr[4] = 0 ; } ; @@ -831,7 +849,8 @@ meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC(meltclosure_ptr /* end of frame for routine meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC fromline 1756 */ - /* classy proc frame meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC */ MeltFrame_meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC + /* classy proc frame meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC */ + MeltFrame_meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC fromline 1785*/ #if ENABLE_CHECKING @@ -844,7 +863,8 @@ meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC(meltclosure_ptr #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -854,26 +874,30 @@ meltrout_48_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC(meltclosure_ptr /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:1989:/ getarg"); - /*_.CTYGTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYGTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTARG__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTARG__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -905,7 +929,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -914,7 +939,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:1990:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -947,16 +973,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_enum_objmagic start outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1990:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -969,7 +999,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:1990:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -978,9 +1009,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1003,9 +1036,11 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:1991:/ quasiblock"); - /*_#CUROBJMAGIC__L3*/ meltfnum[1] = 20000;; + /*_#CUROBJMAGIC__L3*/ + meltfnum[1] = 20000;; /*^compute*/ - /*_#COUNTOBJMAGIC__L4*/ meltfnum[0] = 0;; + /*_#COUNTOBJMAGIC__L4*/ + meltfnum[0] = 0;; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:1996:/ cppif.then"); @@ -1016,10 +1051,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L5*/ meltfnum[4] = + /*_#IS_MULTIPLE__L5*/ + meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.CTYGTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:1996:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L5*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -1048,25 +1085,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1996; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYGTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1996:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1996:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1084,10 +1127,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L6*/ meltfnum[4] = + /*_#IS_MULTIPLE__L6*/ + meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:1997:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -1116,25 +1161,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1997; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1997:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1997:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L6*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1152,10 +1203,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L7*/ meltfnum[4] = + /*_#IS_STRBUF__L7*/ + meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:1998:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L7*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L7*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -1184,25 +1237,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 1998; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1998:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:1998:/ clear"); - /*clear*/ /*_#IS_STRBUF__L7*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_STRBUF__L7*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1231,8 +1290,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2004:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); } ; @@ -1244,7 +1304,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2011:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELTOBMAG__FIRST /* first valid object magic */ =")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELTOBMAG__FIRST /* first valid object magic */ =")); } ; @@ -1256,7 +1317,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2013:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); } ; @@ -1274,7 +1336,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2016:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* value descriptor object magic */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* value descriptor object magic */")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -1309,7 +1372,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1318,7 +1382,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2020:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1355,16 +1420,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " vix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#VIX__L8*/ meltfnum[4]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2020:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -1377,7 +1446,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2020:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1386,9 +1456,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1418,10 +1490,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[9] = + /*_#IS_A__L11*/ + meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:2022:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[5] = (/*nil*/NULL);; @@ -1450,25 +1524,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2022; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V17*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2022:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2022:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1485,10 +1565,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2024:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*valdesc #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*valdesc #")); } ; - /*_#plI__L12*/ meltfnum[8] = + /*_#plI__L12*/ + meltfnum[8] = ((1) + (/*_#VIX__L8*/ meltfnum[4]));; { @@ -1499,11 +1581,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2026:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2027:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -1514,7 +1598,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V23*/ meltfptr[21] = slot; + /*_.NAMED_NAME__V23*/ + meltfptr[21] = slot; }; ; } @@ -1534,7 +1619,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2028:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -1544,7 +1630,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2030:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -1555,7 +1642,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5] = slot; + /*_.VALDESC_OBJMAGIC__V24*/ + meltfptr[5] = slot; }; ; } @@ -1568,14 +1656,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2030:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5]))); } ; { MELT_LOCATION("warmelt-modes.melt:2031:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*valmagic*/ =")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*valmagic*/ =")); } ; @@ -1587,7 +1677,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2033:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); } ; @@ -1596,39 +1687,53 @@ meltlab_endgetargs: meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (2), 0); } ; - /*_#plI__L13*/ meltfnum[9] = + /*_#plI__L13*/ + meltfnum[9] = ((1) + (/*_#CUROBJMAGIC__L3*/ meltfnum[1]));; MELT_LOCATION("warmelt-modes.melt:2035:/ compute"); - /*_#CUROBJMAGIC__L3*/ meltfnum[1] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[9];; - /*_#plI__L15*/ meltfnum[14] = + /*_#CUROBJMAGIC__L3*/ + meltfnum[1] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[9];; + /*_#plI__L15*/ + meltfnum[14] = ((/*_#COUNTOBJMAGIC__L4*/ meltfnum[0]) + (1));; MELT_LOCATION("warmelt-modes.melt:2036:/ compute"); - /*_#COUNTOBJMAGIC__L4*/ meltfnum[0] = /*_#SETQ___L16*/ meltfnum[15] = /*_#plI__L15*/ meltfnum[14];; + /*_#COUNTOBJMAGIC__L4*/ + meltfnum[0] = /*_#SETQ___L16*/ meltfnum[15] = /*_#plI__L15*/ meltfnum[14];; if (/*_#VIX__L8*/ meltfnum[4]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2017:/ clear"); - /*clear*/ /*_.CURVALDESC__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURVALDESC__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#VIX__L8*/ meltfnum[4] = 0 ; + /*clear*/ /*_#VIX__L8*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#plI__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5] = 0 ; + /*clear*/ /*_.VALDESC_OBJMAGIC__V24*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#plI__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#SETQ___L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#plI__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#SETQ___L16*/ + meltfnum[15] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -1640,7 +1745,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2040:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* ctype gty object magic */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* ctype gty object magic */")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -1675,7 +1781,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1684,7 +1791,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2044:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1721,16 +1829,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " tix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#TIX__L17*/ meltfnum[16]; - /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2044:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ + meltfptr[26] = 0 ; } ; } @@ -1743,7 +1855,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2044:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -1752,9 +1865,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1784,10 +1899,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ meltfnum[18] = + /*_#IS_A__L20*/ + meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:2046:/ cond"); - /*cond*/ if (/*_#IS_A__L20*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_A__L20*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[25] = (/*nil*/NULL);; @@ -1816,25 +1933,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2046; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V25*/ meltfptr[24]; - /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V29*/ meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; + /*_._IFELSE___V29*/ + meltfptr[25] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2046:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ + meltfptr[29] = 0 ; } ; } ; - /*_.IFCPP___V28*/ meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[25];; + /*_.IFCPP___V28*/ + meltfptr[26] = /*_._IFELSE___V29*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2046:/ clear"); - /*clear*/ /*_#IS_A__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_A__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V29*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IFELSE___V29*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1851,10 +1974,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2048:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctype magic #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctype magic #")); } ; - /*_#plI__L21*/ meltfnum[17] = + /*_#plI__L21*/ + meltfnum[17] = ((1) + (/*_#TIX__L17*/ meltfnum[16]));; { @@ -1865,11 +1990,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2050:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2051:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -1880,7 +2007,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V31*/ meltfptr[29] = slot; + /*_.NAMED_NAME__V31*/ + meltfptr[29] = slot; }; ; } @@ -1900,7 +2028,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2052:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -1910,7 +2039,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2054:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -1921,7 +2051,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[25] = slot; + /*_.CTYPG_BOXEDMAGIC__V32*/ + meltfptr[25] = slot; }; ; } @@ -1934,14 +2065,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2054:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[25]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-modes.melt:2055:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*boxedmagic*/ =")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*boxedmagic*/ =")); } ; @@ -1953,7 +2086,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2057:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); } ; @@ -1963,7 +2097,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2059:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -1974,7 +2109,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V25*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32] = slot; + /*_.CTYPG_MAPMAGIC__V33*/ + meltfptr[32] = slot; }; ; } @@ -1987,17 +2123,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2059:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32]))); } ; { MELT_LOCATION("warmelt-modes.melt:2060:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*mapmagic*/ =")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*mapmagic*/ =")); } ; - /*_#plI__L22*/ meltfnum[18] = + /*_#plI__L22*/ + meltfnum[18] = ((/*_#CUROBJMAGIC__L3*/ meltfnum[1]) + (1));; { @@ -2008,46 +2147,63 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2062:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ",")); } ; - /*_#plI__L23*/ meltfnum[22] = + /*_#plI__L23*/ + meltfnum[22] = ((/*_#CUROBJMAGIC__L3*/ meltfnum[1]) + (2));; MELT_LOCATION("warmelt-modes.melt:2063:/ compute"); - /*_#CUROBJMAGIC__L3*/ meltfnum[1] = /*_#SETQ___L24*/ meltfnum[23] = /*_#plI__L23*/ meltfnum[22];; - /*_#plI__L25*/ meltfnum[24] = + /*_#CUROBJMAGIC__L3*/ + meltfnum[1] = /*_#SETQ___L24*/ meltfnum[23] = /*_#plI__L23*/ meltfnum[22];; + /*_#plI__L25*/ + meltfnum[24] = ((/*_#COUNTOBJMAGIC__L4*/ meltfnum[0]) + (1));; MELT_LOCATION("warmelt-modes.melt:2064:/ compute"); - /*_#COUNTOBJMAGIC__L4*/ meltfnum[0] = /*_#SETQ___L26*/ meltfnum[25] = /*_#plI__L25*/ meltfnum[24];; + /*_#COUNTOBJMAGIC__L4*/ + meltfnum[0] = /*_#SETQ___L26*/ meltfnum[25] = /*_#plI__L25*/ meltfnum[24];; if (/*_#TIX__L17*/ meltfnum[16]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2041:/ clear"); - /*clear*/ /*_.CURCTYP__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CURCTYP__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#TIX__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; + /*clear*/ /*_.IFCPP___V28*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L21*/ meltfnum[17] = 0 ; + /*clear*/ /*_#plI__L21*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_.NAMED_NAME__V31*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDMAGIC__V32*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L22*/ meltfnum[18] = 0 ; + /*clear*/ /*_#plI__L22*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#plI__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#SETQ___L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L25*/ meltfnum[24] = 0 ; + /*clear*/ /*_#plI__L25*/ + meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#SETQ___L26*/ + meltfnum[25] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -2070,7 +2226,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L27*/ meltfnum[26] = + /*_#MELT_NEED_DBG__L27*/ + meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2079,7 +2236,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2066:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L27*/ meltfnum[26]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2112,16 +2270,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_objmagic end outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2066:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L28*/ meltfnum[27] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L28*/ + meltfnum[27] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -2134,7 +2296,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2066:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2143,9 +2306,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2174,7 +2339,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2068:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " MELTOBMAG__LAST }; /* end generated enum meltobmag_en */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " MELTOBMAG__LAST }; /* end generated enum meltobmag_en */")); } ; @@ -2186,7 +2352,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2070:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define MELT_COUNT_GENERATED_OBJMAGIC ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define MELT_COUNT_GENERATED_OBJMAGIC ")); } ; @@ -2204,7 +2371,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2073:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*** end from generate_runtypesupport_enum_objmagic **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*** end from generate_runtypesupport_enum_objmagic **/")); } ; @@ -2221,15 +2389,20 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:1991:/ clear"); - /*clear*/ /*_#CUROBJMAGIC__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#CUROBJMAGIC__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#COUNTOBJMAGIC__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#COUNTOBJMAGIC__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -2315,7 +2488,8 @@ meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY fromline 1756 */ - /* classy proc frame meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY */ MeltFrame_meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY + /* classy proc frame meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY */ + MeltFrame_meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY fromline 1785*/ #if ENABLE_CHECKING @@ -2328,7 +2502,8 @@ meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_GTY", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2338,26 +2513,30 @@ meltrout_49_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_GTY(meltclosure_ptr_t meltclo /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:2081:/ getarg"); - /*_.CTYGTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYGTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTARG__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTARG__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -2389,7 +2568,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2398,7 +2578,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2082:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2431,16 +2612,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_gty start outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2082:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -2453,7 +2638,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2082:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2462,9 +2648,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2494,10 +2682,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYGTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2083:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -2526,25 +2716,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2083; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYGTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2083:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2083:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2562,10 +2758,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2084:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -2594,25 +2792,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2084; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2084:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2084:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2630,10 +2834,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:2085:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -2662,25 +2868,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2085; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2085:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2085:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2703,7 +2915,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2089:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** generated by generate_runtypesupport_gty **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** generated by generate_runtypesupport_gty **/")); } ; @@ -2715,8 +2928,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2092:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); } ; @@ -2728,8 +2942,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2100:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])))); } ; @@ -2741,8 +2956,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2108:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_4*/ meltfrout->tabval[4])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_4*/ meltfrout->tabval[4])))); } ; @@ -2754,8 +2970,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2116:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_5*/ meltfrout->tabval[5])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_5*/ meltfrout->tabval[5])))); } ; @@ -2767,8 +2984,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2124:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); } ; @@ -2786,7 +3004,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2139:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* generated ctype gty structures */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* generated ctype gty structures */")); } ; @@ -2827,7 +3046,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2836,7 +3056,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2144:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2873,16 +3094,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L6*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2144:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -2895,7 +3120,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2144:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -2904,9 +3130,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2936,10 +3164,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[7] = + /*_#IS_A__L9*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-modes.melt:2145:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[5] = (/*nil*/NULL);; @@ -2968,25 +3198,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2145; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V17*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2145:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2145:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3009,10 +3245,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2148:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctypebox gtyctyp #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctypebox gtyctyp #")); } ; - /*_#plI__L10*/ meltfnum[1] = + /*_#plI__L10*/ + meltfnum[1] = ((1) + (/*_#IX__L6*/ meltfnum[0]));; { @@ -3023,11 +3261,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2150:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2151:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -3038,7 +3278,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V23*/ meltfptr[21] = slot; + /*_.NAMED_NAME__V23*/ + meltfptr[21] = slot; }; ; } @@ -3058,7 +3299,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2152:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -3070,11 +3312,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2154:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY (()) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY (()) ")); } ; MELT_LOCATION("warmelt-modes.melt:2155:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3085,7 +3329,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V24*/ meltfptr[5] = slot; + /*_.CTYPG_BOXEDSTRUCT__V24*/ + meltfptr[5] = slot; }; ; } @@ -3098,18 +3343,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2155:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V24*/ meltfptr[5]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V24*/ meltfptr[5]))); } ; { MELT_LOCATION("warmelt-modes.melt:2156:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " { /* when ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " { /* when ")); } ; MELT_LOCATION("warmelt-modes.melt:2157:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3120,7 +3368,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24] = slot; + /*_.CTYPG_BOXEDMAGIC__V25*/ + meltfptr[24] = slot; }; ; } @@ -3133,14 +3382,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2157:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24]))); } ; { MELT_LOCATION("warmelt-modes.melt:2158:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -3152,7 +3403,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2160:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t discr;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t discr;")); } ; @@ -3162,7 +3414,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2162:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -3173,7 +3426,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V26*/ meltfptr[25] = slot; + /*_.CTYPE_CNAME__V26*/ + meltfptr[25] = slot; }; ; } @@ -3186,14 +3440,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2162:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V26*/ meltfptr[25]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V26*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-modes.melt:2163:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " val;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " val;")); } ; @@ -3213,7 +3469,8 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[0].meltbp_cstring = "#ifndef MELT_BOGUS_GENGTYPE_4dot7 /* GCC 4.7 gengtype dislikes operator\ -s */"; - /*_.ADD2OUT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V27*/ + meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3232,7 +3489,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "operator melt_ptr_t () { return reinterpret_cast<melt_ptr_t>(this); }"; - /*_.ADD2OUT__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3251,7 +3509,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#endif /*MELT_BOGUS_GENGTYPE_4dot7*/"; - /*_.ADD2OUT__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3261,7 +3520,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2171:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3272,7 +3532,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V30*/ meltfptr[29] = slot; + /*_.CTYPG_BOXEDSTRUCT__V30*/ + meltfptr[29] = slot; }; ; } @@ -3296,7 +3557,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPG_BOXEDSTRUCT__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[2].meltbp_cstring = " */"; - /*_.ADD2OUT__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3314,11 +3576,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2174:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY (()) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY (()) ")); } ; MELT_LOCATION("warmelt-modes.melt:2175:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3329,7 +3593,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V32*/ meltfptr[31] = slot; + /*_.CTYPG_ENTRYSTRUCT__V32*/ + meltfptr[31] = slot; }; ; } @@ -3342,18 +3607,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2175:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V32*/ meltfptr[31]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V32*/ meltfptr[31]))); } ; { MELT_LOCATION("warmelt-modes.melt:2176:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " { /* for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " { /* for ")); } ; MELT_LOCATION("warmelt-modes.melt:2177:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3364,7 +3632,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32] = slot; + /*_.CTYPG_MAPMAGIC__V33*/ + meltfptr[32] = slot; }; ; } @@ -3377,14 +3646,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2177:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32]))); } ; { MELT_LOCATION("warmelt-modes.melt:2178:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -3394,7 +3665,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2180:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[9]))) ) /*then*/ @@ -3405,7 +3677,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V34*/ meltfptr[33] = slot; + /*_.CTYPE_CNAME__V34*/ + meltfptr[33] = slot; }; ; } @@ -3418,14 +3691,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2180:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V34*/ meltfptr[33]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V34*/ meltfptr[33]))); } ; { MELT_LOCATION("warmelt-modes.melt:2181:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " e_at;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " e_at;")); } ; @@ -3437,13 +3712,15 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2183:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " melt_ptr_t e_va;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " melt_ptr_t e_va;")); } ; { MELT_LOCATION("warmelt-modes.melt:2184:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "};")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "};")); } ; @@ -3455,11 +3732,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2186:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY (()) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY (()) ")); } ; MELT_LOCATION("warmelt-modes.melt:2187:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3470,7 +3749,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34] = slot; + /*_.CTYPG_MAPSTRUCT__V35*/ + meltfptr[34] = slot; }; ; } @@ -3483,18 +3763,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2187:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34]))); } ; { MELT_LOCATION("warmelt-modes.melt:2188:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " { /* when ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " { /* when ")); } ; MELT_LOCATION("warmelt-modes.melt:2189:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3505,7 +3788,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V36*/ meltfptr[35] = slot; + /*_.CTYPG_MAPMAGIC__V36*/ + meltfptr[35] = slot; }; ; } @@ -3518,14 +3802,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2189:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V36*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V36*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:2190:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -3537,7 +3823,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2192:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* keep in sync with meltmappointers_st */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* keep in sync with meltmappointers_st */")); } ; @@ -3549,7 +3836,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2194:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t discr;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t discr;")); } ; @@ -3561,7 +3849,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2196:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "unsigned count;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "unsigned count;")); } ; @@ -3573,7 +3862,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2198:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "unsigned char lenix;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "unsigned char lenix;")); } ; @@ -3585,7 +3875,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2200:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "unsigned meltmap_hash;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "unsigned meltmap_hash;")); } ; @@ -3597,7 +3888,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2202:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "melt_ptr_t meltmap_aux;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "melt_ptr_t meltmap_aux;")); } ; @@ -3609,11 +3901,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2204:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2205:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -3624,7 +3918,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36] = slot; + /*_.CTYPG_ENTRYSTRUCT__V37*/ + meltfptr[36] = slot; }; ; } @@ -3637,14 +3932,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2205:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36]))); } ; { MELT_LOCATION("warmelt-modes.melt:2206:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "* GTY ((length (\"melt_primtab[%h.lenix]\"))) entab;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "* GTY ((length (\"melt_primtab[%h.lenix]\"))) entab;")); } ; @@ -3656,7 +3953,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2208:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "};")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "};")); } ; @@ -3671,43 +3969,62 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2141:/ clear"); - /*clear*/ /*_.CURCTYP__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURCTYP__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IX__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V24*/ meltfptr[5] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V24*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDMAGIC__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.ADD2OUT__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.ADD2OUT__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.ADD2OUT__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V37*/ + meltfptr[36] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -3725,7 +4042,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2214:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* value GTY types */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* value GTY types */")); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -3760,7 +4078,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3769,7 +4088,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2218:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3806,16 +4126,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L11*/ meltfnum[7]; - /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V39*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; + /*_._IF___V39*/ + meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2218:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ + meltfptr[39] = 0 ; } ; } @@ -3828,7 +4152,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2218:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -3837,9 +4162,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V39*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3869,10 +4196,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[12] = + /*_#IS_A__L14*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-modes.melt:2219:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V42*/ meltfptr[38] = (/*nil*/NULL);; @@ -3901,25 +4230,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2219; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V38*/ meltfptr[37]; - /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V43*/ + meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V42*/ meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; + /*_._IFELSE___V42*/ + meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2219:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V43*/ + meltfptr[42] = 0 ; } ; } ; - /*_.IFCPP___V41*/ meltfptr[39] = /*_._IFELSE___V42*/ meltfptr[38];; + /*_.IFCPP___V41*/ + meltfptr[39] = /*_._IFELSE___V42*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2219:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V42*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IFELSE___V42*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3942,10 +4277,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2222:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyvaldesc #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyvaldesc #")); } ; - /*_#plI__L15*/ meltfnum[11] = + /*_#plI__L15*/ + meltfnum[11] = ((1) + (/*_#IX__L11*/ meltfnum[7]));; { @@ -3956,11 +4293,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2224:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2225:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -3971,7 +4310,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V44*/ meltfptr[42] = slot; + /*_.NAMED_NAME__V44*/ + meltfptr[42] = slot; }; ; } @@ -3991,7 +4331,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2226:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -4003,16 +4344,19 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2228:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY((")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct GTY((")); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[12] = + /*_#IS_A__L16*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VARISIZED_VALUE_DESCRIPTOR*/ meltfrout->tabval[12])));; MELT_LOCATION("warmelt-modes.melt:2230:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4030,7 +4374,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:2232:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4041,7 +4386,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 5, "VALDESC_GTY"); - /*_.VALDESC_GTY__V47*/ meltfptr[46] = slot; + /*_.VALDESC_GTY__V47*/ + meltfptr[46] = slot; }; ; } @@ -4052,10 +4398,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NULL__L17*/ meltfnum[16] = + /*_#NULL__L17*/ + meltfnum[16] = (/*null*/(/*_.VALDESC_GTY__V47*/ meltfptr[46]) == NULL);; MELT_LOCATION("warmelt-modes.melt:2231:/ cond"); - /*cond*/ if (/*_#NULL__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#NULL__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V48*/ meltfptr[47] = (/*nil*/NULL);; @@ -4084,27 +4432,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2231; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V38*/ meltfptr[37]; - /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V48*/ meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; + /*_._IFELSE___V48*/ + meltfptr[47] = /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2231:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V49*/ + meltfptr[48] = 0 ; } ; } ; - /*_.IFCPP___V46*/ meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[47];; + /*_.IFCPP___V46*/ + meltfptr[45] = /*_._IFELSE___V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2231:/ clear"); - /*clear*/ /*_.VALDESC_GTY__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.VALDESC_GTY__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#NULL__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_._IFELSE___V48*/ + meltfptr[47] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4115,7 +4470,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2233:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "variable_size")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "variable_size")); } ; MELT_LOCATION("warmelt-modes.melt:2230:/ quasiblock"); @@ -4124,7 +4480,8 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ + meltfptr[45] = 0 ; } ; } @@ -4138,10 +4495,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L18*/ meltfnum[16] = + /*_#IS_A__L18*/ + meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11])));; MELT_LOCATION("warmelt-modes.melt:2235:/ cond"); - /*cond*/ if (/*_#IS_A__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_A__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4152,7 +4511,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4163,7 +4523,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 5, "VALDESC_GTY"); - /*_.SGTY__V51*/ meltfptr[46] = slot; + /*_.SGTY__V51*/ + meltfptr[46] = slot; }; ; } @@ -4177,10 +4538,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_STRING__L19*/ meltfnum[18] = + /*_#IS_STRING__L19*/ + meltfnum[18] = (melt_magic_discr((melt_ptr_t)(/*_.SGTY__V51*/ meltfptr[46])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:2238:/ cond"); - /*cond*/ if (/*_#IS_STRING__L19*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4192,11 +4555,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2239:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.SGTY__V51*/ meltfptr[46]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.SGTY__V51*/ meltfptr[46]))); } ; - /*clear*/ /*_._IFELSE___V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V50*/ + meltfptr[48] = 0 ; /*epilog*/ } ; @@ -4205,14 +4570,17 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2238:/ cond.else"); - /*_._IFELSE___V50*/ meltfptr[48] = /*reallynil*/ NULL ;; + /*_._IFELSE___V50*/ + meltfptr[48] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:2236:/ clear"); - /*clear*/ /*_.SGTY__V51*/ meltfptr[46] = 0 ; + /*clear*/ /*_.SGTY__V51*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_STRING__L19*/ + meltfnum[18] = 0 ; /*epilog*/ } ; @@ -4236,7 +4604,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V53*/ meltfptr[45] = (/*nil*/NULL);; @@ -4265,23 +4634,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2241; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V38*/ meltfptr[37]; - /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V54*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V53*/ meltfptr[45] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[46];; + /*_._IFELSE___V53*/ + meltfptr[45] = /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2241:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V54*/ + meltfptr[46] = 0 ; } ; } ; - /*_.IFCPP___V52*/ meltfptr[47] = /*_._IFELSE___V53*/ meltfptr[45];; + /*_.IFCPP___V52*/ + meltfptr[47] = /*_._IFELSE___V53*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2241:/ clear"); - /*clear*/ /*_._IFELSE___V53*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4292,26 +4666,33 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:2240:/ quasiblock"); - /*_.PROGN___V55*/ meltfptr[46] = /*_.IFCPP___V52*/ meltfptr[47];; + /*_.PROGN___V55*/ + meltfptr[46] = /*_.IFCPP___V52*/ meltfptr[47];; /*^compute*/ - /*_._IFELSE___V50*/ meltfptr[48] = /*_.PROGN___V55*/ meltfptr[46];; + /*_._IFELSE___V50*/ + meltfptr[48] = /*_.PROGN___V55*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2235:/ clear"); - /*clear*/ /*_.IFCPP___V52*/ meltfptr[47] = 0 ; + /*clear*/ /*_.IFCPP___V52*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V55*/ meltfptr[46] = 0 ; + /*clear*/ /*_.PROGN___V55*/ + meltfptr[46] = 0 ; } ; } ; - /*_._IFELSE___V45*/ meltfptr[38] = /*_._IFELSE___V50*/ meltfptr[48];; + /*_._IFELSE___V45*/ + meltfptr[38] = /*_._IFELSE___V50*/ meltfptr[48];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2230:/ clear"); - /*clear*/ /*_#IS_A__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_A__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V50*/ meltfptr[48] = 0 ; + /*clear*/ /*_._IFELSE___V50*/ + meltfptr[48] = 0 ; } ; } @@ -4319,11 +4700,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2243:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ")) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ")) ")); } ; MELT_LOCATION("warmelt-modes.melt:2244:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4334,7 +4717,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V56*/ meltfptr[45] = slot; + /*_.VALDESC_STRUCT__V56*/ + meltfptr[45] = slot; }; ; } @@ -4347,18 +4731,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2244:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V56*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V56*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:2245:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /* when ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /* when ")); } ; MELT_LOCATION("warmelt-modes.melt:2246:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4369,7 +4756,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALDESC_OBJMAGIC__V57*/ meltfptr[47] = slot; + /*_.VALDESC_OBJMAGIC__V57*/ + meltfptr[47] = slot; }; ; } @@ -4382,14 +4770,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2246:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V57*/ meltfptr[47]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V57*/ meltfptr[47]))); } ; { MELT_LOCATION("warmelt-modes.melt:2247:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " */ {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " */ {")); } ; @@ -4401,7 +4791,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2249:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t discr;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t discr;")); } ; @@ -4411,7 +4802,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2251:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4422,7 +4814,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 6, "VALDESC_MEMBCHUNK"); - /*_.VALDESC_MEMBCHUNK__V58*/ meltfptr[46] = slot; + /*_.VALDESC_MEMBCHUNK__V58*/ + meltfptr[46] = slot; }; ; } @@ -4435,8 +4828,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2251:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_MEMBCHUNK__V58*/ meltfptr[46]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_MEMBCHUNK__V58*/ meltfptr[46]))); } ; @@ -4448,11 +4842,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2253:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "}; /* end ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "}; /* end ")); } ; MELT_LOCATION("warmelt-modes.melt:2254:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4463,7 +4859,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V59*/ meltfptr[48] = slot; + /*_.VALDESC_STRUCT__V59*/ + meltfptr[48] = slot; }; ; } @@ -4476,14 +4873,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2254:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V59*/ meltfptr[48]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V59*/ meltfptr[48]))); } ; { MELT_LOCATION("warmelt-modes.melt:2255:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " */")); } ; @@ -4496,7 +4895,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -4507,7 +4907,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V38*/ meltfptr[37]) /*=obj*/; melt_object_get_field(slot,obj, 7, "VALDESC_DECLCHUNK"); - /*_.DCLCHK__V60*/ meltfptr[59] = slot; + /*_.DCLCHK__V60*/ + meltfptr[59] = slot; }; ; } @@ -4521,7 +4922,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:2259:/ cond"); - /*cond*/ if (/*_.DCLCHK__V60*/ meltfptr[59]) /*then*/ + /*cond*/ + if (/*_.DCLCHK__V60*/ meltfptr[59]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4531,7 +4933,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2261:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* decl. chunk */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* decl. chunk */")); } ; @@ -4543,8 +4946,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2263:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.DCLCHK__V60*/ meltfptr[59]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.DCLCHK__V60*/ meltfptr[59]))); } ; @@ -4571,7 +4975,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2266:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* no decl. chunk */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* no decl. chunk */")); } ; /*epilog*/ @@ -4587,34 +4992,46 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:2257:/ clear"); - /*clear*/ /*_.DCLCHK__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.DCLCHK__V60*/ + meltfptr[59] = 0 ; if (/*_#IX__L11*/ meltfnum[7]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2215:/ clear"); - /*clear*/ /*_.CURVALDESC__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.CURVALDESC__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IX__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_.IFCPP___V41*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L15*/ meltfnum[11] = 0 ; + /*clear*/ /*_#plI__L15*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V44*/ meltfptr[42] = 0 ; + /*clear*/ /*_.NAMED_NAME__V44*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L16*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V45*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IFELSE___V45*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V56*/ meltfptr[45] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V56*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_OBJMAGIC__V57*/ meltfptr[47] = 0 ; + /*clear*/ /*_.VALDESC_OBJMAGIC__V57*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_MEMBCHUNK__V58*/ meltfptr[46] = 0 ; + /*clear*/ /*_.VALDESC_MEMBCHUNK__V58*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V59*/ meltfptr[48] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V59*/ + meltfptr[48] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -4626,7 +5043,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2273:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* our generated MELT union for everything */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* our generated MELT union for everything */")); } ; @@ -4638,7 +5056,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2275:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "typedef union")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "typedef union")); } ; @@ -4650,7 +5069,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2277:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((desc (\"%0.u_discr->meltobj_magic\"))) melt_un")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((desc (\"%0.u_discr->meltobj_magic\"))) melt_un")); } ; @@ -4662,7 +5082,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2281:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "{ /*generated melt_un*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "{ /*generated melt_un*/")); } ; @@ -4674,7 +5095,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2283:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t GTY ((skip)) u_discr;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "meltobject_ptr_t GTY ((skip)) u_discr;")); } ; @@ -4686,7 +5108,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2285:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct meltforward_st GTY ((skip)) u_forward;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct meltforward_st GTY ((skip)) u_forward;")); } ; @@ -4727,7 +5150,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4736,7 +5160,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2291:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4773,16 +5198,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " ix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#IX__L20*/ meltfnum[18]; - /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V62*/ meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; + /*_._IF___V62*/ + meltfptr[61] = /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2291:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V63*/ + meltfptr[62] = 0 ; } ; } @@ -4795,7 +5224,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2291:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -4804,9 +5234,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IF___V62*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4836,10 +5268,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L23*/ meltfnum[21] = + /*_#IS_A__L23*/ + meltfnum[21] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-modes.melt:2292:/ cond"); - /*cond*/ if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ + /*cond*/ + if (/*_#IS_A__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V65*/ meltfptr[61] = (/*nil*/NULL);; @@ -4868,25 +5302,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2292; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V61*/ meltfptr[59]; - /*_.MELT_ASSERT_FAILURE_FUN__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V66*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V65*/ meltfptr[61] = /*_.MELT_ASSERT_FAILURE_FUN__V66*/ meltfptr[65];; + /*_._IFELSE___V65*/ + meltfptr[61] = /*_.MELT_ASSERT_FAILURE_FUN__V66*/ meltfptr[65];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2292:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V66*/ + meltfptr[65] = 0 ; } ; } ; - /*_.IFCPP___V64*/ meltfptr[62] = /*_._IFELSE___V65*/ meltfptr[61];; + /*_.IFCPP___V64*/ + meltfptr[62] = /*_._IFELSE___V65*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2292:/ clear"); - /*clear*/ /*_#IS_A__L23*/ meltfnum[21] = 0 ; + /*clear*/ /*_#IS_A__L23*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V65*/ meltfptr[61] = 0 ; + /*clear*/ /*_._IFELSE___V65*/ + meltfptr[61] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4903,10 +5343,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2294:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*union gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*union gtyctype #")); } ; - /*_#plI__L24*/ meltfnum[16] = + /*_#plI__L24*/ + meltfnum[16] = ((1) + (/*_#IX__L20*/ meltfnum[18]));; { @@ -4917,11 +5359,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2296:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2297:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -4932,7 +5376,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V67*/ meltfptr[65] = slot; + /*_.NAMED_NAME__V67*/ + meltfptr[65] = slot; }; ; } @@ -4952,7 +5397,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2298:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -4964,11 +5410,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2300:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2301:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -4979,7 +5427,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V68*/ meltfptr[61] = slot; + /*_.CTYPG_BOXEDSTRUCT__V68*/ + meltfptr[61] = slot; }; ; } @@ -4992,18 +5441,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2301:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V68*/ meltfptr[61]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V68*/ meltfptr[61]))); } ; { MELT_LOCATION("warmelt-modes.melt:2302:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((tag(\"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((tag(\"")); } ; MELT_LOCATION("warmelt-modes.melt:2303:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -5014,7 +5466,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.CTYPG_BOXEDMAGIC__V69*/ meltfptr[68] = slot; + /*_.CTYPG_BOXEDMAGIC__V69*/ + meltfptr[68] = slot; }; ; } @@ -5027,18 +5480,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2303:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V69*/ meltfptr[68]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V69*/ meltfptr[68]))); } ; { MELT_LOCATION("warmelt-modes.melt:2304:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"))) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"))) ")); } ; MELT_LOCATION("warmelt-modes.melt:2305:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -5049,7 +5505,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 16, "CTYPG_BOXEDUNIMEMB"); - /*_.CTYPG_BOXEDUNIMEMB__V70*/ meltfptr[69] = slot; + /*_.CTYPG_BOXEDUNIMEMB__V70*/ + meltfptr[69] = slot; }; ; } @@ -5062,14 +5519,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2305:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDUNIMEMB__V70*/ meltfptr[69]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDUNIMEMB__V70*/ meltfptr[69]))); } ; { MELT_LOCATION("warmelt-modes.melt:2306:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /* generated boxed union member */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /* generated boxed union member */")); } ; @@ -5081,11 +5540,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2308:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2309:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -5096,7 +5557,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V71*/ meltfptr[70] = slot; + /*_.CTYPG_MAPSTRUCT__V71*/ + meltfptr[70] = slot; }; ; } @@ -5109,18 +5571,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2309:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V71*/ meltfptr[70]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V71*/ meltfptr[70]))); } ; { MELT_LOCATION("warmelt-modes.melt:2310:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((tag(\"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((tag(\"")); } ; MELT_LOCATION("warmelt-modes.melt:2311:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -5131,7 +5596,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V72*/ meltfptr[71] = slot; + /*_.CTYPG_MAPMAGIC__V72*/ + meltfptr[71] = slot; }; ; } @@ -5144,18 +5610,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2311:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V72*/ meltfptr[71]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V72*/ meltfptr[71]))); } ; { MELT_LOCATION("warmelt-modes.melt:2312:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"))) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"))) ")); } ; MELT_LOCATION("warmelt-modes.melt:2313:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[7]))) ) /*then*/ @@ -5166,7 +5635,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V61*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 20, "CTYPG_MAPUNIMEMB"); - /*_.CTYPG_MAPUNIMEMB__V73*/ meltfptr[72] = slot; + /*_.CTYPG_MAPUNIMEMB__V73*/ + meltfptr[72] = slot; }; ; } @@ -5179,14 +5649,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2313:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPUNIMEMB__V73*/ meltfptr[72]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPUNIMEMB__V73*/ meltfptr[72]))); } ; { MELT_LOCATION("warmelt-modes.melt:2314:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /* generated map union member */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /* generated map union member */")); } ; @@ -5201,27 +5673,38 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2288:/ clear"); - /*clear*/ /*_.CURCTYP__V61*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CURCTYP__V61*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_#IX__L20*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IX__L20*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V64*/ meltfptr[62] = 0 ; + /*clear*/ /*_.IFCPP___V64*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L24*/ meltfnum[16] = 0 ; + /*clear*/ /*_#plI__L24*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V67*/ meltfptr[65] = 0 ; + /*clear*/ /*_.NAMED_NAME__V67*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V68*/ meltfptr[61] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V68*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDMAGIC__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDMAGIC__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDUNIMEMB__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDUNIMEMB__V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V71*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPUNIMEMB__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.CTYPG_MAPUNIMEMB__V73*/ + meltfptr[72] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -5262,7 +5745,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L26*/ + meltfnum[25] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5271,7 +5755,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2322:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5308,16 +5793,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " vix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#VIX__L25*/ meltfnum[21]; - /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[75] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V75*/ meltfptr[74] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; + /*_._IF___V75*/ + meltfptr[74] = /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2322:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L27*/ meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L27*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V76*/ + meltfptr[75] = 0 ; } ; } @@ -5330,7 +5819,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2322:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5339,9 +5829,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L26*/ meltfnum[25] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L26*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_._IF___V75*/ + meltfptr[74] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5370,10 +5862,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2324:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*union.valdesc #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*union.valdesc #")); } ; - /*_#plI__L28*/ meltfnum[26] = + /*_#plI__L28*/ + meltfnum[26] = ((1) + (/*_#VIX__L25*/ meltfnum[21]));; { @@ -5384,11 +5878,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2326:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2327:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[8]))) ) /*then*/ @@ -5399,7 +5895,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V77*/ meltfptr[75] = slot; + /*_.NAMED_NAME__V77*/ + meltfptr[75] = slot; }; ; } @@ -5419,7 +5916,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2328:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -5431,11 +5929,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2330:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2331:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5446,7 +5946,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V78*/ meltfptr[74] = slot; + /*_.VALDESC_STRUCT__V78*/ + meltfptr[74] = slot; }; ; } @@ -5459,18 +5960,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2331:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V78*/ meltfptr[74]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V78*/ meltfptr[74]))); } ; { MELT_LOCATION("warmelt-modes.melt:2332:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((tag(\"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " GTY ((tag(\"")); } ; MELT_LOCATION("warmelt-modes.melt:2333:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5481,7 +5985,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALDESC_OBJMAGIC__V79*/ meltfptr[78] = slot; + /*_.VALDESC_OBJMAGIC__V79*/ + meltfptr[78] = slot; }; ; } @@ -5494,18 +5999,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2333:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V79*/ meltfptr[78]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V79*/ meltfptr[78]))); } ; { MELT_LOCATION("warmelt-modes.melt:2334:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"))) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"))) ")); } ; MELT_LOCATION("warmelt-modes.melt:2335:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5516,7 +6024,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 4, "VALDESC_UNIONMEM"); - /*_.VALDESC_UNIONMEM__V80*/ meltfptr[79] = slot; + /*_.VALDESC_UNIONMEM__V80*/ + meltfptr[79] = slot; }; ; } @@ -5529,14 +6038,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2335:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_UNIONMEM__V80*/ meltfptr[79]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_UNIONMEM__V80*/ meltfptr[79]))); } ; { MELT_LOCATION("warmelt-modes.melt:2336:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /* generated value union member */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /* generated value union member */")); } ; @@ -5551,19 +6062,26 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2319:/ clear"); - /*clear*/ /*_.CURVALDESC__V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.CURVALDESC__V74*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_#VIX__L25*/ meltfnum[21] = 0 ; + /*clear*/ /*_#VIX__L25*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L28*/ meltfnum[26] = 0 ; + /*clear*/ /*_#plI__L28*/ + meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V77*/ meltfptr[75] = 0 ; + /*clear*/ /*_.NAMED_NAME__V77*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V78*/ meltfptr[74] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V78*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_OBJMAGIC__V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.VALDESC_OBJMAGIC__V79*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_UNIONMEM__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.VALDESC_UNIONMEM__V80*/ + meltfptr[79] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -5575,7 +6093,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2340:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} melt_un_t /*end generated melt_un*/;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} melt_un_t /*end generated melt_un*/;")); } ; @@ -5616,7 +6135,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L30*/ meltfnum[29] = + /*_#MELT_NEED_DBG__L30*/ + meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -5625,7 +6145,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2346:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L30*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L30*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5662,16 +6183,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " vix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#VIX__L29*/ meltfnum[25]; - /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V83*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V82*/ meltfptr[81] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82];; + /*_._IF___V82*/ + meltfptr[81] = /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2346:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L31*/ meltfnum[30] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L31*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V83*/ + meltfptr[82] = 0 ; } ; } @@ -5684,7 +6209,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2346:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -5693,9 +6219,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L30*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L30*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V82*/ meltfptr[81] = 0 ; + /*clear*/ /*_._IF___V82*/ + meltfptr[81] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5733,10 +6261,12 @@ meltlab_endgetargs: meltgc_strbuf_add_indent((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (0), 0); } ; - /*_#plI__L32*/ meltfnum[30] = + /*_#plI__L32*/ + meltfnum[30] = ((1) + (/*_#VIX__L29*/ meltfnum[25]));; MELT_LOCATION("warmelt-modes.melt:2350:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5747,7 +6277,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V84*/ meltfptr[82] = slot; + /*_.VALDESC_STRUCT__V84*/ + meltfptr[82] = slot; }; ; } @@ -5775,7 +6306,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESC_STRUCT__V84*/ meltfptr[82]; /*^apply.arg*/ argtab[4].meltbp_cstring = "*/"; - /*_.ADD2OUT__V85*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V85*/ + meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5785,7 +6317,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2352:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5796,7 +6329,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V86*/ meltfptr[85] = slot; + /*_.VALDESC_STRUCT__V86*/ + meltfptr[85] = slot; }; ; } @@ -5807,7 +6341,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2353:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5818,7 +6353,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V87*/ meltfptr[86] = slot; + /*_.VALDESC_STRUCT__V87*/ + meltfptr[86] = slot; }; ; } @@ -5848,7 +6384,8 @@ meltlab_endgetargs: argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESC_STRUCT__V87*/ meltfptr[86]; /*^apply.arg*/ argtab[5].meltbp_cstring = "(melt_ptr_t p) {"; - /*_.ADD2OUT__V88*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V88*/ + meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5858,7 +6395,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2355:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5869,7 +6407,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALDESC_OBJMAGIC__V89*/ meltfptr[88] = slot; + /*_.VALDESC_OBJMAGIC__V89*/ + meltfptr[88] = slot; }; ; } @@ -5893,7 +6432,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESC_OBJMAGIC__V89*/ meltfptr[88]; /*^apply.arg*/ argtab[2].meltbp_cstring = ")"; - /*_.ADD2OUT__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V90*/ + meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5903,7 +6443,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2357:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5914,7 +6455,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V91*/ meltfptr[90] = slot; + /*_.VALDESC_STRUCT__V91*/ + meltfptr[90] = slot; }; ; } @@ -5938,7 +6480,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESC_STRUCT__V91*/ meltfptr[90]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*) p;"; - /*_.ADD2OUT__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V92*/ + meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5957,7 +6500,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "return NULL;"; - /*_.ADD2OUT__V93*/ meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V93*/ + meltfptr[92] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5967,7 +6511,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2361:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[11]))) ) /*then*/ @@ -5978,7 +6523,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V81*/ meltfptr[80]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V94*/ meltfptr[93] = slot; + /*_.VALDESC_STRUCT__V94*/ + meltfptr[93] = slot; }; ; } @@ -6002,7 +6548,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESC_STRUCT__V94*/ meltfptr[93]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*/"; - /*_.ADD2OUT__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6023,35 +6570,50 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2343:/ clear"); - /*clear*/ /*_.CURVALDESC__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.CURVALDESC__V81*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_#VIX__L29*/ meltfnum[25] = 0 ; + /*clear*/ /*_#VIX__L29*/ + meltfnum[25] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L32*/ meltfnum[30] = 0 ; + /*clear*/ /*_#plI__L32*/ + meltfnum[30] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V84*/ meltfptr[82] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V84*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V85*/ meltfptr[81] = 0 ; + /*clear*/ /*_.ADD2OUT__V85*/ + meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V86*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V87*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.ADD2OUT__V88*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_OBJMAGIC__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.VALDESC_OBJMAGIC__V89*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V90*/ meltfptr[89] = 0 ; + /*clear*/ /*_.ADD2OUT__V90*/ + meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V91*/ meltfptr[90] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V91*/ + meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.ADD2OUT__V92*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.ADD2OUT__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V94*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.ADD2OUT__V95*/ + meltfptr[94] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -6063,7 +6625,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2368:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** end generated by generate_runtypesupport_gty **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** end generated by generate_runtypesupport_gty **/")); } ; @@ -6098,7 +6661,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = + /*_#MELT_NEED_DBG__L33*/ + meltfnum[29] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6107,7 +6671,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2372:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6140,16 +6705,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_gty end outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V96*/ meltfptr[95] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96];; + /*_._IF___V96*/ + meltfptr[95] = /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2372:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L34*/ meltfnum[33] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L34*/ + meltfnum[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V97*/ + meltfptr[96] = 0 ; } ; } @@ -6162,7 +6731,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2372:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6171,9 +6741,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L33*/ + meltfnum[29] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_._IF___V96*/ + meltfptr[95] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6199,11 +6771,14 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2081:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -6285,7 +6860,8 @@ meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN(meltclosure_ptr_ /* end of frame for routine meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN fromline 1756 */ - /* classy proc frame meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN */ MeltFrame_meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN + /* classy proc frame meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN */ + MeltFrame_meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN fromline 1785*/ #if ENABLE_CHECKING @@ -6298,7 +6874,8 @@ meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN(meltclosure_ptr_ #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -6308,26 +6885,30 @@ meltrout_50_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN(meltclosure_ptr_ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:2381:/ getarg"); - /*_.CTYGTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYGTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTNAME__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTNAME__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTNAME__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -6359,7 +6940,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6368,7 +6950,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2385:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6401,16 +6984,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_forwcopy_fun start outname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTNAME__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2385:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -6423,7 +7010,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2385:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6432,9 +7020,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6464,10 +7054,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2386:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -6496,25 +7088,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2386; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2386:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2386:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6532,10 +7130,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CTYGTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2387:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -6564,25 +7164,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2387; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYGTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2387:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2387:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6600,10 +7206,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:2388:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -6632,25 +7240,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2388; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2388:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2388:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6679,7 +7293,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2393:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** generated by generate_runtypesupport_forwcopy_fun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** generated by generate_runtypesupport_forwcopy_fun **/")); } ; @@ -6691,8 +7306,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2395:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); } ; @@ -6704,7 +7320,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2414:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* value descriptor forward copy for melt_forwarded_copy */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* value descriptor forward copy for melt_forwarded_copy */")); } ; @@ -6745,7 +7362,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6754,7 +7372,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2421:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6787,16 +7406,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_forwcopy curvaldesc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V17*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2421:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -6809,7 +7432,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2421:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -6818,9 +7442,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6850,10 +7476,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[7] = + /*_#IS_A__L9*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:2422:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[5] = (/*nil*/NULL);; @@ -6882,25 +7510,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2422; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V17*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2422:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2422:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6917,10 +7551,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2424:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*valdesc #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*valdesc #")); } ; - /*_#plI__L10*/ meltfnum[1] = + /*_#plI__L10*/ + meltfnum[1] = ((1) + (/*_#VIX__L6*/ meltfnum[0]));; { @@ -6931,11 +7567,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2426:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2427:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -6946,7 +7584,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V23*/ meltfptr[21] = slot; + /*_.NAMED_NAME__V23*/ + meltfptr[21] = slot; }; ; } @@ -6966,7 +7605,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2428:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -6978,11 +7618,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2430:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); } ; MELT_LOCATION("warmelt-modes.melt:2431:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -6993,7 +7635,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5] = slot; + /*_.VALDESC_OBJMAGIC__V24*/ + meltfptr[5] = slot; }; ; } @@ -7006,14 +7649,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2431:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5]))); } ; { MELT_LOCATION("warmelt-modes.melt:2432:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); } ; @@ -7025,11 +7670,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2434:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2435:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -7040,7 +7687,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V25*/ meltfptr[24] = slot; + /*_.VALDESC_STRUCT__V25*/ + meltfptr[24] = slot; }; ; } @@ -7053,18 +7701,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2435:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V25*/ meltfptr[24]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V25*/ meltfptr[24]))); } ; { MELT_LOCATION("warmelt-modes.melt:2436:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*src = (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*src = (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2437:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -7075,7 +7726,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V26*/ meltfptr[25] = slot; + /*_.VALDESC_STRUCT__V26*/ + meltfptr[25] = slot; }; ; } @@ -7088,14 +7740,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2437:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V26*/ meltfptr[25]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V26*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-modes.melt:2438:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); } ; @@ -7107,11 +7761,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2440:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2441:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -7122,7 +7778,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V27*/ meltfptr[26] = slot; + /*_.VALDESC_STRUCT__V27*/ + meltfptr[26] = slot; }; ; } @@ -7135,14 +7792,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2441:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V27*/ meltfptr[26]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V27*/ meltfptr[26]))); } ; { MELT_LOCATION("warmelt-modes.melt:2442:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*dst = NULL;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*dst = NULL;")); } ; @@ -7152,7 +7811,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2444:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -7163,7 +7823,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 8, "VALDESC_COPYCHUNK"); - /*_.VALDESC_COPYCHUNK__V28*/ meltfptr[27] = slot; + /*_.VALDESC_COPYCHUNK__V28*/ + meltfptr[27] = slot; }; ; } @@ -7176,8 +7837,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2444:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_COPYCHUNK__V28*/ meltfptr[27]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_COPYCHUNK__V28*/ meltfptr[27]))); } ; @@ -7189,7 +7851,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2446:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "n = (melt_ptr_t) dst;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "n = (melt_ptr_t) dst;")); } ; @@ -7201,7 +7864,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2448:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); } ; @@ -7216,25 +7880,35 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2418:/ clear"); - /*clear*/ /*_.CURVALDESC__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURVALDESC__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#VIX__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#VIX__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5] = 0 ; + /*clear*/ /*_.VALDESC_OBJMAGIC__V24*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_COPYCHUNK__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.VALDESC_COPYCHUNK__V28*/ + meltfptr[27] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -7252,7 +7926,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2454:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* gty ctype forward copy for melt_forwarded_copy */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* gty ctype forward copy for melt_forwarded_copy */")); } ; @@ -7293,7 +7968,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7302,7 +7978,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2459:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7335,16 +8012,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_forwcopy curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ + meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2459:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ + meltfptr[30] = 0 ; } ; } @@ -7357,7 +8038,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2459:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -7366,9 +8048,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7398,10 +8082,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[12] = + /*_#IS_A__L14*/ + meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:2460:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V33*/ meltfptr[29] = (/*nil*/NULL);; @@ -7430,25 +8116,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2460; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V29*/ meltfptr[28]; - /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V33*/ meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; + /*_._IFELSE___V33*/ + meltfptr[29] = /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2460:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V34*/ + meltfptr[33] = 0 ; } ; } ; - /*_.IFCPP___V32*/ meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[29];; + /*_.IFCPP___V32*/ + meltfptr[30] = /*_._IFELSE___V33*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2460:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V33*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V33*/ + meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7459,10 +8151,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2461:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*forwcopy gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*forwcopy gtyctype #")); } ; - /*_#plI__L15*/ meltfnum[11] = + /*_#plI__L15*/ + meltfnum[11] = ((1) + (/*_#TIX__L11*/ meltfnum[7]));; { @@ -7473,11 +8167,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2463:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2464:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -7488,7 +8184,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V35*/ meltfptr[33] = slot; + /*_.NAMED_NAME__V35*/ + meltfptr[33] = slot; }; ; } @@ -7508,7 +8205,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2465:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -7520,11 +8218,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2468:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); } ; MELT_LOCATION("warmelt-modes.melt:2469:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7535,7 +8235,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.CTYPG_BOXEDMAGIC__V36*/ meltfptr[29] = slot; + /*_.CTYPG_BOXEDMAGIC__V36*/ + meltfptr[29] = slot; }; ; } @@ -7548,14 +8249,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2469:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V36*/ meltfptr[29]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V36*/ meltfptr[29]))); } ; { MELT_LOCATION("warmelt-modes.melt:2470:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); } ; @@ -7567,11 +8270,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2472:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* macro ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* macro ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2473:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7582,7 +8287,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V37*/ meltfptr[36] = slot; + /*_.CTYPG_BOXEDSTRUCT__V37*/ + meltfptr[36] = slot; }; ; } @@ -7595,14 +8301,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2473:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V37*/ meltfptr[36]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V37*/ meltfptr[36]))); } ; { MELT_LOCATION("warmelt-modes.melt:2474:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " should be generated by gengtype not by runtypesupport_forwcopy */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " should be generated by gengtype not by runtypesupport_forwcopy */")); } ; @@ -7614,11 +8322,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2476:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#ifndef ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#ifndef ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2477:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7629,7 +8339,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V38*/ meltfptr[37] = slot; + /*_.CTYPG_BOXEDSTRUCT__V38*/ + meltfptr[37] = slot; }; ; } @@ -7642,8 +8353,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2477:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V38*/ meltfptr[37]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V38*/ meltfptr[37]))); } ; @@ -7655,11 +8367,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2479:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2480:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7670,7 +8384,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V39*/ meltfptr[38] = slot; + /*_.CTYPG_BOXEDSTRUCT__V39*/ + meltfptr[38] = slot; }; ; } @@ -7683,18 +8398,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2480:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V39*/ meltfptr[38]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V39*/ meltfptr[38]))); } ; { MELT_LOCATION("warmelt-modes.melt:2481:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "() ((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "() ((struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2482:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7705,7 +8423,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V40*/ meltfptr[39] = slot; + /*_.CTYPG_BOXEDSTRUCT__V40*/ + meltfptr[39] = slot; }; ; } @@ -7718,18 +8437,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2482:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V40*/ meltfptr[39]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V40*/ meltfptr[39]))); } ; { MELT_LOCATION("warmelt-modes.melt:2483:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*)(ggc_internal_alloc_stat (sizeof (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*)(ggc_internal_alloc_stat (sizeof (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2484:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7740,7 +8462,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V41*/ meltfptr[40] = slot; + /*_.CTYPG_BOXEDSTRUCT__V41*/ + meltfptr[40] = slot; }; ; } @@ -7753,14 +8476,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2484:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V41*/ meltfptr[40]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V41*/ meltfptr[40]))); } ; { MELT_LOCATION("warmelt-modes.melt:2485:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ") MEM_STAT_INFO)))")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ") MEM_STAT_INFO)))")); } ; @@ -7772,7 +8497,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2487:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#endif")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#endif")); } ; @@ -7784,11 +8510,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2489:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2490:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7799,7 +8527,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V42*/ meltfptr[41] = slot; + /*_.CTYPG_BOXEDSTRUCT__V42*/ + meltfptr[41] = slot; }; ; } @@ -7812,18 +8541,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2490:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V42*/ meltfptr[41]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V42*/ meltfptr[41]))); } ; { MELT_LOCATION("warmelt-modes.melt:2491:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *src = (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *src = (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2492:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7834,7 +8566,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V43*/ meltfptr[42] = slot; + /*_.CTYPG_BOXEDSTRUCT__V43*/ + meltfptr[42] = slot; }; ; } @@ -7847,14 +8580,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2492:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V43*/ meltfptr[42]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V43*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:2493:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); } ; @@ -7866,11 +8601,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2495:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2496:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7881,7 +8618,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V44*/ meltfptr[43] = slot; + /*_.CTYPG_BOXEDSTRUCT__V44*/ + meltfptr[43] = slot; }; ; } @@ -7894,18 +8632,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2496:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V44*/ meltfptr[43]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:2497:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *dst = ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *dst = ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2498:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7916,7 +8657,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V45*/ meltfptr[44] = slot; + /*_.CTYPG_BOXEDSTRUCT__V45*/ + meltfptr[44] = slot; }; ; } @@ -7929,14 +8671,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2498:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V45*/ meltfptr[44]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V45*/ meltfptr[44]))); } ; { MELT_LOCATION("warmelt-modes.melt:2499:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ();")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ();")); } ; @@ -7948,7 +8692,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2501:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *dst = *src;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *dst = *src;")); } ; @@ -7960,7 +8705,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2503:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " n = (melt_ptr_t) dst;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " n = (melt_ptr_t) dst;")); } ; @@ -7972,7 +8718,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2505:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); } ; @@ -7984,11 +8731,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2508:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); } ; MELT_LOCATION("warmelt-modes.melt:2509:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -7999,7 +8748,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V46*/ meltfptr[45] = slot; + /*_.CTYPG_MAPMAGIC__V46*/ + meltfptr[45] = slot; }; ; } @@ -8012,14 +8762,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2509:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:2510:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); } ; @@ -8031,11 +8783,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2513:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2514:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8046,7 +8800,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V47*/ meltfptr[46] = slot; + /*_.CTYPG_MAPSTRUCT__V47*/ + meltfptr[46] = slot; }; ; } @@ -8059,14 +8814,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2514:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V47*/ meltfptr[46]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V47*/ meltfptr[46]))); } ; { MELT_LOCATION("warmelt-modes.melt:2515:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " should be generated by gengtype not by runtypesupport_forwcopy */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " should be generated by gengtype not by runtypesupport_forwcopy */")); } ; @@ -8078,11 +8835,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2517:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#ifndef ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#ifndef ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2518:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8093,7 +8852,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V48*/ meltfptr[47] = slot; + /*_.CTYPG_MAPSTRUCT__V48*/ + meltfptr[47] = slot; }; ; } @@ -8106,8 +8866,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2518:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V48*/ meltfptr[47]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V48*/ meltfptr[47]))); } ; @@ -8119,11 +8880,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2520:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2521:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8134,7 +8897,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V49*/ meltfptr[48] = slot; + /*_.CTYPG_MAPSTRUCT__V49*/ + meltfptr[48] = slot; }; ; } @@ -8147,18 +8911,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2521:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V49*/ meltfptr[48]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V49*/ meltfptr[48]))); } ; { MELT_LOCATION("warmelt-modes.melt:2522:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "() ((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "() ((struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2523:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8169,7 +8936,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V50*/ meltfptr[49] = slot; + /*_.CTYPG_MAPSTRUCT__V50*/ + meltfptr[49] = slot; }; ; } @@ -8182,18 +8950,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2523:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V50*/ meltfptr[49]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V50*/ meltfptr[49]))); } ; { MELT_LOCATION("warmelt-modes.melt:2524:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) (ggc_internal_alloc_stat (sizeof (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) (ggc_internal_alloc_stat (sizeof (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2525:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8204,7 +8975,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V51*/ meltfptr[50] = slot; + /*_.CTYPG_MAPSTRUCT__V51*/ + meltfptr[50] = slot; }; ; } @@ -8217,14 +8989,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2525:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V51*/ meltfptr[50]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V51*/ meltfptr[50]))); } ; { MELT_LOCATION("warmelt-modes.melt:2526:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ") MEM_STAT_INFO))) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ") MEM_STAT_INFO))) ")); } ; @@ -8236,7 +9010,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2528:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#endif")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#endif")); } ; @@ -8248,11 +9023,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2531:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* ggc_alloc_vec_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* ggc_alloc_vec_")); } ; MELT_LOCATION("warmelt-modes.melt:2532:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8263,7 +9040,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V52*/ meltfptr[51] = slot; + /*_.CTYPG_ENTRYSTRUCT__V52*/ + meltfptr[51] = slot; }; ; } @@ -8276,14 +9054,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2532:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V52*/ meltfptr[51]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V52*/ meltfptr[51]))); } ; { MELT_LOCATION("warmelt-modes.melt:2533:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " should be generated by gengtype not by runtypesupport_forwcopy */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " should be generated by gengtype not by runtypesupport_forwcopy */")); } ; @@ -8295,11 +9075,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2535:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#ifndef ggc_alloc_vec_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#ifndef ggc_alloc_vec_")); } ; MELT_LOCATION("warmelt-modes.melt:2536:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8310,7 +9092,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V53*/ meltfptr[52] = slot; + /*_.CTYPG_ENTRYSTRUCT__V53*/ + meltfptr[52] = slot; }; ; } @@ -8323,8 +9106,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2536:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V53*/ meltfptr[52]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V53*/ meltfptr[52]))); } ; @@ -8336,11 +9120,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2538:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ggc_alloc_vec_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ggc_alloc_vec_")); } ; MELT_LOCATION("warmelt-modes.melt:2539:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8351,7 +9137,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V54*/ meltfptr[53] = slot; + /*_.CTYPG_ENTRYSTRUCT__V54*/ + meltfptr[53] = slot; }; ; } @@ -8364,18 +9151,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2539:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V54*/ meltfptr[53]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V54*/ meltfptr[53]))); } ; { MELT_LOCATION("warmelt-modes.melt:2540:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "(n) ((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "(n) ((struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2541:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8386,7 +9176,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V55*/ meltfptr[54] = slot; + /*_.CTYPG_ENTRYSTRUCT__V55*/ + meltfptr[54] = slot; }; ; } @@ -8399,18 +9190,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2541:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:2542:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) (ggc_internal_vec_alloc_stat (sizeof (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) (ggc_internal_vec_alloc_stat (sizeof (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2543:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8421,7 +9215,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V56*/ meltfptr[55] = slot; + /*_.CTYPG_ENTRYSTRUCT__V56*/ + meltfptr[55] = slot; }; ; } @@ -8434,14 +9229,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2543:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V56*/ meltfptr[55]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V56*/ meltfptr[55]))); } ; { MELT_LOCATION("warmelt-modes.melt:2544:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "), n MEM_STAT_INFO))) ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "), n MEM_STAT_INFO))) ")); } ; @@ -8453,7 +9250,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2546:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#endif")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#endif")); } ; @@ -8465,11 +9263,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2549:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2550:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8480,7 +9280,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V57*/ meltfptr[56] = slot; + /*_.CTYPG_MAPSTRUCT__V57*/ + meltfptr[56] = slot; }; ; } @@ -8493,18 +9294,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2550:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V57*/ meltfptr[56]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V57*/ meltfptr[56]))); } ; { MELT_LOCATION("warmelt-modes.melt:2551:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *src = (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *src = (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2552:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8515,7 +9319,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V58*/ meltfptr[57] = slot; + /*_.CTYPG_MAPSTRUCT__V58*/ + meltfptr[57] = slot; }; ; } @@ -8528,14 +9333,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2552:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V58*/ meltfptr[57]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V58*/ meltfptr[57]))); } ; { MELT_LOCATION("warmelt-modes.melt:2553:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); } ; @@ -8547,7 +9354,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2555:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "int siz = melt_primtab[src->lenix];")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "int siz = melt_primtab[src->lenix];")); } ; @@ -8559,11 +9367,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2557:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2558:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8574,7 +9384,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V59*/ meltfptr[58] = slot; + /*_.CTYPG_MAPSTRUCT__V59*/ + meltfptr[58] = slot; }; ; } @@ -8587,18 +9398,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2558:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V59*/ meltfptr[58]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V59*/ meltfptr[58]))); } ; { MELT_LOCATION("warmelt-modes.melt:2559:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *dst = ggc_alloc_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *dst = ggc_alloc_")); } ; MELT_LOCATION("warmelt-modes.melt:2560:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8609,7 +9423,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V60*/ meltfptr[59] = slot; + /*_.CTYPG_MAPSTRUCT__V60*/ + meltfptr[59] = slot; }; ; } @@ -8622,14 +9437,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2560:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V60*/ meltfptr[59]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V60*/ meltfptr[59]))); } ; { MELT_LOCATION("warmelt-modes.melt:2561:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ();")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ();")); } ; @@ -8641,7 +9458,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2563:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->discr = src->discr;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->discr = src->discr;")); } ; @@ -8653,7 +9471,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2565:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->count = src->count;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->count = src->count;")); } ; @@ -8665,7 +9484,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2567:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->lenix = src->lenix;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->lenix = src->lenix;")); } ; @@ -8677,7 +9497,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2569:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->meltmap_aux = src->meltmap_aux;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->meltmap_aux = src->meltmap_aux;")); } ; @@ -8689,7 +9510,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2571:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->meltmap_hash = src->meltmap_hash;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->meltmap_hash = src->meltmap_hash;")); } ; @@ -8701,7 +9523,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2573:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (siz > 0 && src->entab) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (siz > 0 && src->entab) {")); } ; @@ -8713,11 +9536,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2575:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->entab = ggc_alloc_vec_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "dst->entab = ggc_alloc_vec_")); } ; MELT_LOCATION("warmelt-modes.melt:2576:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8728,7 +9553,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V29*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V61*/ meltfptr[60] = slot; + /*_.CTYPG_ENTRYSTRUCT__V61*/ + meltfptr[60] = slot; }; ; } @@ -8741,14 +9567,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2576:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V61*/ meltfptr[60]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V61*/ meltfptr[60]))); } ; { MELT_LOCATION("warmelt-modes.melt:2577:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " (siz);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " (siz);")); } ; @@ -8760,7 +9588,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2579:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "memcpy (dst->entab, src->entab, siz * sizeof (dst->entab[0]));")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "memcpy (dst->entab, src->entab, siz * sizeof (dst->entab[0]));")); } ; @@ -8772,7 +9601,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2581:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} else dst->entab = NULL;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} else dst->entab = NULL;")); } ; @@ -8784,7 +9614,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2583:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " n = (melt_ptr_t) dst;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " n = (melt_ptr_t) dst;")); } ; @@ -8796,7 +9627,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2585:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); } ; @@ -8811,74 +9643,106 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2456:/ clear"); - /*clear*/ /*_.CURCTYP__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CURCTYP__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#TIX__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V32*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L15*/ meltfnum[11] = 0 ; + /*clear*/ /*_#plI__L15*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V35*/ meltfptr[33] = 0 ; + /*clear*/ /*_.NAMED_NAME__V35*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDMAGIC__V36*/ meltfptr[29] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDMAGIC__V36*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V61*/ + meltfptr[60] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:2590:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); } ; @@ -8890,7 +9754,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2641:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** end of code generated by generate_runtypesupport_forwcopy_fun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** end of code generated by generate_runtypesupport_forwcopy_fun **/")); } ; @@ -8911,11 +9776,14 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2381:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -8997,7 +9865,8 @@ meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN(meltclosure_ptr_t /* end of frame for routine meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN fromline 1756 */ - /* classy proc frame meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN */ MeltFrame_meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN + /* classy proc frame meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN */ + MeltFrame_meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN fromline 1785*/ #if ENABLE_CHECKING @@ -9010,7 +9879,8 @@ meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN(meltclosure_ptr_t #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_CLONING_FUN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9020,26 +9890,30 @@ meltrout_51_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_CLONING_FUN(meltclosure_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:2651:/ getarg"); - /*_.CTYGTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYGTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTNAME__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTNAME__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTNAME__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -9071,7 +9945,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9080,7 +9955,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2655:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9113,16 +9989,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_cloning_fun start outname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTNAME__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2655:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -9135,7 +10015,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2655:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9144,9 +10025,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9176,10 +10059,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2656:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -9208,25 +10093,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2656; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2656:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2656:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9244,10 +10135,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CTYGTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2657:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -9276,25 +10169,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2657; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYGTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2657:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2657:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9312,10 +10211,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:2658:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -9342,25 +10243,31 @@ meltlab_endgetargs: argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 2658; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2658:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2658:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9389,7 +10296,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2663:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** generated by generate_runtypesupport_cloning_fun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** generated by generate_runtypesupport_cloning_fun **/")); } ; @@ -9429,7 +10337,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ );\n newmagic = ((meltobject_ptr_t)newdiscrv)->meltobj_magic;\ \n if (srcmagic != newmagic) \n goto end;\ \n switch (srcmagic) { /* end cloning heeader */\n"; - /*_.ADD2OUT__V17*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V17*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9441,7 +10350,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_LOCATION("warmelt-modes.melt:2702:/ quasiblock"); - /*_#NBCTYGTYTUP__L6*/ meltfnum[0] = + /*_#NBCTYGTYTUP__L6*/ + meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.CTYGTYTUP__V2*/ meltfptr[1])));; { @@ -9463,7 +10373,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[1].meltbp_long = /*_#NBCTYGTYTUP__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " GTY-ed ctypes ***/"; - /*_.ADD2OUT__V18*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V18*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9504,7 +10415,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9513,7 +10425,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2711:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9550,16 +10463,20 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[5].meltbp_cstring = " tix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#TIX__L7*/ meltfnum[1]; - /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2711:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ + meltfptr[20] = 0 ; } ; } @@ -9572,7 +10489,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ { MELT_LOCATION("warmelt-modes.melt:2711:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -9581,9 +10499,11 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9613,10 +10533,12 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ meltfnum[8] = + /*_#IS_A__L10*/ + meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:2712:/ cond"); - /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[19] = (/*nil*/NULL);; @@ -9645,25 +10567,31 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[2].meltbp_long = 2712; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V19*/ meltfptr[18]; - /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[19] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2712:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; + /*_.IFCPP___V22*/ + meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2712:/ clear"); - /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L10*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9675,7 +10603,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -9686,7 +10615,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CTYPNAME__V26*/ meltfptr[19] = slot; + /*_.CTYPNAME__V26*/ + meltfptr[19] = slot; }; ; } @@ -9697,10 +10627,12 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; /*^compute*/ - /*_#TIXSUCC__L11*/ meltfnum[7] = + /*_#TIXSUCC__L11*/ + meltfnum[7] = ((1) + (/*_#TIX__L7*/ meltfnum[1]));; MELT_LOCATION("warmelt-modes.melt:2715:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5]))) ) /*then*/ @@ -9711,7 +10643,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.TYCNAME__V27*/ meltfptr[26] = slot; + /*_.TYCNAME__V27*/ + meltfptr[26] = slot; }; ; } @@ -9722,7 +10655,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2716:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9733,7 +10667,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.MAPMAGIC__V28*/ meltfptr[27] = slot; + /*_.MAPMAGIC__V28*/ + meltfptr[27] = slot; }; ; } @@ -9744,7 +10679,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2717:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9755,7 +10691,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.BOXMAGIC__V29*/ meltfptr[28] = slot; + /*_.BOXMAGIC__V29*/ + meltfptr[28] = slot; }; ; } @@ -9766,7 +10703,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2718:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9777,7 +10715,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.BOXSTRUCT__V30*/ meltfptr[29] = slot; + /*_.BOXSTRUCT__V30*/ + meltfptr[29] = slot; }; ; } @@ -9788,7 +10727,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2719:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9799,7 +10739,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.MAPSTRUCT__V31*/ meltfptr[30] = slot; + /*_.MAPSTRUCT__V31*/ + meltfptr[30] = slot; }; ; } @@ -9810,7 +10751,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2720:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[3]))) ) /*then*/ @@ -9821,7 +10763,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.ENTRYSTRUCT__V32*/ meltfptr[31] = slot; + /*_.ENTRYSTRUCT__V32*/ + meltfptr[31] = slot; }; ; } @@ -9855,7 +10798,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPNAME__V26*/ meltfptr[19]; /*^apply.arg*/ argtab[4].meltbp_cstring = " */"; - /*_.ADD2OUT__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V33*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9902,7 +10846,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[13].meltbp_aptr = (melt_ptr_t*) &/*_.BOXSTRUCT__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[14].meltbp_cstring = "), 0);"; - /*_.ADD2OUT__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V34*/ + meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9923,7 +10868,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[0].meltbp_cstring = "\n *dst = *src;\n\t dst->discr = (meltobject_ptr_t) newdiscrv\ ; \n\t resv = (melt_ptr_t) dst;\ \n }\n\t break;"; - /*_.ADD2OUT__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9939,7 +10885,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:2738:/ cond"); - /*cond*/ if (/*_.MAPSTRUCT__V31*/ meltfptr[30]) /*then*/ + /*cond*/ + if (/*_.MAPSTRUCT__V31*/ meltfptr[30]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9950,7 +10897,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if (/*_.ENTRYSTRUCT__V32*/ meltfptr[31]) /*then*/ + /*cond*/ + if (/*_.ENTRYSTRUCT__V32*/ meltfptr[31]) /*then*/ { /*^cond.then*/ /*_._IF___V37*/ meltfptr[36] = /*_.MAPMAGIC__V28*/ meltfptr[27];; @@ -9959,15 +10907,18 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ { MELT_LOCATION("warmelt-modes.melt:2738:/ cond.else"); - /*_._IF___V37*/ meltfptr[36] = /*reallynil*/ NULL ;; + /*_._IF___V37*/ + meltfptr[36] = /*reallynil*/ NULL ;; } ; /*^compute*/ - /*_._IF___V36*/ meltfptr[35] = /*_._IF___V37*/ meltfptr[36];; + /*_._IF___V36*/ + meltfptr[35] = /*_._IF___V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2738:/ clear"); - /*clear*/ /*_._IF___V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V37*/ + meltfptr[36] = 0 ; } ; } @@ -9978,7 +10929,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2738:/ cond"); - /*cond*/ if (/*_._IF___V36*/ meltfptr[35]) /*then*/ + /*cond*/ + if (/*_._IF___V36*/ meltfptr[35]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10042,18 +10994,23 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ *)dst, (const void*)curat, curva);\ \n\t }\n\t resv = (melt_ptr_t) dst;\ \n };\n break; "; - /*_.ADD2OUT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V39*/ meltfptr[38] = /*_.ADD2OUT__V40*/ meltfptr[39];; + /*_.LET___V39*/ + meltfptr[38] = /*_.ADD2OUT__V40*/ meltfptr[39];; MELT_LOCATION("warmelt-modes.melt:2739:/ clear"); - /*clear*/ /*_.ADD2OUT__V40*/ meltfptr[39] = 0 ; - /*_._IF___V38*/ meltfptr[36] = /*_.LET___V39*/ meltfptr[38];; + /*clear*/ /*_.ADD2OUT__V40*/ + meltfptr[39] = 0 ; + /*_._IF___V38*/ + meltfptr[36] = /*_.LET___V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2738:/ clear"); - /*clear*/ /*_.LET___V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.LET___V39*/ + meltfptr[38] = 0 ; } ; } @@ -10064,58 +11021,79 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; /*^compute*/ - /*_.LET___V25*/ meltfptr[23] = /*_._IF___V38*/ meltfptr[36];; + /*_.LET___V25*/ + meltfptr[23] = /*_._IF___V38*/ meltfptr[36];; MELT_LOCATION("warmelt-modes.melt:2713:/ clear"); - /*clear*/ /*_.CTYPNAME__V26*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CTYPNAME__V26*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#TIXSUCC__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#TIXSUCC__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.TYCNAME__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.TYCNAME__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPMAGIC__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MAPMAGIC__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXMAGIC__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.BOXMAGIC__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXSTRUCT__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.BOXSTRUCT__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPSTRUCT__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.MAPSTRUCT__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.ENTRYSTRUCT__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.ENTRYSTRUCT__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ADD2OUT__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.ADD2OUT__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.ADD2OUT__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[36] = 0 ; if (/*_#TIX__L7*/ meltfnum[1]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2708:/ clear"); - /*clear*/ /*_.CURCTYP__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.CURCTYP__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#TIX__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_.LET___V25*/ + meltfptr[23] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-modes.melt:2702:/ clear"); - /*clear*/ /*_#NBCTYGTYTUP__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBCTYGTYTUP__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_.ADD2OUT__V18*/ + meltfptr[5] = 0 ; MELT_LOCATION("warmelt-modes.melt:2766:/ quasiblock"); - /*_#NBVALDESC__L12*/ meltfnum[8] = + /*_#NBVALDESC__L12*/ + meltfnum[8] = (melt_multiple_length((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])));; { @@ -10143,7 +11121,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[1].meltbp_long = /*_#NBVALDESC__L12*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_cstring = " value descriptors *******/"; - /*_.ADD2OUT__V41*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V41*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -10168,7 +11147,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -10179,7 +11159,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMVALDESC__V44*/ meltfptr[26] = slot; + /*_.NAMVALDESC__V44*/ + meltfptr[26] = slot; }; ; } @@ -10190,7 +11171,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2776:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[6]))) ) /*then*/ @@ -10201,7 +11183,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]) /*=obj*/; melt_object_get_field(slot,obj, 10, "VALDESC_CLONECHUNK"); - /*_.CLONEVALCHK__V45*/ meltfptr[27] = slot; + /*_.CLONEVALCHK__V45*/ + meltfptr[27] = slot; }; ; } @@ -10212,7 +11195,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2777:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[6]))) ) /*then*/ @@ -10223,7 +11207,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALSTRUCT__V46*/ meltfptr[28] = slot; + /*_.VALSTRUCT__V46*/ + meltfptr[28] = slot; }; ; } @@ -10234,7 +11219,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; MELT_LOCATION("warmelt-modes.melt:2778:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[6]))) ) /*then*/ @@ -10245,7 +11231,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V42*/ meltfptr[38]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALOBJMAGIC__V47*/ meltfptr[29] = slot; + /*_.VALOBJMAGIC__V47*/ + meltfptr[29] = slot; }; ; } @@ -10256,7 +11243,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ } ; /*^compute*/ - /*_#VALDIXSUCC__L14*/ meltfnum[0] = + /*_#VALDIXSUCC__L14*/ + meltfnum[0] = ((1) + (/*_#VALDIX__L13*/ meltfnum[7]));; MELT_CHECK_SIGNAL(); @@ -10276,7 +11264,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.NAMVALDESC__V44*/ meltfptr[26]; /*^apply.arg*/ argtab[4].meltbp_cstring = " **/"; - /*_.ADD2OUT__V48*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V48*/ + meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -10288,10 +11277,12 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; - /*_#eqeq__L15*/ meltfnum[14] = + /*_#eqeq__L15*/ + meltfnum[14] = ((/*_.CLONEVALCHK__V45*/ meltfptr[27]) == ((/*!konst_7_TRUE*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-modes.melt:2784:/ cond"); - /*cond*/ if (/*_#eqeq__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#eqeq__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10339,14 +11330,17 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ )newdiscrv;\n\t\t resv = (melt_ptr_t) dst;\ \n\t\t }\n\t\t \ break; "; - /*_.ADD2OUT__V50*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V50*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V49*/ meltfptr[31] = /*_.ADD2OUT__V50*/ meltfptr[32];; + /*_._IFELSE___V49*/ + meltfptr[31] = /*_.ADD2OUT__V50*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2784:/ clear"); - /*clear*/ /*_.ADD2OUT__V50*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ADD2OUT__V50*/ + meltfptr[32] = 0 ; } ; } @@ -10360,10 +11354,12 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L16*/ meltfnum[15] = + /*_#IS_STRING__L16*/ + meltfnum[15] = (melt_magic_discr((melt_ptr_t)(/*_.CLONEVALCHK__V45*/ meltfptr[27])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:2797:/ cond"); - /*cond*/ if (/*_#IS_STRING__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10409,14 +11405,17 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ /*^apply.arg*/ argtab[14].meltbp_cstring = ";\n\t\t if (dst) \n\t\t resv = (melt_ptr_t) dst;\ \n\t\t };\n\t\t break;"; - /*_.ADD2OUT__V52*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V52*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V51*/ meltfptr[33] = /*_.ADD2OUT__V52*/ meltfptr[34];; + /*_._IFELSE___V51*/ + meltfptr[33] = /*_.ADD2OUT__V52*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2797:/ clear"); - /*clear*/ /*_.ADD2OUT__V52*/ meltfptr[34] = 0 ; + /*clear*/ /*_.ADD2OUT__V52*/ + meltfptr[34] = 0 ; } ; } @@ -10430,10 +11429,12 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; - /*_#NULL__L17*/ meltfnum[16] = + /*_#NULL__L17*/ + meltfnum[16] = (/*null*/(/*_.CLONEVALCHK__V45*/ meltfptr[27]) == NULL);; MELT_LOCATION("warmelt-modes.melt:2811:/ cond"); - /*cond*/ if (/*_#NULL__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#NULL__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10458,14 +11459,17 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALOBJMAGIC__V47*/ meltfptr[29]; /*^apply.arg*/ argtab[4].meltbp_cstring = ": break;"; - /*_.ADD2OUT__V54*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V54*/ + meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V53*/ meltfptr[35] = /*_.ADD2OUT__V54*/ meltfptr[36];; + /*_._IFELSE___V53*/ + meltfptr[35] = /*_.ADD2OUT__V54*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2811:/ clear"); - /*clear*/ /*_.ADD2OUT__V54*/ meltfptr[36] = 0 ; + /*clear*/ /*_.ADD2OUT__V54*/ + meltfptr[36] = 0 ; } ; } @@ -10496,7 +11500,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[17] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10505,7 +11510,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2817:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10542,16 +11548,20 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[5].meltbp_cstring = " valdix="; /*^apply.arg*/ argtab[6].meltbp_long = /*_#VALDIX__L13*/ meltfnum[7]; - /*_.MELT_DEBUG_FUN__V56*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V55*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[32];; + /*_._IF___V55*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2817:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ meltfptr[32] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V56*/ + meltfptr[32] = 0 ; } ; } @@ -10564,7 +11574,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ { MELT_LOCATION("warmelt-modes.melt:2817:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10573,9 +11584,11 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V55*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V55*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10607,76 +11620,99 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ argtab[0].meltbp_cstring = "invalid cloning for $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMVALDESC__V44*/ meltfptr[26]; - /*_.ERROR_AT__V57*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V57*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:2816:/ quasiblock"); - /*_.PROGN___V58*/ meltfptr[36] = /*_.ERROR_AT__V57*/ meltfptr[34];; + /*_.PROGN___V58*/ + meltfptr[36] = /*_.ERROR_AT__V57*/ meltfptr[34];; /*^compute*/ - /*_._IFELSE___V53*/ meltfptr[35] = /*_.PROGN___V58*/ meltfptr[36];; + /*_._IFELSE___V53*/ + meltfptr[35] = /*_.PROGN___V58*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2811:/ clear"); - /*clear*/ /*_.ERROR_AT__V57*/ meltfptr[34] = 0 ; + /*clear*/ /*_.ERROR_AT__V57*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V58*/ meltfptr[36] = 0 ; + /*clear*/ /*_.PROGN___V58*/ + meltfptr[36] = 0 ; } ; } ; - /*_._IFELSE___V51*/ meltfptr[33] = /*_._IFELSE___V53*/ meltfptr[35];; + /*_._IFELSE___V51*/ + meltfptr[33] = /*_._IFELSE___V53*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2797:/ clear"); - /*clear*/ /*_#NULL__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#NULL__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V53*/ meltfptr[35] = 0 ; + /*clear*/ /*_._IFELSE___V53*/ + meltfptr[35] = 0 ; } ; } ; - /*_._IFELSE___V49*/ meltfptr[31] = /*_._IFELSE___V51*/ meltfptr[33];; + /*_._IFELSE___V49*/ + meltfptr[31] = /*_._IFELSE___V51*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2784:/ clear"); - /*clear*/ /*_#IS_STRING__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#IS_STRING__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V51*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V51*/ + meltfptr[33] = 0 ; } ; } ; - /*_.LET___V43*/ meltfptr[19] = /*_._IFELSE___V49*/ meltfptr[31];; + /*_.LET___V43*/ + meltfptr[19] = /*_._IFELSE___V49*/ meltfptr[31];; MELT_LOCATION("warmelt-modes.melt:2775:/ clear"); - /*clear*/ /*_.NAMVALDESC__V44*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NAMVALDESC__V44*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CLONEVALCHK__V45*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CLONEVALCHK__V45*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.VALSTRUCT__V46*/ meltfptr[28] = 0 ; + /*clear*/ /*_.VALSTRUCT__V46*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.VALOBJMAGIC__V47*/ meltfptr[29] = 0 ; + /*clear*/ /*_.VALOBJMAGIC__V47*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#VALDIXSUCC__L14*/ meltfnum[0] = 0 ; + /*clear*/ /*_#VALDIXSUCC__L14*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V48*/ meltfptr[30] = 0 ; + /*clear*/ /*_.ADD2OUT__V48*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#eqeq__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V49*/ meltfptr[31] = 0 ; + /*clear*/ /*_._IFELSE___V49*/ + meltfptr[31] = 0 ; if (/*_#VALDIX__L13*/ meltfnum[7]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2771:/ clear"); - /*clear*/ /*_.CURVALDESC__V42*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CURVALDESC__V42*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#VALDIX__L13*/ meltfnum[7] = 0 ; + /*clear*/ /*_#VALDIX__L13*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V43*/ meltfptr[19] = 0 ; + /*clear*/ /*_.LET___V43*/ + meltfptr[19] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -10687,9 +11723,11 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ ; MELT_LOCATION("warmelt-modes.melt:2766:/ clear"); - /*clear*/ /*_#NBVALDESC__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NBVALDESC__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V41*/ meltfptr[39] = 0 ; + /*clear*/ /*_.ADD2OUT__V41*/ + meltfptr[39] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -10705,7 +11743,8 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ \n} /* end of generated meltgc_clone_with_discriminant */\ \n#undef resv\n#undef srcvalv\n#undef newdiscrv\ \n#undef discrv\n#undef compv\n"; - /*_.ADD2OUT__V59*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V59*/ + meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -10720,15 +11759,20 @@ NANT)\n goto end;\n if (!melt_is_instance_of((melt_ptr_t)newdiscrv\ /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2651:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.ADD2OUT__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V59*/ meltfptr[32] = 0 ; + /*clear*/ /*_.ADD2OUT__V59*/ + meltfptr[32] = 0 ; } ; @@ -10810,7 +11854,8 @@ meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING(meltclosure_ptr_t me /* end of frame for routine meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING fromline 1756 */ - /* classy proc frame meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING */ MeltFrame_meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING + /* classy proc frame meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING */ + MeltFrame_meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING fromline 1785*/ #if ENABLE_CHECKING @@ -10823,7 +11868,8 @@ meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING(meltclosure_ptr_t me #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_SCANNING", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -10833,26 +11879,30 @@ meltrout_52_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_SCANNING(meltclosure_ptr_t me /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:2847:/ getarg"); - /*_.CTYGTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYGTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTNAME__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTNAME__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTNAME__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -10884,7 +11934,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10893,7 +11944,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2848:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10926,16 +11978,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_scanning start outname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTNAME__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2848:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -10948,7 +12004,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2848:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -10957,9 +12014,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10989,10 +12048,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYGTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2850:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -11021,25 +12082,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2850; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYGTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2850:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2850:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11057,10 +12124,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:2851:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -11089,25 +12158,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2851; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2851:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2851:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11125,10 +12200,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:2852:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -11157,25 +12234,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2852; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2852:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2852:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11204,7 +12287,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2856:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** start of code generated by generate_runtypesupport_scanning **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** start of code generated by generate_runtypesupport_scanning **/")); } ; @@ -11216,8 +12300,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2860:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); } ; @@ -11258,7 +12343,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11267,7 +12353,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2885:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11300,16 +12387,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_scanning curvaldesc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V17*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2885:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -11322,7 +12413,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2885:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11331,9 +12423,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11363,10 +12457,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[7] = + /*_#IS_A__L9*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:2886:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[5] = (/*nil*/NULL);; @@ -11395,25 +12491,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 2886; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V17*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2886:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2886:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11430,10 +12532,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2888:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*valdesc #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*valdesc #")); } ; - /*_#plI__L10*/ meltfnum[1] = + /*_#plI__L10*/ + meltfnum[1] = ((1) + (/*_#VIX__L6*/ meltfnum[0]));; { @@ -11444,11 +12548,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2890:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2891:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -11459,7 +12565,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V23*/ meltfptr[21] = slot; + /*_.NAMED_NAME__V23*/ + meltfptr[21] = slot; }; ; } @@ -11479,7 +12586,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2892:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -11491,11 +12599,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2894:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); } ; MELT_LOCATION("warmelt-modes.melt:2895:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11506,7 +12616,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5] = slot; + /*_.VALDESC_OBJMAGIC__V24*/ + meltfptr[5] = slot; }; ; } @@ -11519,21 +12630,24 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2895:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5]))); } ; { MELT_LOCATION("warmelt-modes.melt:2896:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); } ; MELT_LOCATION("warmelt-modes.melt:2897:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11544,7 +12658,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 9, "VALDESC_FORWCHUNK"); - /*_.FWCHK__V25*/ meltfptr[24] = slot; + /*_.FWCHK__V25*/ + meltfptr[24] = slot; }; ; } @@ -11558,7 +12673,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:2899:/ cond"); - /*cond*/ if (/*_.FWCHK__V25*/ meltfptr[24]) /*then*/ + /*cond*/ + if (/*_.FWCHK__V25*/ meltfptr[24]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11574,11 +12690,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2902:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2903:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11589,7 +12707,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V26*/ meltfptr[25] = slot; + /*_.VALDESC_STRUCT__V26*/ + meltfptr[25] = slot; }; ; } @@ -11602,18 +12721,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2903:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V26*/ meltfptr[25]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V26*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-modes.melt:2904:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*src = (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*src = (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2905:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[3]))) ) /*then*/ @@ -11624,7 +12746,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 3, "VALDESC_STRUCT"); - /*_.VALDESC_STRUCT__V27*/ meltfptr[26] = slot; + /*_.VALDESC_STRUCT__V27*/ + meltfptr[26] = slot; }; ; } @@ -11637,14 +12760,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2905:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V27*/ meltfptr[26]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.VALDESC_STRUCT__V27*/ meltfptr[26]))); } ; { MELT_LOCATION("warmelt-modes.melt:2906:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); } ; @@ -11656,8 +12781,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2908:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.FWCHK__V25*/ meltfptr[24]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.FWCHK__V25*/ meltfptr[24]))); } ; MELT_LOCATION("warmelt-modes.melt:2900:/ quasiblock"); @@ -11666,16 +12792,19 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2899:/ clear"); - /*clear*/ /*_.VALDESC_STRUCT__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_STRUCT__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.VALDESC_STRUCT__V27*/ + meltfptr[26] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-modes.melt:2897:/ clear"); - /*clear*/ /*_.FWCHK__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.FWCHK__V25*/ + meltfptr[24] = 0 ; { MELT_LOCATION("warmelt-modes.melt:2910:/ locexp"); @@ -11685,7 +12814,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2911:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break; }")); } ; @@ -11700,17 +12830,23 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2882:/ clear"); - /*clear*/ /*_.CURVALDESC__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURVALDESC__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#VIX__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#VIX__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.VALDESC_OBJMAGIC__V24*/ meltfptr[5] = 0 ; + /*clear*/ /*_.VALDESC_OBJMAGIC__V24*/ + meltfptr[5] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -11722,7 +12858,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2917:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* GTY-ed ctypes scan forward for melt_scanning */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* GTY-ed ctypes scan forward for melt_scanning */")); } ; @@ -11763,7 +12900,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11772,7 +12910,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:2924:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11805,16 +12944,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_scanning curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V28*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[26] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[24];; + /*_._IF___V29*/ + meltfptr[26] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2924:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[24] = 0 ; } ; } @@ -11827,7 +12970,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2924:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -11836,9 +12980,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11861,10 +13007,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2925:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctype #")); } ; - /*_#plI__L14*/ meltfnum[12] = + /*_#plI__L14*/ + meltfnum[12] = ((1) + (/*_#TIX__L11*/ meltfnum[7]));; { @@ -11875,11 +13023,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2927:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:2928:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ @@ -11890,7 +13040,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V31*/ meltfptr[24] = slot; + /*_.NAMED_NAME__V31*/ + meltfptr[24] = slot; }; ; } @@ -11910,7 +13061,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2929:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -11922,11 +13074,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2932:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); } ; MELT_LOCATION("warmelt-modes.melt:2933:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -11937,7 +13091,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[26] = slot; + /*_.CTYPG_BOXEDMAGIC__V32*/ + meltfptr[26] = slot; }; ; } @@ -11950,14 +13105,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2933:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[26]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[26]))); } ; { MELT_LOCATION("warmelt-modes.melt:2934:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ":")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ":")); } ; @@ -11969,7 +13126,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2936:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break;")); } ; @@ -11981,11 +13139,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2939:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "case ")); } ; MELT_LOCATION("warmelt-modes.melt:2940:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -11996,7 +13156,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32] = slot; + /*_.CTYPG_MAPMAGIC__V33*/ + meltfptr[32] = slot; }; ; } @@ -12009,14 +13170,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2940:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32]))); } ; { MELT_LOCATION("warmelt-modes.melt:2941:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( ": {")); } ; @@ -12028,11 +13191,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2943:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2944:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12043,7 +13208,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V34*/ meltfptr[33] = slot; + /*_.CTYPG_MAPSTRUCT__V34*/ + meltfptr[33] = slot; }; ; } @@ -12056,18 +13222,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2944:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V34*/ meltfptr[33]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V34*/ meltfptr[33]))); } ; { MELT_LOCATION("warmelt-modes.melt:2945:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *src = (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *src = (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2946:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12078,7 +13247,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34] = slot; + /*_.CTYPG_MAPSTRUCT__V35*/ + meltfptr[34] = slot; }; ; } @@ -12091,14 +13261,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2946:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34]))); } ; { MELT_LOCATION("warmelt-modes.melt:2947:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*) p;")); } ; @@ -12110,7 +13282,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2949:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "int siz=0, ix=0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "int siz=0, ix=0;")); } ; @@ -12122,7 +13295,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2951:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELT_FORWARDED(src->meltmap_aux);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELT_FORWARDED(src->meltmap_aux);")); } ; @@ -12134,7 +13308,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2953:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (!src->entab) break;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (!src->entab) break;")); } ; @@ -12146,7 +13321,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2955:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "siz = melt_primtab[src->lenix];")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "siz = melt_primtab[src->lenix];")); } ; @@ -12158,7 +13334,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2957:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "gcc_assert (siz>0);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "gcc_assert (siz>0);")); } ; @@ -12170,7 +13347,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2959:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (melt_is_young (src->entab)) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (melt_is_young (src->entab)) {")); } ; @@ -12182,11 +13360,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2961:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2962:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12197,7 +13377,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V36*/ meltfptr[35] = slot; + /*_.CTYPG_ENTRYSTRUCT__V36*/ + meltfptr[35] = slot; }; ; } @@ -12210,18 +13391,21 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2962:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V36*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V36*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:2963:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "* newtab = ggc_alloc_vec_")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "* newtab = ggc_alloc_vec_")); } ; MELT_LOCATION("warmelt-modes.melt:2964:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12232,7 +13416,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36] = slot; + /*_.CTYPG_ENTRYSTRUCT__V37*/ + meltfptr[36] = slot; }; ; } @@ -12245,14 +13430,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2964:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36]))); } ; { MELT_LOCATION("warmelt-modes.melt:2965:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " (siz);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " (siz);")); } ; @@ -12264,11 +13451,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2967:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "memcpy (newtab, src->entab, siz * sizeof (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "memcpy (newtab, src->entab, siz * sizeof (struct ")); } ; MELT_LOCATION("warmelt-modes.melt:2968:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12279,7 +13468,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 17, "CTYPG_ENTRYSTRUCT"); - /*_.CTYPG_ENTRYSTRUCT__V38*/ meltfptr[37] = slot; + /*_.CTYPG_ENTRYSTRUCT__V38*/ + meltfptr[37] = slot; }; ; } @@ -12292,14 +13482,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2968:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V38*/ meltfptr[37]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_ENTRYSTRUCT__V38*/ meltfptr[37]))); } ; { MELT_LOCATION("warmelt-modes.melt:2969:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "));")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "));")); } ; @@ -12311,7 +13503,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2971:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "src->entab = newtab;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "src->entab = newtab;")); } ; @@ -12323,7 +13516,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2973:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} /*end if young entab */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} /*end if young entab */")); } ; @@ -12335,7 +13529,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2975:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "for (ix = 0; ix < siz; ix++) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "for (ix = 0; ix < siz; ix++) {")); } ; @@ -12345,7 +13540,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:2977:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -12356,7 +13552,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V39*/ meltfptr[38] = slot; + /*_.CTYPE_CNAME__V39*/ + meltfptr[38] = slot; }; ; } @@ -12369,14 +13566,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2977:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V39*/ meltfptr[38]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V39*/ meltfptr[38]))); } ; { MELT_LOCATION("warmelt-modes.melt:2978:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " at = src->entab[ix].e_at;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " at = src->entab[ix].e_at;")); } ; @@ -12388,7 +13587,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2980:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (!at || (void*) at == (void*) HTAB_DELETED_ENTRY) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "if (!at || (void*) at == (void*) HTAB_DELETED_ENTRY) {")); } ; @@ -12400,7 +13600,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2982:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "src->entab[ix].e_va = NULL;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "src->entab[ix].e_va = NULL;")); } ; @@ -12412,7 +13613,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2984:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "continue;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "continue;")); } ; @@ -12424,7 +13626,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2986:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} /*end if empty at */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} /*end if empty at */")); } ; @@ -12436,7 +13639,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2988:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELT_FORWARDED (src->entab[ix].e_va);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELT_FORWARDED (src->entab[ix].e_va);")); } ; @@ -12448,7 +13652,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2990:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} /*end for ix*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "} /*end for ix*/")); } ; @@ -12460,11 +13665,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2992:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "}; /* end case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "}; /* end case ")); } ; MELT_LOCATION("warmelt-modes.melt:2993:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[5]))) ) /*then*/ @@ -12475,7 +13682,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V28*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V40*/ meltfptr[39] = slot; + /*_.CTYPG_MAPMAGIC__V40*/ + meltfptr[39] = slot; }; ; } @@ -12488,14 +13696,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2993:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V40*/ meltfptr[39]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V40*/ meltfptr[39]))); } ; { MELT_LOCATION("warmelt-modes.melt:2994:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " */")); } ; @@ -12507,7 +13717,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:2996:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "break;")); } ; @@ -12522,38 +13733,52 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:2921:/ clear"); - /*clear*/ /*_.CURCTYP__V28*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CURCTYP__V28*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#TIX__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#plI__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V31*/ meltfptr[24] = 0 ; + /*clear*/ /*_.NAMED_NAME__V31*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDMAGIC__V32*/ meltfptr[26] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDMAGIC__V32*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.CTYPG_ENTRYSTRUCT__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V40*/ + meltfptr[39] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:3000:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])))); } ; @@ -12565,7 +13790,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3009:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/**end of code generated by generate_runtypesupport_scanning **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/**end of code generated by generate_runtypesupport_scanning **/")); } ; @@ -12580,11 +13806,14 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:2847:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -12666,7 +13895,8 @@ meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM(meltclosure_ptr_t meltc /* end of frame for routine meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM fromline 1756 */ - /* classy proc frame meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM */ MeltFrame_meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM + /* classy proc frame meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM */ + MeltFrame_meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM fromline 1785*/ #if ENABLE_CHECKING @@ -12679,7 +13909,8 @@ meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM(meltclosure_ptr_t meltc #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_PARAM", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12689,26 +13920,30 @@ meltrout_53_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PARAM(meltclosure_ptr_t meltc /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:3019:/ getarg"); - /*_.CTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTNAME__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTNAME__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTNAME__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -12740,7 +13975,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12749,7 +13985,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3020:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12782,16 +14019,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_param start outname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTNAME__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3020:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -12804,7 +14045,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3020:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -12813,9 +14055,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12845,10 +14089,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3021:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -12877,25 +14123,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3021; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3021:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3021:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12913,10 +14165,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3022:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -12945,25 +14199,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3022; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3022:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3022:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12981,10 +14241,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3023:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -13013,25 +14275,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3023; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3023:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3023:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13048,9 +14316,11 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3025:/ quasiblock"); - /*_#NUMDELTA__L6*/ meltfnum[0] = 1;; + /*_#NUMDELTA__L6*/ + meltfnum[0] = 1;; /*^compute*/ - /*_#LASTNUM__L7*/ meltfnum[1] = 0;; + /*_#LASTNUM__L7*/ + meltfnum[1] = 0;; { MELT_LOCATION("warmelt-modes.melt:3031:/ locexp"); @@ -13066,7 +14336,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3033:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** start of code generated by generate_runtypesupport_param **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** start of code generated by generate_runtypesupport_param **/")); } ; @@ -13078,7 +14349,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3036:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* support for MELT parameter passing*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* support for MELT parameter passing*/")); } ; @@ -13090,7 +14362,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3041:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "enum /* generated enumeration for MELT parameters */ {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "enum /* generated enumeration for MELT parameters */ {")); } ; @@ -13102,7 +14375,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3043:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELTBPAR__NONE=0,")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "MELTBPAR__NONE=0,")); } ; @@ -13143,7 +14417,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13152,7 +14427,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3048:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13185,16 +14461,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_param curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V17*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3048:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -13207,7 +14487,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3048:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13216,9 +14497,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13241,10 +14524,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3049:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*gtyctype #")); } ; - /*_#plI__L11*/ meltfnum[9] = + /*_#plI__L11*/ + meltfnum[9] = ((1) + (/*_#TIX__L8*/ meltfnum[7]));; { @@ -13255,11 +14540,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3051:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3052:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2]))) ) /*then*/ @@ -13270,7 +14557,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V20*/ meltfptr[18] = slot; + /*_.NAMED_NAME__V20*/ + meltfptr[18] = slot; }; ; } @@ -13290,7 +14578,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3053:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -13303,7 +14592,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13314,7 +14604,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CTYPE_PARCHAR"); - /*_.CTYPCHAR__V21*/ meltfptr[5] = slot; + /*_.CTYPCHAR__V21*/ + meltfptr[5] = slot; }; ; } @@ -13325,7 +14616,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3056:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -13336,7 +14628,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CTYPE_PARSTRING"); - /*_.CTYPSTR__V22*/ meltfptr[21] = slot; + /*_.CTYPSTR__V22*/ + meltfptr[21] = slot; }; ; } @@ -13350,7 +14643,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3060:/ cond"); - /*cond*/ if (/*_.CTYPCHAR__V21*/ meltfptr[5]) /*then*/ + /*cond*/ + if (/*_.CTYPCHAR__V21*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13360,17 +14654,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3061:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPCHAR__V21*/ meltfptr[5]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPCHAR__V21*/ meltfptr[5]))); } ; { MELT_LOCATION("warmelt-modes.melt:3062:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*=")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*=")); } ; - /*_#plI__L12*/ meltfnum[8] = + /*_#plI__L12*/ + meltfnum[8] = ((/*_#NUMDELTA__L6*/ meltfnum[0]) + (/*_#TIX__L8*/ meltfnum[7]));; { @@ -13378,14 +14675,17 @@ meltlab_endgetargs: meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (/*_#plI__L12*/ meltfnum[8])); } ; - /*_#plI__L13*/ meltfnum[12] = + /*_#plI__L13*/ + meltfnum[12] = ((/*_#NUMDELTA__L6*/ meltfnum[0]) + (/*_#TIX__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-modes.melt:3064:/ compute"); - /*_#LASTNUM__L7*/ meltfnum[1] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];; + /*_#LASTNUM__L7*/ + meltfnum[1] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];; { MELT_LOCATION("warmelt-modes.melt:3065:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/,")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/,")); } ; MELT_LOCATION("warmelt-modes.melt:3060:/ quasiblock"); @@ -13394,11 +14694,14 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#plI__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#plI__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#plI__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#SETQ___L14*/ + meltfnum[13] = 0 ; } ; } @@ -13412,7 +14715,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3068:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*-- non parameter --*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*-- non parameter --*/")); } ; MELT_LOCATION("warmelt-modes.melt:3067:/ quasiblock"); @@ -13433,7 +14737,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3072:/ cond"); - /*cond*/ if (/*_.CTYPSTR__V22*/ meltfptr[21]) /*then*/ + /*cond*/ + if (/*_.CTYPSTR__V22*/ meltfptr[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13443,23 +14748,27 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3073:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "#define ")); } ; { MELT_LOCATION("warmelt-modes.melt:3074:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPSTR__V22*/ meltfptr[21]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPSTR__V22*/ meltfptr[21]))); } ; { MELT_LOCATION("warmelt-modes.melt:3075:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " \"\\x")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " \"\\x")); } ; - /*_#plI__L16*/ meltfnum[12] = + /*_#plI__L16*/ + meltfnum[12] = ((/*_#NUMDELTA__L6*/ meltfnum[0]) + (/*_#TIX__L8*/ meltfnum[7]));; { @@ -13470,29 +14779,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3077:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "\"")); } ; - /*_#plI__L17*/ meltfnum[13] = + /*_#plI__L17*/ + meltfnum[13] = ((/*_#NUMDELTA__L6*/ meltfnum[0]) + (/*_#TIX__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-modes.melt:3078:/ compute"); - /*_#LASTNUM__L7*/ meltfnum[1] = /*_#SETQ___L18*/ meltfnum[17] = /*_#plI__L17*/ meltfnum[13];; + /*_#LASTNUM__L7*/ + meltfnum[1] = /*_#SETQ___L18*/ meltfnum[17] = /*_#plI__L17*/ meltfnum[13];; MELT_LOCATION("warmelt-modes.melt:3072:/ quasiblock"); - /*_#PROGN___L19*/ meltfnum[18] = /*_#SETQ___L18*/ meltfnum[17];; + /*_#PROGN___L19*/ + meltfnum[18] = /*_#SETQ___L18*/ meltfnum[17];; /*^compute*/ - /*_#_IFELSE___L15*/ meltfnum[8] = /*_#PROGN___L19*/ meltfnum[18];; + /*_#_IFELSE___L15*/ + meltfnum[8] = /*_#PROGN___L19*/ meltfnum[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3072:/ clear"); - /*clear*/ /*_#plI__L16*/ meltfnum[12] = 0 ; + /*clear*/ /*_#plI__L16*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L17*/ meltfnum[13] = 0 ; + /*clear*/ /*_#plI__L17*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#SETQ___L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_#PROGN___L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#PROGN___L19*/ + meltfnum[18] = 0 ; } ; } @@ -13506,7 +14824,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3080:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*-- non paramstr --*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " /*-- non paramstr --*/")); } ; MELT_LOCATION("warmelt-modes.melt:3079:/ quasiblock"); @@ -13531,32 +14850,40 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3055:/ clear"); - /*clear*/ /*_.CTYPCHAR__V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_.CTYPCHAR__V21*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPSTR__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CTYPSTR__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#_IFELSE___L15*/ meltfnum[8] = 0 ; + /*clear*/ /*_#_IFELSE___L15*/ + meltfnum[8] = 0 ; MELT_LOCATION("warmelt-modes.melt:3087:/ quasiblock"); - /*_#ARGDESCRMAX__L20*/ meltfnum[12] = 0;; + /*_#ARGDESCRMAX__L20*/ + meltfnum[12] = 0;; { MELT_LOCATION("warmelt-modes.melt:3088:/ locexp"); /*SETARGDESCRMAX__1*/ - /*_#ARGDESCRMAX__L20*/ meltfnum[12] = MELT_ARGDESCR_MAX ;; + /*_#ARGDESCRMAX__L20*/ + meltfnum[12] = MELT_ARGDESCR_MAX ;; } ; MELT_CHECK_SIGNAL(); ; - /*_#miI__L21*/ meltfnum[13] = + /*_#miI__L21*/ + meltfnum[13] = ((/*_#ARGDESCRMAX__L20*/ meltfnum[12]) - (10));; /*^compute*/ - /*_#gtI__L22*/ meltfnum[17] = + /*_#gtI__L22*/ + meltfnum[17] = ((/*_#LASTNUM__L7*/ meltfnum[1]) > (/*_#miI__L21*/ meltfnum[13]));; MELT_LOCATION("warmelt-modes.melt:3092:/ cond"); - /*cond*/ if (/*_#gtI__L22*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#gtI__L22*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13575,7 +14902,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "too many $1 ctypes for generated enum with MELTBPAR* w.r.t. MELT_ARGDESCR_MAX"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#LASTNUM__L7*/ meltfnum[1]; - /*_.ERROR_AT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -13588,13 +14916,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#miI__L23*/ meltfnum[18] = + /*_#miI__L23*/ + meltfnum[18] = ((/*_#ARGDESCRMAX__L20*/ meltfnum[12]) - (2));; /*^compute*/ - /*_#ltI__L24*/ meltfnum[8] = + /*_#ltI__L24*/ + meltfnum[8] = ((/*_#LASTNUM__L7*/ meltfnum[1]) < (/*_#miI__L23*/ meltfnum[18]));; MELT_LOCATION("warmelt-modes.melt:3095:/ cond"); - /*cond*/ if (/*_#ltI__L24*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#ltI__L24*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V27*/ meltfptr[26] = (/*nil*/NULL);; @@ -13623,27 +14954,34 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3095; /*^apply.arg*/ argtab[3].meltbp_long = /*_#LASTNUM__L7*/ meltfnum[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V27*/ meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; + /*_._IFELSE___V27*/ + meltfptr[26] = /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3095:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V28*/ + meltfptr[27] = 0 ; } ; } ; - /*_.IFCPP___V26*/ meltfptr[25] = /*_._IFELSE___V27*/ meltfptr[26];; + /*_.IFCPP___V26*/ + meltfptr[25] = /*_._IFELSE___V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3095:/ clear"); - /*clear*/ /*_#miI__L23*/ meltfnum[18] = 0 ; + /*clear*/ /*_#miI__L23*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#ltI__L24*/ meltfnum[8] = 0 ; + /*clear*/ /*_#ltI__L24*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V27*/ + meltfptr[26] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13654,17 +14992,22 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3092:/ quasiblock"); - /*_.PROGN___V29*/ meltfptr[27] = /*_.IFCPP___V26*/ meltfptr[25];; + /*_.PROGN___V29*/ + meltfptr[27] = /*_.IFCPP___V26*/ meltfptr[25];; /*^compute*/ - /*_._IFELSE___V24*/ meltfptr[21] = /*_.PROGN___V29*/ meltfptr[27];; + /*_._IFELSE___V24*/ + meltfptr[21] = /*_.PROGN___V29*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3092:/ clear"); - /*clear*/ /*_.ERROR_AT__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.ERROR_AT__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V29*/ meltfptr[27] = 0 ; + /*clear*/ /*_.PROGN___V29*/ + meltfptr[27] = 0 ; } ; } @@ -13678,13 +15021,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#miI__L25*/ meltfnum[18] = + /*_#miI__L25*/ + meltfnum[18] = ((/*_#ARGDESCRMAX__L20*/ meltfnum[12]) - (20));; /*^compute*/ - /*_#gtI__L26*/ meltfnum[8] = + /*_#gtI__L26*/ + meltfnum[8] = ((/*_#LASTNUM__L7*/ meltfnum[1]) > (/*_#miI__L25*/ meltfnum[18]));; MELT_LOCATION("warmelt-modes.melt:3097:/ cond"); - /*cond*/ if (/*_#gtI__L26*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#gtI__L26*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13699,7 +15045,8 @@ meltlab_endgetargs: warning(0, "MELT WARNING MSG [#%ld]::: %s", melt_dbgcounter, ( "the number of ctypes is dangerously near MELT_ARGDESCR_MAX")); } ; - /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[26] = 0 ; /*epilog*/ } ; @@ -13708,54 +15055,70 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3097:/ cond.else"); - /*_._IFELSE___V30*/ meltfptr[26] = /*reallynil*/ NULL ;; + /*_._IFELSE___V30*/ + meltfptr[26] = /*reallynil*/ NULL ;; } ; /*^compute*/ - /*_._IFELSE___V24*/ meltfptr[21] = /*_._IFELSE___V30*/ meltfptr[26];; + /*_._IFELSE___V24*/ + meltfptr[21] = /*_._IFELSE___V30*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3092:/ clear"); - /*clear*/ /*_#miI__L25*/ meltfnum[18] = 0 ; + /*clear*/ /*_#miI__L25*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L26*/ meltfnum[8] = 0 ; + /*clear*/ /*_#gtI__L26*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V30*/ meltfptr[26] = 0 ; + /*clear*/ /*_._IFELSE___V30*/ + meltfptr[26] = 0 ; } ; } ; - /*_.LET___V23*/ meltfptr[5] = /*_._IFELSE___V24*/ meltfptr[21];; + /*_.LET___V23*/ + meltfptr[5] = /*_._IFELSE___V24*/ meltfptr[21];; MELT_LOCATION("warmelt-modes.melt:3087:/ clear"); - /*clear*/ /*_#ARGDESCRMAX__L20*/ meltfnum[12] = 0 ; + /*clear*/ /*_#ARGDESCRMAX__L20*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#miI__L21*/ meltfnum[13] = 0 ; + /*clear*/ /*_#miI__L21*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L22*/ meltfnum[17] = 0 ; + /*clear*/ /*_#gtI__L22*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V24*/ meltfptr[21] = 0 ; + /*clear*/ /*_._IFELSE___V24*/ + meltfptr[21] = 0 ; if (/*_#TIX__L8*/ meltfnum[7]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3045:/ clear"); - /*clear*/ /*_.CURCTYP__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURCTYP__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#TIX__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#plI__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.NAMED_NAME__V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V23*/ meltfptr[5] = 0 ; + /*clear*/ /*_.LET___V23*/ + meltfptr[5] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:3103:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " MELTBPAR__LAST}; /*end enum for MELT parameters*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " MELTBPAR__LAST}; /*end enum for MELT parameters*/")); } ; @@ -13773,7 +15136,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3107:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "union meltparam_un /* generated union for MELT parameters */ {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "union meltparam_un /* generated union for MELT parameters */ {")); } ; @@ -13785,7 +15149,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3109:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "void* meltbp_any;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "void* meltbp_any;")); } ; @@ -13826,7 +15191,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L28*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13835,7 +15201,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3114:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L28*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13868,16 +15235,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_param curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V31*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V32*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[27];; + /*_._IF___V32*/ + meltfptr[25] = /*_.MELT_DEBUG_FUN__V33*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3114:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ meltfptr[27] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V33*/ + meltfptr[27] = 0 ; } ; } @@ -13890,7 +15261,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3114:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -13899,9 +15271,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V32*/ meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V32*/ + meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13930,10 +15304,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3116:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*ctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*ctype #")); } ; - /*_#plI__L30*/ meltfnum[13] = + /*_#plI__L30*/ + meltfnum[13] = ((1) + (/*_#TIX__L27*/ meltfnum[18]));; { @@ -13944,11 +15320,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3118:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3119:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2]))) ) /*then*/ @@ -13959,7 +15337,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V34*/ meltfptr[26] = slot; + /*_.NAMED_NAME__V34*/ + meltfptr[26] = slot; }; ; } @@ -13979,7 +15358,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3120:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -13992,7 +15372,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -14003,7 +15384,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 7, "CTYPE_ARGFIELD"); - /*_.ARGTYP__V35*/ meltfptr[21] = slot; + /*_.ARGTYP__V35*/ + meltfptr[21] = slot; }; ; } @@ -14014,7 +15396,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3123:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -14025,7 +15408,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 8, "CTYPE_RESFIELD"); - /*_.RESTYP__V36*/ meltfptr[27] = slot; + /*_.RESTYP__V36*/ + meltfptr[27] = slot; }; ; } @@ -14039,7 +15423,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3126:/ cond"); - /*cond*/ if (/*_.ARGTYP__V35*/ meltfptr[21]) /*then*/ + /*cond*/ + if (/*_.ARGTYP__V35*/ meltfptr[21]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14047,7 +15432,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3127:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -14058,7 +15444,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V37*/ meltfptr[25] = slot; + /*_.CTYPE_CNAME__V37*/ + meltfptr[25] = slot; }; ; } @@ -14071,27 +15458,31 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3127:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V37*/ meltfptr[25]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V37*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-modes.melt:3128:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " ")); } ; { MELT_LOCATION("warmelt-modes.melt:3129:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.ARGTYP__V35*/ meltfptr[21]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.ARGTYP__V35*/ meltfptr[21]))); } ; { MELT_LOCATION("warmelt-modes.melt:3130:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /*argument param.*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /*argument param.*/")); } ; MELT_LOCATION("warmelt-modes.melt:3126:/ quasiblock"); @@ -14100,7 +15491,8 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V37*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V37*/ + meltfptr[25] = 0 ; } ; } @@ -14114,7 +15506,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3133:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* no argument */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/* no argument */")); } ; MELT_LOCATION("warmelt-modes.melt:3132:/ quasiblock"); @@ -14135,7 +15528,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3138:/ cond"); - /*cond*/ if (/*_.RESTYP__V36*/ meltfptr[27]) /*then*/ + /*cond*/ + if (/*_.RESTYP__V36*/ meltfptr[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14149,7 +15543,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3140:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[3]))) ) /*then*/ @@ -14160,7 +15555,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V31*/ meltfptr[24]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V38*/ meltfptr[25] = slot; + /*_.CTYPE_CNAME__V38*/ + meltfptr[25] = slot; }; ; } @@ -14173,27 +15569,31 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3140:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V38*/ meltfptr[25]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CTYPE_CNAME__V38*/ meltfptr[25]))); } ; { MELT_LOCATION("warmelt-modes.melt:3141:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( " *")); } ; { MELT_LOCATION("warmelt-modes.melt:3142:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.RESTYP__V36*/ meltfptr[27]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.RESTYP__V36*/ meltfptr[27]))); } ; { MELT_LOCATION("warmelt-modes.melt:3143:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /*result param.*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "; /*result param.*/")); } ; MELT_LOCATION("warmelt-modes.melt:3138:/ quasiblock"); @@ -14202,7 +15602,8 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V38*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V38*/ + meltfptr[25] = 0 ; } ; } @@ -14222,7 +15623,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3147:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*no result*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/*no result*/")); } ; MELT_LOCATION("warmelt-modes.melt:3145:/ quasiblock"); @@ -14235,22 +15637,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3122:/ clear"); - /*clear*/ /*_.ARGTYP__V35*/ meltfptr[21] = 0 ; + /*clear*/ /*_.ARGTYP__V35*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.RESTYP__V36*/ meltfptr[27] = 0 ; + /*clear*/ /*_.RESTYP__V36*/ + meltfptr[27] = 0 ; if (/*_#TIX__L27*/ meltfnum[18]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3111:/ clear"); - /*clear*/ /*_.CURCTYP__V31*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CURCTYP__V31*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L27*/ meltfnum[18] = 0 ; + /*clear*/ /*_#TIX__L27*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L30*/ meltfnum[13] = 0 ; + /*clear*/ /*_#plI__L30*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[26] = 0 ; + /*clear*/ /*_.NAMED_NAME__V34*/ + meltfptr[26] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -14262,7 +15670,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3151:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "}; /* end generated union for MELT parameters */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "}; /* end generated union for MELT parameters */")); } ; @@ -14274,7 +15683,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3153:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** end of code generated by generate_runtypesupport_param **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), ( "/** end of code generated by generate_runtypesupport_param **/")); } ; @@ -14291,20 +15701,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3025:/ clear"); - /*clear*/ /*_#NUMDELTA__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NUMDELTA__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#LASTNUM__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#LASTNUM__L7*/ + meltfnum[1] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3019:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -14386,7 +15801,8 @@ meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE(meltclosure_ptr_t m /* end of frame for routine meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE fromline 1756 */ - /* classy proc frame meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE */ MeltFrame_meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE + /* classy proc frame meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE */ + MeltFrame_meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE fromline 1785*/ #if ENABLE_CHECKING @@ -14399,7 +15815,8 @@ meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE(meltclosure_ptr_t m #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_COD2CTYPE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14409,26 +15826,30 @@ meltrout_54_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_COD2CTYPE(meltclosure_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:3161:/ getarg"); - /*_.CTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTNAME__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTNAME__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTNAME__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) != NULL); ; @@ -14460,7 +15881,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14469,7 +15891,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3162:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14502,16 +15925,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_param start outname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTNAME__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3162:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -14524,7 +15951,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3162:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14533,9 +15961,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14565,10 +15995,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3163:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -14597,25 +16029,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3163; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3163:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3163:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14633,10 +16071,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3164:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -14665,25 +16105,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3164; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3164:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3164:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14701,10 +16147,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3165:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -14733,25 +16181,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3165; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3165:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3165:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14768,9 +16222,11 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3167:/ quasiblock"); - /*_#NUMDELTA__L6*/ meltfnum[0] = 1;; + /*_#NUMDELTA__L6*/ + meltfnum[0] = 1;; /*^compute*/ - /*_#LASTNUM__L7*/ meltfnum[1] = 0;; + /*_#LASTNUM__L7*/ + meltfnum[1] = 0;; { MELT_LOCATION("warmelt-modes.melt:3173:/ locexp"); @@ -14857,7 +16313,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14866,7 +16323,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3185:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14899,16 +16357,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_cod2ctype curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V17*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3185:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -14921,7 +16383,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3185:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -14930,9 +16393,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14955,10 +16420,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3186:/ quasiblock"); - /*_#TIXNEXT__L11*/ meltfnum[9] = + /*_#TIXNEXT__L11*/ + meltfnum[9] = ((/*_#TIX__L8*/ meltfnum[7]) + (1));; MELT_LOCATION("warmelt-modes.melt:3187:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[2]))) ) /*then*/ @@ -14969,7 +16436,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 5, "CTYPE_PARCHAR"); - /*_.CTYPCHAR__V21*/ meltfptr[5] = slot; + /*_.CTYPCHAR__V21*/ + meltfptr[5] = slot; }; ; } @@ -14980,7 +16448,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3188:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -14991,7 +16460,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CTYPNAME__V22*/ meltfptr[21] = slot; + /*_.CTYPNAME__V22*/ + meltfptr[21] = slot; }; ; } @@ -15025,7 +16495,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPNAME__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[4].meltbp_cstring = " */"; - /*_.ADD2OUT__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -15041,7 +16512,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3193:/ cond"); - /*cond*/ if (/*_.CTYPCHAR__V21*/ meltfptr[5]) /*then*/ + /*cond*/ + if (/*_.CTYPCHAR__V21*/ meltfptr[5]) /*then*/ { /*^cond.then*/ /*_._IF___V24*/ meltfptr[23] = /*_.CTYPNAME__V22*/ meltfptr[21];; @@ -15050,11 +16522,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3193:/ cond.else"); - /*_._IF___V24*/ meltfptr[23] = /*reallynil*/ NULL ;; + /*_._IF___V24*/ + meltfptr[23] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-modes.melt:3193:/ cond"); - /*cond*/ if (/*_._IF___V24*/ meltfptr[23]) /*then*/ + /*cond*/ + if (/*_._IF___V24*/ meltfptr[23]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15079,14 +16553,17 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPNAME__V22*/ meltfptr[21]; /*^apply.arg*/ argtab[4].meltbp_cstring = ");"; - /*_.ADD2OUT__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V26*/ + meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V25*/ meltfptr[24] = /*_.ADD2OUT__V26*/ meltfptr[25];; + /*_._IF___V25*/ + meltfptr[24] = /*_.ADD2OUT__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3193:/ clear"); - /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.ADD2OUT__V26*/ + meltfptr[25] = 0 ; } ; } @@ -15097,31 +16574,41 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.LET___V20*/ meltfptr[18] = /*_._IF___V25*/ meltfptr[24];; + /*_.LET___V20*/ + meltfptr[18] = /*_._IF___V25*/ meltfptr[24];; MELT_LOCATION("warmelt-modes.melt:3186:/ clear"); - /*clear*/ /*_#TIXNEXT__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#TIXNEXT__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPCHAR__V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_.CTYPCHAR__V21*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPNAME__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CTYPNAME__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.ADD2OUT__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V25*/ + meltfptr[24] = 0 ; if (/*_#TIX__L8*/ meltfnum[7]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3182:/ clear"); - /*clear*/ /*_.CURCTYP__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURCTYP__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#TIX__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.LET___V20*/ + meltfptr[18] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -15186,20 +16673,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3167:/ clear"); - /*clear*/ /*_#NUMDELTA__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NUMDELTA__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#LASTNUM__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#LASTNUM__L7*/ + meltfnum[1] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3161:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -15281,7 +16773,8 @@ meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR(meltclosure_ptr_t mel /* end of frame for routine meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR fromline 1756 */ - /* classy proc frame meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR */ MeltFrame_meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR + /* classy proc frame meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR */ + MeltFrame_meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR fromline 1785*/ #if ENABLE_CHECKING @@ -15294,7 +16787,8 @@ meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR(meltclosure_ptr_t mel #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_MAG2STR", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15304,33 +16798,38 @@ meltrout_55_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAG2STR(meltclosure_ptr_t mel /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:3211:/ getarg"); - /*_.CTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.VALDESCTUP__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.VALDESCTUP__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTNAME__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTNAME__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTNAME__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTDECLBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.OUTDECLBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTCODEBUF__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.OUTCODEBUF__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5])) != NULL); ; @@ -15362,7 +16861,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15371,7 +16871,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3212:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15404,16 +16905,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_mag2str start outname="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTNAME__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3212:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -15426,7 +16931,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3212:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15435,9 +16941,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15467,10 +16975,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3213:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[6] = (/*nil*/NULL);; @@ -15499,25 +17009,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3213; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V10*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; + /*_._IFELSE___V10*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3213:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ + meltfptr[10] = 0 ; } ; } ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; + /*_.IFCPP___V9*/ + meltfptr[7] = /*_._IFELSE___V10*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3213:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V10*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15535,10 +17051,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L4*/ meltfnum[0] = + /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.VALDESCTUP__V3*/ meltfptr[2])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3214:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V13*/ meltfptr[6] = (/*nil*/NULL);; @@ -15567,25 +17085,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3214; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.VALDESCTUP__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V13*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; + /*_._IFELSE___V13*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3214:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V14*/ + meltfptr[13] = 0 ; } ; } ; - /*_.IFCPP___V12*/ meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; + /*_.IFCPP___V12*/ + meltfptr[10] = /*_._IFELSE___V13*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3214:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V13*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V13*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15603,10 +17127,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3215:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[6] = (/*nil*/NULL);; @@ -15635,25 +17161,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3215; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V16*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; + /*_._IFELSE___V16*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3215:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ + meltfptr[16] = 0 ; } ; } ; - /*_.IFCPP___V15*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; + /*_.IFCPP___V15*/ + meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3215:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V16*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V16*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15671,10 +17203,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L6*/ meltfnum[0] = + /*_#IS_STRBUF__L6*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3216:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[6] = (/*nil*/NULL);; @@ -15703,25 +17237,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3216; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V6*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ + meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3216:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[6];; + /*_.IFCPP___V18*/ + meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3216:/ clear"); - /*clear*/ /*_#IS_STRBUF__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRBUF__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15744,9 +17284,11 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3219:/ quasiblock"); - /*_#NUMDELTA__L7*/ meltfnum[1] = 1;; + /*_#NUMDELTA__L7*/ + meltfnum[1] = 1;; /*^compute*/ - /*_#LASTNUM__L8*/ meltfnum[0] = 0;; + /*_#LASTNUM__L8*/ + meltfnum[0] = 0;; { MELT_LOCATION("warmelt-modes.melt:3225:/ locexp"); @@ -15756,7 +17298,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3226:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4]), ( "/** declaration generated by generate_runtypesupport_mag2str **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4]), ( "/** declaration generated by generate_runtypesupport_mag2str **/")); } ; @@ -15768,7 +17311,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3229:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4]), ( "const char* melt_obmag_string (int i);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4]), ( "const char* melt_obmag_string (int i);")); } ; @@ -15780,7 +17324,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3232:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4]), ( "#define MELT_OBMAG_STRING_generated")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V5*/ meltfptr[4]), ( "#define MELT_OBMAG_STRING_generated")); } ; @@ -15810,7 +17355,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3238:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/** start of code generated by generate_runtypesupport_mag2str **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/** start of code generated by generate_runtypesupport_mag2str **/")); } ; @@ -15822,8 +17368,9 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3241:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)((/*!konst_2*/ meltfrout->tabval[2])))); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -15858,7 +17405,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15867,7 +17415,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3251:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15900,16 +17449,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_mag2str curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V21*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V22*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; + /*_._IF___V22*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3251:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V23*/ + meltfptr[22] = 0 ; } ; } @@ -15922,7 +17475,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3251:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -15931,9 +17485,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15962,10 +17518,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3253:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*gtyctype #")); } ; - /*_#plI__L12*/ meltfnum[10] = + /*_#plI__L12*/ + meltfnum[10] = ((1) + (/*_#TIX__L9*/ meltfnum[8]));; { @@ -15976,11 +17534,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3255:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3256:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V21*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -15991,7 +17551,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V21*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V24*/ meltfptr[22] = slot; + /*_.NAMED_NAME__V24*/ + meltfptr[22] = slot; }; ; } @@ -16011,7 +17572,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3257:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "*/")); } ; @@ -16024,7 +17586,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V21*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[4]))) ) /*then*/ @@ -16035,7 +17598,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V21*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.BOXMAGICSTR__V25*/ meltfptr[6] = slot; + /*_.BOXMAGICSTR__V25*/ + meltfptr[6] = slot; }; ; } @@ -16049,7 +17613,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3261:/ cond"); - /*cond*/ if (/*_.BOXMAGICSTR__V25*/ meltfptr[6]) /*then*/ + /*cond*/ + if (/*_.BOXMAGICSTR__V25*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16059,33 +17624,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3263:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "case ")); } ; { MELT_LOCATION("warmelt-modes.melt:3264:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)(/*_.BOXMAGICSTR__V25*/ meltfptr[6]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)(/*_.BOXMAGICSTR__V25*/ meltfptr[6]))); } ; { MELT_LOCATION("warmelt-modes.melt:3265:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( ": return \"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( ": return \"")); } ; { MELT_LOCATION("warmelt-modes.melt:3266:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)(/*_.BOXMAGICSTR__V25*/ meltfptr[6]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)(/*_.BOXMAGICSTR__V25*/ meltfptr[6]))); } ; { MELT_LOCATION("warmelt-modes.melt:3267:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "\";")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "\";")); } ; MELT_LOCATION("warmelt-modes.melt:3262:/ quasiblock"); @@ -16106,7 +17676,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3269:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*runtypesupport_mag2str no boxed magic */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*runtypesupport_mag2str no boxed magic */")); } ; /*epilog*/ @@ -16122,12 +17693,14 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3259:/ clear"); - /*clear*/ /*_.BOXMAGICSTR__V25*/ meltfptr[6] = 0 ; + /*clear*/ /*_.BOXMAGICSTR__V25*/ + meltfptr[6] = 0 ; MELT_LOCATION("warmelt-modes.melt:3273:/ quasiblock"); /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V21*/ meltfptr[19]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[4]))) ) /*then*/ @@ -16138,7 +17711,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V21*/ meltfptr[19]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.MAPMAGICSTR__V26*/ meltfptr[6] = slot; + /*_.MAPMAGICSTR__V26*/ + meltfptr[6] = slot; }; ; } @@ -16152,7 +17726,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3275:/ cond"); - /*cond*/ if (/*_.MAPMAGICSTR__V26*/ meltfptr[6]) /*then*/ + /*cond*/ + if (/*_.MAPMAGICSTR__V26*/ meltfptr[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16162,33 +17737,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3277:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "case ")); } ; { MELT_LOCATION("warmelt-modes.melt:3278:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGICSTR__V26*/ meltfptr[6]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGICSTR__V26*/ meltfptr[6]))); } ; { MELT_LOCATION("warmelt-modes.melt:3279:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( ": return \"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( ": return \"")); } ; { MELT_LOCATION("warmelt-modes.melt:3280:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGICSTR__V26*/ meltfptr[6]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGICSTR__V26*/ meltfptr[6]))); } ; { MELT_LOCATION("warmelt-modes.melt:3281:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "\";")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "\";")); } ; MELT_LOCATION("warmelt-modes.melt:3276:/ quasiblock"); @@ -16209,7 +17789,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3283:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*runtypesupport_mag2str no map magic */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*runtypesupport_mag2str no map magic */")); } ; /*epilog*/ @@ -16225,20 +17806,25 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3273:/ clear"); - /*clear*/ /*_.MAPMAGICSTR__V26*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MAPMAGICSTR__V26*/ + meltfptr[6] = 0 ; if (/*_#TIX__L9*/ meltfnum[8]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3248:/ clear"); - /*clear*/ /*_.CURCTYP__V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CURCTYP__V21*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#TIX__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#plI__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V24*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NAMED_NAME__V24*/ + meltfptr[22] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -16279,7 +17865,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16288,7 +17875,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3293:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16321,16 +17909,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_mag2str curvaldesc="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V27*/ meltfptr[6]; - /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; + /*_._IF___V28*/ + meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3293:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V29*/ + meltfptr[28] = 0 ; } ; } @@ -16343,7 +17935,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3293:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16352,9 +17945,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16384,10 +17979,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L16*/ meltfnum[14] = + /*_#IS_A__L16*/ + meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V27*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:3294:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#IS_A__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[27] = (/*nil*/NULL);; @@ -16416,25 +18013,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3294; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURVALDESC__V27*/ meltfptr[6]; - /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V31*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; + /*_._IFELSE___V31*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3294:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[31] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[27];; + /*_.IFCPP___V30*/ + meltfptr[28] = /*_._IFELSE___V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3294:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_A__L16*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16451,10 +18054,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3296:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*valdesc #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*valdesc #")); } ; - /*_#plI__L17*/ meltfnum[13] = + /*_#plI__L17*/ + meltfnum[13] = ((1) + (/*_#VIX__L13*/ meltfnum[9]));; { @@ -16465,11 +18070,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3298:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3299:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V27*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -16480,7 +18087,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V27*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V33*/ meltfptr[31] = slot; + /*_.NAMED_NAME__V33*/ + meltfptr[31] = slot; }; ; } @@ -16500,7 +18108,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3300:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "*/")); } ; @@ -16513,7 +18122,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVALDESC__V27*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_VALUE_DESCRIPTOR*/ meltfrout->tabval[5]))) ) /*then*/ @@ -16524,7 +18134,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURVALDESC__V27*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 2, "VALDESC_OBJMAGIC"); - /*_.VALMAGICSTR__V34*/ meltfptr[27] = slot; + /*_.VALMAGICSTR__V34*/ + meltfptr[27] = slot; }; ; } @@ -16538,7 +18149,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3304:/ cond"); - /*cond*/ if (/*_.VALMAGICSTR__V34*/ meltfptr[27]) /*then*/ + /*cond*/ + if (/*_.VALMAGICSTR__V34*/ meltfptr[27]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16548,33 +18160,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3306:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "case ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "case ")); } ; { MELT_LOCATION("warmelt-modes.melt:3307:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)(/*_.VALMAGICSTR__V34*/ meltfptr[27]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)(/*_.VALMAGICSTR__V34*/ meltfptr[27]))); } ; { MELT_LOCATION("warmelt-modes.melt:3308:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( ": return \"")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( ": return \"")); } ; { MELT_LOCATION("warmelt-modes.melt:3309:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)(/*_.VALMAGICSTR__V34*/ meltfptr[27]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)(/*_.VALMAGICSTR__V34*/ meltfptr[27]))); } ; { MELT_LOCATION("warmelt-modes.melt:3310:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "\";")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "\";")); } ; MELT_LOCATION("warmelt-modes.melt:3305:/ quasiblock"); @@ -16595,7 +18212,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3311:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*runtypesupport_mag2str no value magic*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/*runtypesupport_mag2str no value magic*/")); } ; /*epilog*/ @@ -16611,29 +18229,36 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3302:/ clear"); - /*clear*/ /*_.VALMAGICSTR__V34*/ meltfptr[27] = 0 ; + /*clear*/ /*_.VALMAGICSTR__V34*/ + meltfptr[27] = 0 ; if (/*_#VIX__L13*/ meltfnum[9]<0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3290:/ clear"); - /*clear*/ /*_.CURVALDESC__V27*/ meltfptr[6] = 0 ; + /*clear*/ /*_.CURVALDESC__V27*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_#VIX__L13*/ meltfnum[9] = 0 ; + /*clear*/ /*_#VIX__L13*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L17*/ meltfnum[13] = 0 ; + /*clear*/ /*_#plI__L17*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.NAMED_NAME__V33*/ + meltfptr[31] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:3316:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), - melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), + melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); } ; @@ -16645,7 +18270,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3325:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/** end of code generated by generate_runtypesupport_mag2str **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTCODEBUF__V6*/ meltfptr[5]), ( "/** end of code generated by generate_runtypesupport_mag2str **/")); } ; @@ -16656,22 +18282,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3219:/ clear"); - /*clear*/ /*_#NUMDELTA__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#NUMDELTA__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#LASTNUM__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#LASTNUM__L8*/ + meltfnum[0] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3211:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V9*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; + /*clear*/ /*_.IFCPP___V15*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ + meltfptr[16] = 0 ; } ; @@ -16753,7 +18385,8 @@ meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN(meltclosure_ptr_t m /* end of frame for routine meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN fromline 1756 */ - /* classy proc frame meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN */ MeltFrame_meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN + /* classy proc frame meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN */ + MeltFrame_meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN fromline 1785*/ #if ENABLE_CHECKING @@ -16766,7 +18399,8 @@ meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN(meltclosure_ptr_t m #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_BOXINGFUN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16776,26 +18410,30 @@ meltrout_56_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_BOXINGFUN(meltclosure_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:3335:/ getarg"); - /*_.CTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTARG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OUTARG__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.DECLBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.DECLBUF__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CODEBUF__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.CODEBUF__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4])) != NULL); ; @@ -16827,7 +18465,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16836,7 +18475,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3337:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16869,16 +18509,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_boxingfun start outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3337:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ + meltfptr[6] = 0 ; } ; } @@ -16891,7 +18535,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3337:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -16900,9 +18545,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16932,10 +18579,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3338:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; @@ -16964,25 +18613,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3338; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3338:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ + meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ + meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3338:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17000,10 +18655,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L4*/ meltfnum[0] = + /*_#IS_STRBUF__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3339:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; @@ -17032,25 +18689,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3339; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3339:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ + meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ + meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3339:/ clear"); - /*clear*/ /*_#IS_STRBUF__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRBUF__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17068,10 +18731,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L5*/ meltfnum[1] = + /*_#IS_STRBUF__L5*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3340:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; @@ -17100,25 +18765,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3340; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CODEBUF__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3340:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ + meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3340:/ clear"); - /*clear*/ /*_#IS_STRBUF__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRBUF__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17153,7 +18824,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3345:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "/** start of declarations generated by generate_runtypesupport_boxingfun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "/** start of declarations generated by generate_runtypesupport_boxingfun **/")); } ; @@ -17177,7 +18849,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3351:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "/** start of code generated by generate_runtypesupport_boxingfun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "/** start of code generated by generate_runtypesupport_boxingfun **/")); } ; @@ -17218,7 +18891,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17227,7 +18901,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3357:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17260,16 +18935,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate runtypesupport_mapfun curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V17*/ meltfptr[15]; - /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V18*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; + /*_._IF___V18*/ + meltfptr[5] = /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3357:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V19*/ + meltfptr[18] = 0 ; } ; } @@ -17282,7 +18961,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3357:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -17291,9 +18971,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V18*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V18*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17323,10 +19005,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ meltfnum[7] = + /*_#IS_A__L9*/ + meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:3358:/ cond"); - /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V21*/ meltfptr[5] = (/*nil*/NULL);; @@ -17355,25 +19039,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3358; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V17*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V21*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; + /*_._IFELSE___V21*/ + meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3358:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V22*/ + meltfptr[21] = 0 ; } ; } ; - /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; + /*_.IFCPP___V20*/ + meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3358:/ clear"); - /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; + /*clear*/ /*_#IS_A__L9*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V21*/ meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V21*/ + meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17392,37 +19082,48 @@ meltlab_endgetargs: /*objgoto*/ goto mtch1_0; ; -/*objlabel*/ mtch1_0: + /*objlabel*/ +mtch1_0: ; MELT_LOCATION("warmelt-modes.melt:3360:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_40; meltlab_count_40++; - debugeprintf("objlabel_40 mtch1_*CLASS_NORMTESTER_INSTANCE/d6d2a27. *CLASS_OBJLABELINSTR/238d630c. %ld", meltlab_count_40); + debugeprintf("objlabel_40 mtch1_*CLASS_NORMTESTER_INSTANCE/30d37071. *CLASS_OBJLABELINSTR/def73b3. %ld", meltlab_count_40); #endif ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.NAMED_NAME__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V24*/ meltfptr[5] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V24*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDMAGIC__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPG_BOXEDSTRUCT__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_AUTOBOXDISCR__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.CTYPE_AUTOBOXDISCR__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_AUTOCONSTBOXDISCR__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CTYPE_AUTOCONSTBOXDISCR__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_BOXFUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CTYPG_BOXFUN__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_UNBOXFUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.CTYPG_UNBOXFUN__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_UPDATEBOXFUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CTYPG_UPDATEBOXFUN__V31*/ + meltfptr[30] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[2]))))) /*then*/ { @@ -17436,7 +19137,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V23*/ meltfptr[21] = slot; + /*_.NAMED_NAME__V23*/ + meltfptr[21] = slot; }; ; /*^getslot*/ @@ -17444,7 +19146,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V24*/ meltfptr[5] = slot; + /*_.CTYPE_CNAME__V24*/ + meltfptr[5] = slot; }; ; /*^getslot*/ @@ -17452,7 +19155,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 11, "CTYPE_AUTOBOXDISCR"); - /*_.CTYPE_AUTOBOXDISCR__V27*/ meltfptr[26] = slot; + /*_.CTYPE_AUTOBOXDISCR__V27*/ + meltfptr[26] = slot; }; ; /*^getslot*/ @@ -17460,7 +19164,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 12, "CTYPE_AUTOCONSTBOXDISCR"); - /*_.CTYPE_AUTOCONSTBOXDISCR__V28*/ meltfptr[27] = slot; + /*_.CTYPE_AUTOCONSTBOXDISCR__V28*/ + meltfptr[27] = slot; }; ; /*^getslot*/ @@ -17468,7 +19173,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 13, "CTYPG_BOXEDMAGIC"); - /*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24] = slot; + /*_.CTYPG_BOXEDMAGIC__V25*/ + meltfptr[24] = slot; }; ; /*^getslot*/ @@ -17476,7 +19182,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 15, "CTYPG_BOXEDSTRUCT"); - /*_.CTYPG_BOXEDSTRUCT__V26*/ meltfptr[25] = slot; + /*_.CTYPG_BOXEDSTRUCT__V26*/ + meltfptr[25] = slot; }; ; /*^getslot*/ @@ -17484,7 +19191,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 21, "CTYPG_BOXFUN"); - /*_.CTYPG_BOXFUN__V29*/ meltfptr[28] = slot; + /*_.CTYPG_BOXFUN__V29*/ + meltfptr[28] = slot; }; ; /*^getslot*/ @@ -17492,7 +19200,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 22, "CTYPG_UNBOXFUN"); - /*_.CTYPG_UNBOXFUN__V30*/ meltfptr[29] = slot; + /*_.CTYPG_UNBOXFUN__V30*/ + meltfptr[29] = slot; }; ; /*^getslot*/ @@ -17500,11 +19209,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 23, "CTYPG_UPDATEBOXFUN"); - /*_.CTYPG_UPDATEBOXFUN__V31*/ meltfptr[30] = slot; + /*_.CTYPG_UPDATEBOXFUN__V31*/ + meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:3361:/ objgoto"); - /*objgoto*/ goto mtch1_1; + /*objgoto*/ + goto mtch1_1; ; } ; @@ -17518,28 +19229,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_1: + /*objlabel*/ +mtch1_1: ; MELT_LOCATION("warmelt-modes.melt:3361:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_41; meltlab_count_41++; - debugeprintf("objlabel_41 mtch1_*CLASS_NORMTESTER_MATCHER/2b10d1dc. *CLASS_OBJLABELINSTR/8c801ea. %ld", meltlab_count_41); + debugeprintf("objlabel_41 mtch1_*CLASS_NORMTESTER_MATCHER/98384dc. *CLASS_OBJLABELINSTR/3b5f435f. %ld", meltlab_count_41); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.SV__V32*/ + meltfptr[31] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.NAMED_NAME__V23*/ meltfptr[21]) && melt_magic_discr((melt_ptr_t)(/*_.NAMED_NAME__V23*/ meltfptr[21])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17556,7 +19271,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3362:/ objgoto"); - /*objgoto*/ goto mtch1_2; + /*objgoto*/ + goto mtch1_2; ; } ; @@ -17570,28 +19286,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_2: + /*objlabel*/ +mtch1_2: ; MELT_LOCATION("warmelt-modes.melt:3362:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_42; meltlab_count_42++; - debugeprintf("objlabel_42 mtch1_*CLASS_NORMTESTER_MATCHER/353bbb65. *CLASS_OBJLABELINSTR/18f273d. %ld", meltlab_count_42); + debugeprintf("objlabel_42 mtch1_*CLASS_NORMTESTER_MATCHER/270839d3. *CLASS_OBJLABELINSTR/32fc3c11. %ld", meltlab_count_42); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V33*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SV__V33*/ + meltfptr[21] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPE_CNAME__V24*/ meltfptr[5]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPE_CNAME__V24*/ meltfptr[5])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17608,7 +19328,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3363:/ objgoto"); - /*objgoto*/ goto mtch1_3; + /*objgoto*/ + goto mtch1_3; ; } ; @@ -17622,28 +19343,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_3: + /*objlabel*/ +mtch1_3: ; MELT_LOCATION("warmelt-modes.melt:3363:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_43; meltlab_count_43++; - debugeprintf("objlabel_43 mtch1_*CLASS_NORMTESTER_MATCHER/26e7c68d. *CLASS_OBJLABELINSTR/32d56066. %ld", meltlab_count_43); + debugeprintf("objlabel_43 mtch1_*CLASS_NORMTESTER_MATCHER/2852e65a. *CLASS_OBJLABELINSTR/3402566c. %ld", meltlab_count_43); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V34*/ meltfptr[5] = 0 ; + /*clear*/ /*_.SV__V34*/ + meltfptr[5] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_BOXEDMAGIC__V25*/ meltfptr[24])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17660,7 +19385,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3364:/ objgoto"); - /*objgoto*/ goto mtch1_4; + /*objgoto*/ + goto mtch1_4; ; } ; @@ -17674,28 +19400,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_4: + /*objlabel*/ +mtch1_4: ; MELT_LOCATION("warmelt-modes.melt:3364:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_44; meltlab_count_44++; - debugeprintf("objlabel_44 mtch1_*CLASS_NORMTESTER_MATCHER/3f0d634. *CLASS_OBJLABELINSTR/3951ec37. %ld", meltlab_count_44); + debugeprintf("objlabel_44 mtch1_*CLASS_NORMTESTER_MATCHER/3cf7d1cc. *CLASS_OBJLABELINSTR/531fba9. %ld", meltlab_count_44); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V35*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SV__V35*/ + meltfptr[24] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_BOXEDSTRUCT__V26*/ meltfptr[25]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_BOXEDSTRUCT__V26*/ meltfptr[25])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17712,7 +19442,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3367:/ objgoto"); - /*objgoto*/ goto mtch1_5; + /*objgoto*/ + goto mtch1_5; ; } ; @@ -17726,28 +19457,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_5: + /*objlabel*/ +mtch1_5: ; MELT_LOCATION("warmelt-modes.melt:3367:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_45; meltlab_count_45++; - debugeprintf("objlabel_45 mtch1_*CLASS_NORMTESTER_INSTANCE/215fbfae. *CLASS_OBJLABELINSTR/143ec97d. %ld", meltlab_count_45); + debugeprintf("objlabel_45 mtch1_*CLASS_NORMTESTER_INSTANCE/2ae1d91a. *CLASS_OBJLABELINSTR/39afb4f6. %ld", meltlab_count_45); #endif ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V36*/ meltfptr[25] = 0 ; + /*clear*/ /*_.NAMED_NAME__V36*/ + meltfptr[25] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_AUTOBOXDISCR__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[4]))))) /*then*/ { @@ -17761,11 +19496,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPE_AUTOBOXDISCR__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V36*/ meltfptr[25] = slot; + /*_.NAMED_NAME__V36*/ + meltfptr[25] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:3370:/ objgoto"); - /*objgoto*/ goto mtch1_6; + /*objgoto*/ + goto mtch1_6; ; } ; @@ -17779,28 +19516,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_6: + /*objlabel*/ +mtch1_6: ; MELT_LOCATION("warmelt-modes.melt:3370:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_46; meltlab_count_46++; - debugeprintf("objlabel_46 mtch1_*CLASS_NORMTESTER_MATCHER/3d48ed0f. *CLASS_OBJLABELINSTR/1f758a7f. %ld", meltlab_count_46); + debugeprintf("objlabel_46 mtch1_*CLASS_NORMTESTER_MATCHER/4b2dd3b. *CLASS_OBJLABELINSTR/29901da0. %ld", meltlab_count_46); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V37*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SV__V37*/ + meltfptr[26] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_BOXFUN__V29*/ meltfptr[28]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_BOXFUN__V29*/ meltfptr[28])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17817,7 +19558,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3371:/ objgoto"); - /*objgoto*/ goto mtch1_7; + /*objgoto*/ + goto mtch1_7; ; } ; @@ -17831,28 +19573,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_7: + /*objlabel*/ +mtch1_7: ; MELT_LOCATION("warmelt-modes.melt:3371:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_47; meltlab_count_47++; - debugeprintf("objlabel_47 mtch1_*CLASS_NORMTESTER_MATCHER/2ee8fb41. *CLASS_OBJLABELINSTR/3c25ff6c. %ld", meltlab_count_47); + debugeprintf("objlabel_47 mtch1_*CLASS_NORMTESTER_MATCHER/392ab256. *CLASS_OBJLABELINSTR/19dac895. %ld", meltlab_count_47); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V38*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SV__V38*/ + meltfptr[28] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_UNBOXFUN__V30*/ meltfptr[29]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_UNBOXFUN__V30*/ meltfptr[29])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17869,7 +19615,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3372:/ objgoto"); - /*objgoto*/ goto mtch1_8; + /*objgoto*/ + goto mtch1_8; ; } ; @@ -17883,28 +19630,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_8: + /*objlabel*/ +mtch1_8: ; MELT_LOCATION("warmelt-modes.melt:3372:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_48; meltlab_count_48++; - debugeprintf("objlabel_48 mtch1_*CLASS_NORMTESTER_MATCHER/14dcdf35. *CLASS_OBJLABELINSTR/12a82ccc. %ld", meltlab_count_48); + debugeprintf("objlabel_48 mtch1_*CLASS_NORMTESTER_MATCHER/d9894be. *CLASS_OBJLABELINSTR/176a561a. %ld", meltlab_count_48); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V39*/ meltfptr[29] = 0 ; + /*clear*/ /*_.SV__V39*/ + meltfptr[29] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_UPDATEBOXFUN__V31*/ meltfptr[30]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_UPDATEBOXFUN__V31*/ meltfptr[30])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -17921,7 +19672,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3360:/ objgoto"); - /*objgoto*/ goto mtch1_9; + /*objgoto*/ + goto mtch1_9; ; } ; @@ -17935,53 +19687,67 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3531:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; } ; -/*objlabel*/ mtch1_9: + /*objlabel*/ +mtch1_9: ; MELT_LOCATION("warmelt-modes.melt:3360:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_49; meltlab_count_49++; - debugeprintf("objlabel_49 mtch1_*CLASS_NORMTESTER_SUCCESS/3c9404c9. *CLASS_OBJLABELINSTR/376b5607. %ld", meltlab_count_49); + debugeprintf("objlabel_49 mtch1_*CLASS_NORMTESTER_SUCCESS/30bbbc53. *CLASS_OBJLABELINSTR/189ad7c4. %ld", meltlab_count_49); #endif ; /*^quasiblock*/ - /*_.BOXCONSTDISCR__V40*/ meltfptr[30] = /*_.CTYPE_AUTOCONSTBOXDISCR__V28*/ meltfptr[27];; + /*_.BOXCONSTDISCR__V40*/ + meltfptr[30] = /*_.CTYPE_AUTOCONSTBOXDISCR__V28*/ meltfptr[27];; /*^compute*/ - /*_.BOXDISCR__V41*/ meltfptr[40] = /*_.CTYPE_AUTOBOXDISCR__V27*/ meltfptr[26];; + /*_.BOXDISCR__V41*/ + meltfptr[40] = /*_.CTYPE_AUTOBOXDISCR__V27*/ meltfptr[26];; /*^compute*/ - /*_.BOXDISCRNAME__V42*/ meltfptr[41] = /*_.NAMED_NAME__V36*/ meltfptr[25];; + /*_.BOXDISCRNAME__V42*/ + meltfptr[41] = /*_.NAMED_NAME__V36*/ meltfptr[25];; /*^compute*/ - /*_.BOXEDMAGIC__V43*/ meltfptr[42] = /*_.SV__V34*/ meltfptr[5];; + /*_.BOXEDMAGIC__V43*/ + meltfptr[42] = /*_.SV__V34*/ meltfptr[5];; /*^compute*/ - /*_.BOXEDSTRUCT__V44*/ meltfptr[43] = /*_.SV__V35*/ meltfptr[24];; + /*_.BOXEDSTRUCT__V44*/ + meltfptr[43] = /*_.SV__V35*/ meltfptr[24];; /*^compute*/ - /*_.BOXFUN__V45*/ meltfptr[44] = /*_.SV__V37*/ meltfptr[26];; + /*_.BOXFUN__V45*/ + meltfptr[44] = /*_.SV__V37*/ meltfptr[26];; /*^compute*/ - /*_.CNAME__V46*/ meltfptr[45] = /*_.SV__V33*/ meltfptr[21];; + /*_.CNAME__V46*/ + meltfptr[45] = /*_.SV__V33*/ meltfptr[21];; /*^compute*/ - /*_.CTYPNAM__V47*/ meltfptr[46] = /*_.SV__V32*/ meltfptr[31];; + /*_.CTYPNAM__V47*/ + meltfptr[46] = /*_.SV__V32*/ meltfptr[31];; /*^compute*/ - /*_.UNBOXFUN__V48*/ meltfptr[47] = /*_.SV__V38*/ meltfptr[28];; + /*_.UNBOXFUN__V48*/ + meltfptr[47] = /*_.SV__V38*/ meltfptr[28];; /*^compute*/ - /*_.UPDATEBOXFUN__V49*/ meltfptr[48] = /*_.SV__V39*/ meltfptr[29];; + /*_.UPDATEBOXFUN__V49*/ + meltfptr[48] = /*_.SV__V39*/ meltfptr[29];; { MELT_LOCATION("warmelt-modes.melt:3374:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "/*runtypesupport gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "/*runtypesupport gtyctype #")); } ; - /*_#plI__L10*/ meltfnum[1] = + /*_#plI__L10*/ + meltfnum[1] = ((1) + (/*_#TIX__L6*/ meltfnum[0]));; { @@ -17992,11 +19758,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3376:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3377:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -18007,7 +19775,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V50*/ meltfptr[49] = slot; + /*_.NAMED_NAME__V50*/ + meltfptr[49] = slot; }; ; } @@ -18027,7 +19796,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3378:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "*/")); } ; @@ -18039,33 +19809,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3380:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "melt_ptr_t ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "melt_ptr_t ")); } ; { MELT_LOCATION("warmelt-modes.melt:3381:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.BOXFUN__V45*/ meltfptr[44]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.BOXFUN__V45*/ meltfptr[44]))); } ; { MELT_LOCATION("warmelt-modes.melt:3382:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "(meltobject_ptr_t discr, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "(meltobject_ptr_t discr, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3383:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:3384:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " val);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " val);")); } ; @@ -18077,33 +19852,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3386:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "void ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "void ")); } ; { MELT_LOCATION("warmelt-modes.melt:3387:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.UPDATEBOXFUN__V49*/ meltfptr[48]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.UPDATEBOXFUN__V49*/ meltfptr[48]))); } ; { MELT_LOCATION("warmelt-modes.melt:3388:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "(melt_ptr_t boxp, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "(melt_ptr_t boxp, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3389:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:3390:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " val);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " val);")); } ; @@ -18121,33 +19901,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3393:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "static inline ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "static inline ")); } ; { MELT_LOCATION("warmelt-modes.melt:3394:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:3395:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " ")); } ; { MELT_LOCATION("warmelt-modes.melt:3396:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.UNBOXFUN__V48*/ meltfptr[47]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.UNBOXFUN__V48*/ meltfptr[47]))); } ; { MELT_LOCATION("warmelt-modes.melt:3397:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "(melt_ptr_t box_p) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "(melt_ptr_t box_p) {")); } ; @@ -18159,20 +19944,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3399:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "if (melt_magic_discr(box_p) == ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "if (melt_magic_discr(box_p) == ")); } ; { MELT_LOCATION("warmelt-modes.melt:3400:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.BOXEDMAGIC__V43*/ meltfptr[42]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.BOXEDMAGIC__V43*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:3401:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -18184,20 +19972,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3403:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "return ((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "return ((struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3404:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:3405:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "*)box_p)->val;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "*)box_p)->val;")); } ; @@ -18209,20 +20000,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3407:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "return (")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "return (")); } ; { MELT_LOCATION("warmelt-modes.melt:3408:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:3409:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( ")0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( ")0;")); } ; @@ -18234,20 +20028,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3411:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "} /* end generated ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "} /* end generated ")); } ; { MELT_LOCATION("warmelt-modes.melt:3412:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.UNBOXFUN__V48*/ meltfptr[47]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.UNBOXFUN__V48*/ meltfptr[47]))); } ; { MELT_LOCATION("warmelt-modes.melt:3413:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( " */")); } ; @@ -18265,10 +20062,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3417:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "/*gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "/*gtyctype #")); } ; - /*_#plI__L11*/ meltfnum[7] = + /*_#plI__L11*/ + meltfnum[7] = ((1) + (/*_#TIX__L6*/ meltfnum[0]));; { @@ -18279,11 +20078,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3419:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3420:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -18294,7 +20095,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V51*/ meltfptr[50] = slot; + /*_.NAMED_NAME__V51*/ + meltfptr[50] = slot; }; ; } @@ -18314,7 +20116,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3421:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*/")); } ; @@ -18332,7 +20135,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3424:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "melt_ptr_t")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "melt_ptr_t")); } ; @@ -18344,27 +20148,31 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3426:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXFUN__V45*/ meltfptr[44]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXFUN__V45*/ meltfptr[44]))); } ; { MELT_LOCATION("warmelt-modes.melt:3427:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "(meltobject_ptr_t discr_p, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "(meltobject_ptr_t discr_p, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3428:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:3429:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " val) { /*runtypesupport generated boxingfun*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " val) { /*runtypesupport generated boxingfun*/")); } ; @@ -18376,7 +20184,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3431:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "MELT_ENTERFRAME (2, NULL);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "MELT_ENTERFRAME (2, NULL);")); } ; @@ -18388,7 +20197,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3433:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#define resv meltfram__.mcfr_varptr[0]")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#define resv meltfram__.mcfr_varptr[0]")); } ; @@ -18400,7 +20210,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3436:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#define discrv meltfram__.mcfr_varptr[1]")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#define discrv meltfram__.mcfr_varptr[1]")); } ; @@ -18412,7 +20223,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3439:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "discrv = (melt_ptr_t) discr_p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "discrv = (melt_ptr_t) discr_p;")); } ; @@ -18424,20 +20236,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3442:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (!discrv) discrv = MELT_PREDEF(")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (!discrv) discrv = MELT_PREDEF(")); } ; { MELT_LOCATION("warmelt-modes.melt:3444:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXDISCRNAME__V42*/ meltfptr[41]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXDISCRNAME__V42*/ meltfptr[41]))); } ; { MELT_LOCATION("warmelt-modes.melt:3445:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( ");")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( ");")); } ; @@ -18449,7 +20264,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3447:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (melt_magic_discr((melt_ptr_t)discrv) != MELTOBMAG_OBJECT) goto\ + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (melt_magic_discr((melt_ptr_t)discrv) != MELTOBMAG_OBJECT) goto\ end;")); } ; @@ -18462,20 +20278,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3450:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (((meltobject_ptr_t)(discrv))->meltobj_magic != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (((meltobject_ptr_t)(discrv))->meltobj_magic != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3452:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXEDMAGIC__V43*/ meltfptr[42]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXEDMAGIC__V43*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:3453:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( ") goto end;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( ") goto end;")); } ; @@ -18487,20 +20306,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3455:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "resv = (melt_ptr_t) meltgc_allocate (sizeof (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "resv = (melt_ptr_t) meltgc_allocate (sizeof (struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3456:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:3457:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "), 0);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "), 0);")); } ; @@ -18512,20 +20334,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3459:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "((struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3460:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:3461:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*) (resv))->discr = (meltobject_ptr_t)discrv;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*) (resv))->discr = (meltobject_ptr_t)discrv;")); } ; @@ -18537,20 +20362,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3463:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "((struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3464:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:3465:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*) (resv))->val = val;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*) (resv))->val = val;")); } ; @@ -18562,7 +20390,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3467:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "end: MELT_EXITFRAME ();")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "end: MELT_EXITFRAME ();")); } ; @@ -18574,7 +20403,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3469:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "return ((melt_ptr_t)(resv));")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "return ((melt_ptr_t)(resv));")); } ; @@ -18586,7 +20416,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3471:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#undef resv")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#undef resv")); } ; @@ -18598,7 +20429,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3473:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#undef discrv")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#undef discrv")); } ; @@ -18610,20 +20442,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3475:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "} /* end generated boxingfun ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "} /* end generated boxingfun ")); } ; { MELT_LOCATION("warmelt-modes.melt:3476:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXFUN__V45*/ meltfptr[44]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXFUN__V45*/ meltfptr[44]))); } ; { MELT_LOCATION("warmelt-modes.melt:3477:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " */")); } ; @@ -18641,7 +20476,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3480:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "void")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "void")); } ; @@ -18653,27 +20489,31 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3482:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.UPDATEBOXFUN__V49*/ meltfptr[48]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.UPDATEBOXFUN__V49*/ meltfptr[48]))); } ; { MELT_LOCATION("warmelt-modes.melt:3483:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "(melt_ptr_t box_p, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "(melt_ptr_t box_p, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3484:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V46*/ meltfptr[45]))); } ; { MELT_LOCATION("warmelt-modes.melt:3485:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " val) { /*generated updateboxfun */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " val) { /*generated updateboxfun */")); } ; @@ -18685,7 +20525,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3487:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "MELT_ENTERFRAME (1, NULL);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "MELT_ENTERFRAME (1, NULL);")); } ; @@ -18697,7 +20538,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3489:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#define boxv meltfram__.mcfr_varptr[0]")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#define boxv meltfram__.mcfr_varptr[0]")); } ; @@ -18709,7 +20551,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3492:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "boxv = box_p;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "boxv = box_p;")); } ; @@ -18721,20 +20564,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3494:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (melt_magic_discr((melt_ptr_t)boxv) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "if (melt_magic_discr((melt_ptr_t)boxv) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3496:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXEDMAGIC__V43*/ meltfptr[42]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXEDMAGIC__V43*/ meltfptr[42]))); } ; { MELT_LOCATION("warmelt-modes.melt:3497:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( ") goto end;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( ") goto end;")); } ; @@ -18746,10 +20592,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L12*/ meltfnum[11] = + /*_#IS_A__L12*/ + meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.BOXCONSTDISCR__V40*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:3501:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -18760,7 +20608,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3503:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BOXCONSTDISCR__V40*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -18771,7 +20620,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BOXCONSTDISCR__V40*/ meltfptr[30]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.BOXCONSTDISCRNAME__V52*/ meltfptr[51] = slot; + /*_.BOXCONSTDISCRNAME__V52*/ + meltfptr[51] = slot; }; ; } @@ -18796,7 +20646,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.BOXCONSTDISCRNAME__V52*/ meltfptr[51]; /*^apply.arg*/ argtab[2].meltbp_cstring = "))\n\t\t\t goto end ;"; - /*_.ADD2OUT__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18807,9 +20658,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3502:/ clear"); - /*clear*/ /*_.BOXCONSTDISCRNAME__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.BOXCONSTDISCRNAME__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.ADD2OUT__V53*/ + meltfptr[52] = 0 ; /*epilog*/ } ; @@ -18818,20 +20671,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3515:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "((struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "((struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3516:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.BOXEDSTRUCT__V44*/ meltfptr[43]))); } ; { MELT_LOCATION("warmelt-modes.melt:3517:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*) (boxv))->val = val;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "*) (boxv))->val = val;")); } ; @@ -18843,7 +20699,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3519:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "meltgc_touch ((melt_ptr_t)boxv);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "meltgc_touch ((melt_ptr_t)boxv);")); } ; @@ -18855,7 +20712,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3521:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "end: MELT_EXITFRAME ();")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "end: MELT_EXITFRAME ();")); } ; @@ -18867,7 +20725,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3523:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#undef boxv")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "#undef boxv")); } ; @@ -18879,20 +20738,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3525:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "} /* end generated updateboxfun ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "} /* end generated updateboxfun ")); } ; { MELT_LOCATION("warmelt-modes.melt:3526:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), - melt_string_str((melt_ptr_t)(/*_.UPDATEBOXFUN__V49*/ meltfptr[48]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), + melt_string_str((melt_ptr_t)(/*_.UPDATEBOXFUN__V49*/ meltfptr[48]))); } ; { MELT_LOCATION("warmelt-modes.melt:3527:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( " */")); } ; @@ -18912,47 +20774,64 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3360:/ clear"); - /*clear*/ /*_.BOXCONSTDISCR__V40*/ meltfptr[30] = 0 ; + /*clear*/ /*_.BOXCONSTDISCR__V40*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXDISCR__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.BOXDISCR__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXDISCRNAME__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.BOXDISCRNAME__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXEDMAGIC__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.BOXEDMAGIC__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXEDSTRUCT__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.BOXEDSTRUCT__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.BOXFUN__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.BOXFUN__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.CNAME__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.CNAME__V46*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPNAM__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.CTYPNAM__V47*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.UNBOXFUN__V48*/ meltfptr[47] = 0 ; + /*clear*/ /*_.UNBOXFUN__V48*/ + meltfptr[47] = 0 ; /*^clear*/ - /*clear*/ /*_.UPDATEBOXFUN__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.UPDATEBOXFUN__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#plI__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.NAMED_NAME__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L11*/ meltfnum[7] = 0 ; + /*clear*/ /*_#plI__L11*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.NAMED_NAME__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_A__L12*/ + meltfnum[11] = 0 ; /*^objgoto*/ - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1_10: + /*objlabel*/ +mtch1_10: ; MELT_LOCATION("warmelt-modes.melt:3531:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_50; meltlab_count_50++; - debugeprintf("objlabel_50 mtch1_*CLASS_NORMTESTER_SUCCESS/21882d98. *CLASS_OBJLABELINSTR/250c0dac. %ld", meltlab_count_50); + debugeprintf("objlabel_50 mtch1_*CLASS_NORMTESTER_SUCCESS/cdbdb95. *CLASS_OBJLABELINSTR/12face4c. %ld", meltlab_count_50); #endif ; @@ -18960,7 +20839,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3533:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -18971,7 +20851,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V17*/ meltfptr[15]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V54*/ meltfptr[51] = slot; + /*_.NAMED_NAME__V54*/ + meltfptr[51] = slot; }; ; } @@ -18993,7 +20874,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "invalid GTY-ed ctype $1 for boxing"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V54*/ meltfptr[51]; - /*_.ERROR_AT__V55*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V55*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -19007,7 +20889,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V57*/ meltfptr[40] = (/*nil*/NULL);; @@ -19036,23 +20919,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3534; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V17*/ meltfptr[15]; - /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V58*/ + meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V57*/ meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[41];; + /*_._IFELSE___V57*/ + meltfptr[40] = /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[41];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3534:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V58*/ meltfptr[41] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V58*/ + meltfptr[41] = 0 ; } ; } ; - /*_.IFCPP___V56*/ meltfptr[30] = /*_._IFELSE___V57*/ meltfptr[40];; + /*_.IFCPP___V56*/ + meltfptr[30] = /*_._IFELSE___V57*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3534:/ clear"); - /*clear*/ /*_._IFELSE___V57*/ meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V57*/ + meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19065,23 +20953,28 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3531:/ clear"); - /*clear*/ /*_.NAMED_NAME__V54*/ meltfptr[51] = 0 ; + /*clear*/ /*_.NAMED_NAME__V54*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.ERROR_AT__V55*/ meltfptr[52] = 0 ; + /*clear*/ /*_.ERROR_AT__V55*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V56*/ meltfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V56*/ + meltfptr[30] = 0 ; /*^objgoto*/ - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1__end: + /*objlabel*/ +mtch1__end: ; MELT_LOCATION("warmelt-modes.melt:3359:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_51; meltlab_count_51++; - debugeprintf("objlabel_51 mtch1__end_h299208324 *CLASS_OBJLABELINSTR/11d58e84. %ld", meltlab_count_51); + debugeprintf("objlabel_51 mtch1__end_h936697374 *CLASS_OBJLABELINSTR/37d4de1e. %ld", meltlab_count_51); #endif ; @@ -19093,11 +20986,14 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3354:/ clear"); - /*clear*/ /*_.CURCTYP__V17*/ meltfptr[15] = 0 ; + /*clear*/ /*_.CURCTYP__V17*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#TIX__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ + meltfptr[18] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -19109,7 +21005,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3538:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "/** end of declarations generated by generate_runtypesupport_boxingfun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.DECLBUF__V4*/ meltfptr[3]), ( "/** end of declarations generated by generate_runtypesupport_boxingfun **/")); } ; @@ -19133,7 +21030,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3543:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "/** end of code generated by generate_runtypesupport_boxingfun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.CODEBUF__V5*/ meltfptr[4]), ( "/** end of code generated by generate_runtypesupport_boxingfun **/")); } ; @@ -19168,7 +21066,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19177,7 +21076,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3547:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19210,16 +21110,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_boxingfun end outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V60*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[43];; + /*_._IF___V59*/ + meltfptr[42] = /*_.MELT_DEBUG_FUN__V60*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3547:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V60*/ + meltfptr[43] = 0 ; } ; } @@ -19232,7 +21136,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3547:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19241,9 +21146,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V59*/ + meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19269,11 +21176,14 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3335:/ clear"); - /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ + meltfptr[12] = 0 ; } ; @@ -19355,7 +21265,8 @@ meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN(meltclosure_ptr_t melt /* end of frame for routine meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN fromline 1756 */ - /* classy proc frame meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN */ MeltFrame_meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN + /* classy proc frame meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN */ + MeltFrame_meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN fromline 1785*/ #if ENABLE_CHECKING @@ -19368,7 +21279,8 @@ meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN(meltclosure_ptr_t melt #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_MAPFUN", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -19378,19 +21290,22 @@ meltrout_57_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_MAPFUN(meltclosure_ptr_t melt /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:3553:/ getarg"); - /*_.CTYTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CTYTUP__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTARG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OUTARG__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTBUF__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.OUTBUF__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3])) != NULL); ; @@ -19422,7 +21337,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19431,7 +21347,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3554:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19464,16 +21381,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_mapfun start outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; + /*_._IF___V5*/ + meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3554:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V6*/ + meltfptr[5] = 0 ; } ; } @@ -19486,7 +21407,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3554:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19495,9 +21417,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V5*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19527,10 +21451,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L3*/ meltfnum[1] = + /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.CTYTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:3555:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; @@ -19559,25 +21485,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3555; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CTYTUP__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; + /*_._IFELSE___V8*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3555:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ + meltfptr[8] = 0 ; } ; } ; - /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; + /*_.IFCPP___V7*/ + meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3555:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V8*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19595,10 +21527,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRBUF__L4*/ meltfnum[0] = + /*_#IS_STRBUF__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-modes.melt:3556:/ cond"); - /*cond*/ if (/*_#IS_STRBUF__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_STRBUF__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V11*/ meltfptr[4] = (/*nil*/NULL);; @@ -19627,25 +21561,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3556; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V12*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V11*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; + /*_._IFELSE___V11*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3556:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V12*/ + meltfptr[11] = 0 ; } ; } ; - /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[4];; + /*_.IFCPP___V10*/ + meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3556:/ clear"); - /*clear*/ /*_#IS_STRBUF__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRBUF__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V11*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V11*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19674,7 +21614,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3560:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/** start of code generated by generate_runtypesupport_mapfun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/** start of code generated by generate_runtypesupport_mapfun **/")); } ; @@ -19721,7 +21662,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -19730,7 +21672,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3568:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -19763,16 +21706,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate runtypesupport_mapfun curctyp="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V13*/ meltfptr[11]; - /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V15*/ + meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V14*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; + /*_._IF___V14*/ + meltfptr[4] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3568:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V15*/ + meltfptr[14] = 0 ; } ; } @@ -19785,7 +21732,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3568:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -19794,9 +21742,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IF___V14*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19826,10 +21776,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[6] = + /*_#IS_A__L8*/ + meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:3569:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[4] = (/*nil*/NULL);; @@ -19858,25 +21810,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3569; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURCTYP__V13*/ meltfptr[11]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ + meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3569:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[4];; + /*_.IFCPP___V16*/ + meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3569:/ clear"); - /*clear*/ /*_#IS_A__L8*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ meltfptr[4] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ + meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -19887,10 +21845,12 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3570:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*gtyctype #")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*gtyctype #")); } ; - /*_#plI__L9*/ meltfnum[0] = + /*_#plI__L9*/ + meltfnum[0] = ((1) + (/*_#TIX__L5*/ meltfnum[1]));; { @@ -19901,11 +21861,13 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3572:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " ")); } ; MELT_LOCATION("warmelt-modes.melt:3573:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -19916,7 +21878,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V19*/ meltfptr[17] = slot; + /*_.NAMED_NAME__V19*/ + meltfptr[17] = slot; }; ; } @@ -19936,7 +21899,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3574:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; @@ -19956,53 +21920,72 @@ meltlab_endgetargs: /*objgoto*/ goto mtch1_0; ; -/*objlabel*/ mtch1_0: + /*objlabel*/ +mtch1_0: ; MELT_LOCATION("warmelt-modes.melt:3577:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_52; meltlab_count_52++; - debugeprintf("objlabel_52 mtch1_*CLASS_NORMTESTER_INSTANCE/14458ac9. *CLASS_OBJLABELINSTR/2f619cca. %ld", meltlab_count_52); + debugeprintf("objlabel_52 mtch1_*CLASS_NORMTESTER_INSTANCE/6273e7b. *CLASS_OBJLABELINSTR/1939e97c. %ld", meltlab_count_52); #endif ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V20*/ meltfptr[4] = 0 ; + /*clear*/ /*_.NAMED_NAME__V20*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSTRUCT__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.CTYPG_MAPSTRUCT__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPMAGIC__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CTYPG_MAPMAGIC__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPDISCR__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.CTYPG_MAPDISCR__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPUNIMEMB__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.CTYPG_MAPUNIMEMB__V25*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_NEWMAPFUN__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.CTYPG_NEWMAPFUN__V26*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPGETFUN__V27*/ meltfptr[26] = 0 ; + /*clear*/ /*_.CTYPG_MAPGETFUN__V27*/ + meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPPUTFUN__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CTYPG_MAPPUTFUN__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPREMOVEFUN__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CTYPG_MAPREMOVEFUN__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPCOUNTFUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.CTYPG_MAPCOUNTFUN__V30*/ + meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPSIZEFUN__V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CTYPG_MAPSIZEFUN__V31*/ + meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPNATTFUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CTYPG_MAPNATTFUN__V32*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPNVALFUN__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CTYPG_MAPNVALFUN__V33*/ + meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPAUXDATAFUN__V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CTYPG_MAPAUXDATAFUN__V34*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPAUXPUTFUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.CTYPG_MAPAUXPUTFUN__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPG_MAPHASHFUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.CTYPG_MAPHASHFUN__V36*/ + meltfptr[35] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_CTYPE_GTY*/ meltfrout->tabval[2]))))) /*then*/ { @@ -20016,7 +21999,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V20*/ meltfptr[4] = slot; + /*_.NAMED_NAME__V20*/ + meltfptr[4] = slot; }; ; /*^getslot*/ @@ -20024,7 +22008,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V21*/ meltfptr[20] = slot; + /*_.CTYPE_CNAME__V21*/ + meltfptr[20] = slot; }; ; /*^getslot*/ @@ -20032,7 +22017,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 14, "CTYPG_MAPMAGIC"); - /*_.CTYPG_MAPMAGIC__V23*/ meltfptr[22] = slot; + /*_.CTYPG_MAPMAGIC__V23*/ + meltfptr[22] = slot; }; ; /*^getslot*/ @@ -20040,7 +22026,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 18, "CTYPG_MAPSTRUCT"); - /*_.CTYPG_MAPSTRUCT__V22*/ meltfptr[21] = slot; + /*_.CTYPG_MAPSTRUCT__V22*/ + meltfptr[21] = slot; }; ; /*^getslot*/ @@ -20048,7 +22035,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 19, "CTYPG_MAPDISCR"); - /*_.CTYPG_MAPDISCR__V24*/ meltfptr[23] = slot; + /*_.CTYPG_MAPDISCR__V24*/ + meltfptr[23] = slot; }; ; /*^getslot*/ @@ -20056,7 +22044,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 20, "CTYPG_MAPUNIMEMB"); - /*_.CTYPG_MAPUNIMEMB__V25*/ meltfptr[24] = slot; + /*_.CTYPG_MAPUNIMEMB__V25*/ + meltfptr[24] = slot; }; ; /*^getslot*/ @@ -20064,7 +22053,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 24, "CTYPG_NEWMAPFUN"); - /*_.CTYPG_NEWMAPFUN__V26*/ meltfptr[25] = slot; + /*_.CTYPG_NEWMAPFUN__V26*/ + meltfptr[25] = slot; }; ; /*^getslot*/ @@ -20072,7 +22062,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 25, "CTYPG_MAPGETFUN"); - /*_.CTYPG_MAPGETFUN__V27*/ meltfptr[26] = slot; + /*_.CTYPG_MAPGETFUN__V27*/ + meltfptr[26] = slot; }; ; /*^getslot*/ @@ -20080,7 +22071,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 26, "CTYPG_MAPPUTFUN"); - /*_.CTYPG_MAPPUTFUN__V28*/ meltfptr[27] = slot; + /*_.CTYPG_MAPPUTFUN__V28*/ + meltfptr[27] = slot; }; ; /*^getslot*/ @@ -20088,7 +22080,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 27, "CTYPG_MAPREMOVEFUN"); - /*_.CTYPG_MAPREMOVEFUN__V29*/ meltfptr[28] = slot; + /*_.CTYPG_MAPREMOVEFUN__V29*/ + meltfptr[28] = slot; }; ; /*^getslot*/ @@ -20096,7 +22089,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 28, "CTYPG_MAPCOUNTFUN"); - /*_.CTYPG_MAPCOUNTFUN__V30*/ meltfptr[29] = slot; + /*_.CTYPG_MAPCOUNTFUN__V30*/ + meltfptr[29] = slot; }; ; /*^getslot*/ @@ -20104,7 +22098,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 29, "CTYPG_MAPSIZEFUN"); - /*_.CTYPG_MAPSIZEFUN__V31*/ meltfptr[30] = slot; + /*_.CTYPG_MAPSIZEFUN__V31*/ + meltfptr[30] = slot; }; ; /*^getslot*/ @@ -20112,7 +22107,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 30, "CTYPG_MAPNATTFUN"); - /*_.CTYPG_MAPNATTFUN__V32*/ meltfptr[31] = slot; + /*_.CTYPG_MAPNATTFUN__V32*/ + meltfptr[31] = slot; }; ; /*^getslot*/ @@ -20120,7 +22116,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 31, "CTYPG_MAPNVALFUN"); - /*_.CTYPG_MAPNVALFUN__V33*/ meltfptr[32] = slot; + /*_.CTYPG_MAPNVALFUN__V33*/ + meltfptr[32] = slot; }; ; /*^getslot*/ @@ -20128,7 +22125,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 32, "CTYPG_MAPAUXDATAFUN"); - /*_.CTYPG_MAPAUXDATAFUN__V34*/ meltfptr[33] = slot; + /*_.CTYPG_MAPAUXDATAFUN__V34*/ + meltfptr[33] = slot; }; ; /*^getslot*/ @@ -20136,7 +22134,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 33, "CTYPG_MAPAUXPUTFUN"); - /*_.CTYPG_MAPAUXPUTFUN__V35*/ meltfptr[34] = slot; + /*_.CTYPG_MAPAUXPUTFUN__V35*/ + meltfptr[34] = slot; }; ; /*^getslot*/ @@ -20144,11 +22143,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURCTYP__V13*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 34, "CTYPG_MAPHASHFUN"); - /*_.CTYPG_MAPHASHFUN__V36*/ meltfptr[35] = slot; + /*_.CTYPG_MAPHASHFUN__V36*/ + meltfptr[35] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:3578:/ objgoto"); - /*objgoto*/ goto mtch1_1; + /*objgoto*/ + goto mtch1_1; ; } ; @@ -20162,28 +22163,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_1: + /*objlabel*/ +mtch1_1: ; MELT_LOCATION("warmelt-modes.melt:3578:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_53; meltlab_count_53++; - debugeprintf("objlabel_53 mtch1_*CLASS_NORMTESTER_MATCHER/1919578a. *CLASS_OBJLABELINSTR/1b156f94. %ld", meltlab_count_53); + debugeprintf("objlabel_53 mtch1_*CLASS_NORMTESTER_MATCHER/15e8e348. *CLASS_OBJLABELINSTR/2925eb55. %ld", meltlab_count_53); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.SV__V37*/ + meltfptr[36] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.NAMED_NAME__V20*/ meltfptr[4]) && melt_magic_discr((melt_ptr_t)(/*_.NAMED_NAME__V20*/ meltfptr[4])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20200,7 +22205,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3579:/ objgoto"); - /*objgoto*/ goto mtch1_2; + /*objgoto*/ + goto mtch1_2; ; } ; @@ -20214,28 +22220,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_2: + /*objlabel*/ +mtch1_2: ; MELT_LOCATION("warmelt-modes.melt:3579:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_54; meltlab_count_54++; - debugeprintf("objlabel_54 mtch1_*CLASS_NORMTESTER_MATCHER/3420c699. *CLASS_OBJLABELINSTR/1cb0b6f1. %ld", meltlab_count_54); + debugeprintf("objlabel_54 mtch1_*CLASS_NORMTESTER_MATCHER/90bea30. *CLASS_OBJLABELINSTR/6f4ec1c. %ld", meltlab_count_54); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V38*/ meltfptr[4] = 0 ; + /*clear*/ /*_.SV__V38*/ + meltfptr[4] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPE_CNAME__V21*/ meltfptr[20]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPE_CNAME__V21*/ meltfptr[20])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20252,7 +22262,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3580:/ objgoto"); - /*objgoto*/ goto mtch1_3; + /*objgoto*/ + goto mtch1_3; ; } ; @@ -20266,28 +22277,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_3: + /*objlabel*/ +mtch1_3: ; MELT_LOCATION("warmelt-modes.melt:3580:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_55; meltlab_count_55++; - debugeprintf("objlabel_55 mtch1_*CLASS_NORMTESTER_MATCHER/25f90bf6. *CLASS_OBJLABELINSTR/bc3d53a. %ld", meltlab_count_55); + debugeprintf("objlabel_55 mtch1_*CLASS_NORMTESTER_MATCHER/1532cdad. *CLASS_OBJLABELINSTR/2aaa7b40. %ld", meltlab_count_55); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V39*/ meltfptr[20] = 0 ; + /*clear*/ /*_.SV__V39*/ + meltfptr[20] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPSTRUCT__V22*/ meltfptr[21]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPSTRUCT__V22*/ meltfptr[21])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20304,7 +22319,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3581:/ objgoto"); - /*objgoto*/ goto mtch1_4; + /*objgoto*/ + goto mtch1_4; ; } ; @@ -20318,28 +22334,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_4: + /*objlabel*/ +mtch1_4: ; MELT_LOCATION("warmelt-modes.melt:3581:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_56; meltlab_count_56++; - debugeprintf("objlabel_56 mtch1_*CLASS_NORMTESTER_MATCHER/2b89af29. *CLASS_OBJLABELINSTR/1ae2efbf. %ld", meltlab_count_56); + debugeprintf("objlabel_56 mtch1_*CLASS_NORMTESTER_MATCHER/1ac1b58a. *CLASS_OBJLABELINSTR/3554f9d2. %ld", meltlab_count_56); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V40*/ meltfptr[21] = 0 ; + /*clear*/ /*_.SV__V40*/ + meltfptr[21] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPMAGIC__V23*/ meltfptr[22]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPMAGIC__V23*/ meltfptr[22])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20356,7 +22376,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3582:/ objgoto"); - /*objgoto*/ goto mtch1_5; + /*objgoto*/ + goto mtch1_5; ; } ; @@ -20370,28 +22391,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_5: + /*objlabel*/ +mtch1_5: ; MELT_LOCATION("warmelt-modes.melt:3582:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_57; meltlab_count_57++; - debugeprintf("objlabel_57 mtch1_*CLASS_NORMTESTER_INSTANCE/a9e274d. *CLASS_OBJLABELINSTR/246d52b0. %ld", meltlab_count_57); + debugeprintf("objlabel_57 mtch1_*CLASS_NORMTESTER_INSTANCE/39c455de. *CLASS_OBJLABELINSTR/28efa266. %ld", meltlab_count_57); #endif ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V41*/ meltfptr[22] = 0 ; + /*clear*/ /*_.NAMED_NAME__V41*/ + meltfptr[22] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*normtesterinst*/ (melt_is_instance_of((melt_ptr_t)(/*_.CTYPG_MAPDISCR__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_DISCRIMINANT*/ meltfrout->tabval[5]))))) /*then*/ { @@ -20405,11 +22430,13 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CTYPG_MAPDISCR__V24*/ meltfptr[23]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V41*/ meltfptr[22] = slot; + /*_.NAMED_NAME__V41*/ + meltfptr[22] = slot; }; ; MELT_LOCATION("warmelt-modes.melt:3584:/ objgoto"); - /*objgoto*/ goto mtch1_6; + /*objgoto*/ + goto mtch1_6; ; } ; @@ -20423,28 +22450,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_6: + /*objlabel*/ +mtch1_6: ; MELT_LOCATION("warmelt-modes.melt:3584:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_58; meltlab_count_58++; - debugeprintf("objlabel_58 mtch1_*CLASS_NORMTESTER_MATCHER/782948b. *CLASS_OBJLABELINSTR/2ce8f39f. %ld", meltlab_count_58); + debugeprintf("objlabel_58 mtch1_*CLASS_NORMTESTER_MATCHER/53a1f12. *CLASS_OBJLABELINSTR/337e55a1. %ld", meltlab_count_58); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V42*/ meltfptr[23] = 0 ; + /*clear*/ /*_.SV__V42*/ + meltfptr[23] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPUNIMEMB__V25*/ meltfptr[24]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPUNIMEMB__V25*/ meltfptr[24])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20461,7 +22492,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3585:/ objgoto"); - /*objgoto*/ goto mtch1_7; + /*objgoto*/ + goto mtch1_7; ; } ; @@ -20475,28 +22507,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_7: + /*objlabel*/ +mtch1_7: ; MELT_LOCATION("warmelt-modes.melt:3585:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_59; meltlab_count_59++; - debugeprintf("objlabel_59 mtch1_*CLASS_NORMTESTER_MATCHER/388a7d. *CLASS_OBJLABELINSTR/3598a055. %ld", meltlab_count_59); + debugeprintf("objlabel_59 mtch1_*CLASS_NORMTESTER_MATCHER/15cbf1c1. *CLASS_OBJLABELINSTR/3819309f. %ld", meltlab_count_59); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V43*/ meltfptr[24] = 0 ; + /*clear*/ /*_.SV__V43*/ + meltfptr[24] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_NEWMAPFUN__V26*/ meltfptr[25]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_NEWMAPFUN__V26*/ meltfptr[25])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20513,7 +22549,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3586:/ objgoto"); - /*objgoto*/ goto mtch1_8; + /*objgoto*/ + goto mtch1_8; ; } ; @@ -20527,28 +22564,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_8: + /*objlabel*/ +mtch1_8: ; MELT_LOCATION("warmelt-modes.melt:3586:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_60; meltlab_count_60++; - debugeprintf("objlabel_60 mtch1_*CLASS_NORMTESTER_MATCHER/31d55997. *CLASS_OBJLABELINSTR/18873041. %ld", meltlab_count_60); + debugeprintf("objlabel_60 mtch1_*CLASS_NORMTESTER_MATCHER/39df9b34. *CLASS_OBJLABELINSTR/153e23c3. %ld", meltlab_count_60); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V44*/ meltfptr[25] = 0 ; + /*clear*/ /*_.SV__V44*/ + meltfptr[25] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPGETFUN__V27*/ meltfptr[26]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPGETFUN__V27*/ meltfptr[26])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20565,7 +22606,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3587:/ objgoto"); - /*objgoto*/ goto mtch1_9; + /*objgoto*/ + goto mtch1_9; ; } ; @@ -20579,28 +22621,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_9: + /*objlabel*/ +mtch1_9: ; MELT_LOCATION("warmelt-modes.melt:3587:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_61; meltlab_count_61++; - debugeprintf("objlabel_61 mtch1_*CLASS_NORMTESTER_MATCHER/117fe6e2. *CLASS_OBJLABELINSTR/245f6169. %ld", meltlab_count_61); + debugeprintf("objlabel_61 mtch1_*CLASS_NORMTESTER_MATCHER/865fc68. *CLASS_OBJLABELINSTR/15ad37b0. %ld", meltlab_count_61); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V45*/ meltfptr[26] = 0 ; + /*clear*/ /*_.SV__V45*/ + meltfptr[26] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPPUTFUN__V28*/ meltfptr[27]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPPUTFUN__V28*/ meltfptr[27])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20617,7 +22663,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3588:/ objgoto"); - /*objgoto*/ goto mtch1_10; + /*objgoto*/ + goto mtch1_10; ; } ; @@ -20631,28 +22678,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_10: + /*objlabel*/ +mtch1_10: ; MELT_LOCATION("warmelt-modes.melt:3588:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_62; meltlab_count_62++; - debugeprintf("objlabel_62 mtch1_*CLASS_NORMTESTER_MATCHER/28c3a005. *CLASS_OBJLABELINSTR/38c0a49d. %ld", meltlab_count_62); + debugeprintf("objlabel_62 mtch1_*CLASS_NORMTESTER_MATCHER/3c130f45. *CLASS_OBJLABELINSTR/3588a531. %ld", meltlab_count_62); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V46*/ meltfptr[27] = 0 ; + /*clear*/ /*_.SV__V46*/ + meltfptr[27] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPREMOVEFUN__V29*/ meltfptr[28]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPREMOVEFUN__V29*/ meltfptr[28])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20669,7 +22720,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3589:/ objgoto"); - /*objgoto*/ goto mtch1_11; + /*objgoto*/ + goto mtch1_11; ; } ; @@ -20683,28 +22735,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_11: + /*objlabel*/ +mtch1_11: ; MELT_LOCATION("warmelt-modes.melt:3589:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_63; meltlab_count_63++; - debugeprintf("objlabel_63 mtch1_*CLASS_NORMTESTER_MATCHER/20d69322. *CLASS_OBJLABELINSTR/3eead0fd. %ld", meltlab_count_63); + debugeprintf("objlabel_63 mtch1_*CLASS_NORMTESTER_MATCHER/296e7ebf. *CLASS_OBJLABELINSTR/3ba9d14. %ld", meltlab_count_63); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V47*/ meltfptr[28] = 0 ; + /*clear*/ /*_.SV__V47*/ + meltfptr[28] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPCOUNTFUN__V30*/ meltfptr[29]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPCOUNTFUN__V30*/ meltfptr[29])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20721,7 +22777,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3590:/ objgoto"); - /*objgoto*/ goto mtch1_12; + /*objgoto*/ + goto mtch1_12; ; } ; @@ -20735,28 +22792,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_12: + /*objlabel*/ +mtch1_12: ; MELT_LOCATION("warmelt-modes.melt:3590:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_64; meltlab_count_64++; - debugeprintf("objlabel_64 mtch1_*CLASS_NORMTESTER_MATCHER/31c812fc. *CLASS_OBJLABELINSTR/2da51adb. %ld", meltlab_count_64); + debugeprintf("objlabel_64 mtch1_*CLASS_NORMTESTER_MATCHER/3e32ce9f. *CLASS_OBJLABELINSTR/26f2c575. %ld", meltlab_count_64); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V48*/ meltfptr[29] = 0 ; + /*clear*/ /*_.SV__V48*/ + meltfptr[29] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPSIZEFUN__V31*/ meltfptr[30]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPSIZEFUN__V31*/ meltfptr[30])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20773,7 +22834,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3591:/ objgoto"); - /*objgoto*/ goto mtch1_13; + /*objgoto*/ + goto mtch1_13; ; } ; @@ -20787,28 +22849,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_13: + /*objlabel*/ +mtch1_13: ; MELT_LOCATION("warmelt-modes.melt:3591:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_65; meltlab_count_65++; - debugeprintf("objlabel_65 mtch1_*CLASS_NORMTESTER_MATCHER/29c0bdd0. *CLASS_OBJLABELINSTR/5c053ac. %ld", meltlab_count_65); + debugeprintf("objlabel_65 mtch1_*CLASS_NORMTESTER_MATCHER/3e9df176. *CLASS_OBJLABELINSTR/3d4d27ff. %ld", meltlab_count_65); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V49*/ meltfptr[30] = 0 ; + /*clear*/ /*_.SV__V49*/ + meltfptr[30] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPNATTFUN__V32*/ meltfptr[31]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPNATTFUN__V32*/ meltfptr[31])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20825,7 +22891,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3592:/ objgoto"); - /*objgoto*/ goto mtch1_14; + /*objgoto*/ + goto mtch1_14; ; } ; @@ -20839,28 +22906,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_14: + /*objlabel*/ +mtch1_14: ; MELT_LOCATION("warmelt-modes.melt:3592:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_66; meltlab_count_66++; - debugeprintf("objlabel_66 mtch1_*CLASS_NORMTESTER_MATCHER/198b1db7. *CLASS_OBJLABELINSTR/19bbe4dd. %ld", meltlab_count_66); + debugeprintf("objlabel_66 mtch1_*CLASS_NORMTESTER_MATCHER/32c0dd68. *CLASS_OBJLABELINSTR/2079d8eb. %ld", meltlab_count_66); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V50*/ meltfptr[31] = 0 ; + /*clear*/ /*_.SV__V50*/ + meltfptr[31] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPNVALFUN__V33*/ meltfptr[32]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPNVALFUN__V33*/ meltfptr[32])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20877,7 +22948,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3593:/ objgoto"); - /*objgoto*/ goto mtch1_15; + /*objgoto*/ + goto mtch1_15; ; } ; @@ -20891,28 +22963,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_15: + /*objlabel*/ +mtch1_15: ; MELT_LOCATION("warmelt-modes.melt:3593:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_67; meltlab_count_67++; - debugeprintf("objlabel_67 mtch1_*CLASS_NORMTESTER_MATCHER/1ae57fe5. *CLASS_OBJLABELINSTR/13e1f46a. %ld", meltlab_count_67); + debugeprintf("objlabel_67 mtch1_*CLASS_NORMTESTER_MATCHER/17f2993e. *CLASS_OBJLABELINSTR/35ac41cc. %ld", meltlab_count_67); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V51*/ meltfptr[32] = 0 ; + /*clear*/ /*_.SV__V51*/ + meltfptr[32] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPAUXDATAFUN__V34*/ meltfptr[33]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPAUXDATAFUN__V34*/ meltfptr[33])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20929,7 +23005,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3594:/ objgoto"); - /*objgoto*/ goto mtch1_16; + /*objgoto*/ + goto mtch1_16; ; } ; @@ -20943,28 +23020,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_16: + /*objlabel*/ +mtch1_16: ; MELT_LOCATION("warmelt-modes.melt:3594:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_68; meltlab_count_68++; - debugeprintf("objlabel_68 mtch1_*CLASS_NORMTESTER_MATCHER/253c54bc. *CLASS_OBJLABELINSTR/fea5bc. %ld", meltlab_count_68); + debugeprintf("objlabel_68 mtch1_*CLASS_NORMTESTER_MATCHER/2caa653a. *CLASS_OBJLABELINSTR/1b4ad68c. %ld", meltlab_count_68); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V52*/ meltfptr[33] = 0 ; + /*clear*/ /*_.SV__V52*/ + meltfptr[33] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPAUXPUTFUN__V35*/ meltfptr[34]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPAUXPUTFUN__V35*/ meltfptr[34])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -20981,7 +23062,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3595:/ objgoto"); - /*objgoto*/ goto mtch1_17; + /*objgoto*/ + goto mtch1_17; ; } ; @@ -20995,28 +23077,32 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_17: + /*objlabel*/ +mtch1_17: ; MELT_LOCATION("warmelt-modes.melt:3595:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_69; meltlab_count_69++; - debugeprintf("objlabel_69 mtch1_*CLASS_NORMTESTER_MATCHER/17b386c8. *CLASS_OBJLABELINSTR/297b61f9. %ld", meltlab_count_69); + debugeprintf("objlabel_69 mtch1_*CLASS_NORMTESTER_MATCHER/3a96543e. *CLASS_OBJLABELINSTR/fd1337f. %ld", meltlab_count_69); #endif ; /*^clear*/ - /*clear*/ /*_.SV__V53*/ meltfptr[34] = 0 ; + /*clear*/ /*_.SV__V53*/ + meltfptr[34] = 0 ; /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*some_string_value SOMESTRVAL_mtch1__1? */ ((/*_.CTYPG_MAPHASHFUN__V36*/ meltfptr[35]) && melt_magic_discr((melt_ptr_t)(/*_.CTYPG_MAPHASHFUN__V36*/ meltfptr[35])) == MELTOBMAG_STRING) ) /*then*/ { /*^cond.then*/ @@ -21033,7 +23119,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3577:/ objgoto"); - /*objgoto*/ goto mtch1_18; + /*objgoto*/ + goto mtch1_18; ; } ; @@ -21047,62 +23134,82 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1_19; + /*objgoto*/ + goto mtch1_19; ; } ; } ; -/*objlabel*/ mtch1_18: + /*objlabel*/ +mtch1_18: ; MELT_LOCATION("warmelt-modes.melt:3577:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_70; meltlab_count_70++; - debugeprintf("objlabel_70 mtch1_*CLASS_NORMTESTER_SUCCESS/78985c6. *CLASS_OBJLABELINSTR/2cbb103. %ld", meltlab_count_70); + debugeprintf("objlabel_70 mtch1_*CLASS_NORMTESTER_SUCCESS/25320dc8. *CLASS_OBJLABELINSTR/1b1b7ad7. %ld", meltlab_count_70); #endif ; /*^quasiblock*/ - /*_.CNAME__V54*/ meltfptr[35] = /*_.SV__V38*/ meltfptr[4];; + /*_.CNAME__V54*/ + meltfptr[35] = /*_.SV__V38*/ meltfptr[4];; /*^compute*/ - /*_.CTYPNAM__V55*/ meltfptr[54] = /*_.SV__V37*/ meltfptr[36];; + /*_.CTYPNAM__V55*/ + meltfptr[54] = /*_.SV__V37*/ meltfptr[36];; /*^compute*/ - /*_.MAPAUXDATAFUN__V56*/ meltfptr[55] = /*_.SV__V51*/ meltfptr[32];; + /*_.MAPAUXDATAFUN__V56*/ + meltfptr[55] = /*_.SV__V51*/ meltfptr[32];; /*^compute*/ - /*_.MAPAUXPUTFUN__V57*/ meltfptr[56] = /*_.SV__V52*/ meltfptr[33];; + /*_.MAPAUXPUTFUN__V57*/ + meltfptr[56] = /*_.SV__V52*/ meltfptr[33];; /*^compute*/ - /*_.MAPCOUNTFUN__V58*/ meltfptr[57] = /*_.SV__V47*/ meltfptr[28];; + /*_.MAPCOUNTFUN__V58*/ + meltfptr[57] = /*_.SV__V47*/ meltfptr[28];; /*^compute*/ - /*_.MAPDISCR__V59*/ meltfptr[58] = /*_.CTYPG_MAPDISCR__V24*/ meltfptr[23];; + /*_.MAPDISCR__V59*/ + meltfptr[58] = /*_.CTYPG_MAPDISCR__V24*/ meltfptr[23];; /*^compute*/ - /*_.MAPDISCRNAME__V60*/ meltfptr[59] = /*_.NAMED_NAME__V41*/ meltfptr[22];; + /*_.MAPDISCRNAME__V60*/ + meltfptr[59] = /*_.NAMED_NAME__V41*/ meltfptr[22];; /*^compute*/ - /*_.MAPGETFUN__V61*/ meltfptr[60] = /*_.SV__V44*/ meltfptr[25];; + /*_.MAPGETFUN__V61*/ + meltfptr[60] = /*_.SV__V44*/ meltfptr[25];; /*^compute*/ - /*_.MAPHASHFUN__V62*/ meltfptr[61] = /*_.SV__V53*/ meltfptr[34];; + /*_.MAPHASHFUN__V62*/ + meltfptr[61] = /*_.SV__V53*/ meltfptr[34];; /*^compute*/ - /*_.MAPMAGIC__V63*/ meltfptr[62] = /*_.SV__V40*/ meltfptr[21];; + /*_.MAPMAGIC__V63*/ + meltfptr[62] = /*_.SV__V40*/ meltfptr[21];; /*^compute*/ - /*_.MAPNATTFUN__V64*/ meltfptr[63] = /*_.SV__V49*/ meltfptr[30];; + /*_.MAPNATTFUN__V64*/ + meltfptr[63] = /*_.SV__V49*/ meltfptr[30];; /*^compute*/ - /*_.MAPNVALFUN__V65*/ meltfptr[64] = /*_.SV__V50*/ meltfptr[31];; + /*_.MAPNVALFUN__V65*/ + meltfptr[64] = /*_.SV__V50*/ meltfptr[31];; /*^compute*/ - /*_.MAPPUTFUN__V66*/ meltfptr[65] = /*_.SV__V45*/ meltfptr[26];; + /*_.MAPPUTFUN__V66*/ + meltfptr[65] = /*_.SV__V45*/ meltfptr[26];; /*^compute*/ - /*_.MAPREMOVEFUN__V67*/ meltfptr[66] = /*_.SV__V46*/ meltfptr[27];; + /*_.MAPREMOVEFUN__V67*/ + meltfptr[66] = /*_.SV__V46*/ meltfptr[27];; /*^compute*/ - /*_.MAPSIZEFUN__V68*/ meltfptr[67] = /*_.SV__V48*/ meltfptr[29];; + /*_.MAPSIZEFUN__V68*/ + meltfptr[67] = /*_.SV__V48*/ meltfptr[29];; /*^compute*/ - /*_.MAPSTRUCT__V69*/ meltfptr[68] = /*_.SV__V39*/ meltfptr[20];; + /*_.MAPSTRUCT__V69*/ + meltfptr[68] = /*_.SV__V39*/ meltfptr[20];; /*^compute*/ - /*_.MAPUNIMEMB__V70*/ meltfptr[69] = /*_.SV__V42*/ meltfptr[23];; + /*_.MAPUNIMEMB__V70*/ + meltfptr[69] = /*_.SV__V42*/ meltfptr[23];; /*^compute*/ - /*_.NEWMAPFUN__V71*/ meltfptr[70] = /*_.SV__V43*/ meltfptr[24];; + /*_.NEWMAPFUN__V71*/ + meltfptr[70] = /*_.SV__V43*/ meltfptr[24];; { MELT_LOCATION("warmelt-modes.melt:3597:/ locexp"); @@ -21112,20 +23219,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3598:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/***map support for GTY ctype ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/***map support for GTY ctype ")); } ; { MELT_LOCATION("warmelt-modes.melt:3599:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3600:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " **/")); } ; @@ -21137,10 +23247,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L10*/ meltfnum[6] = + /*_#IS_STRING__L10*/ + meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.NEWMAPFUN__V71*/ meltfptr[70])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3605:/ cond"); - /*cond*/ if (/*_#IS_STRING__L10*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L10*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21150,33 +23262,38 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3606:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline melt_ptr_t /*New map for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline melt_ptr_t /*New map for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3607:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3608:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3609:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.NEWMAPFUN__V71*/ meltfptr[70]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.NEWMAPFUN__V71*/ meltfptr[70]))); } ; { MELT_LOCATION("warmelt-modes.melt:3610:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (meltobject_ptr_t discr, unsigned len) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (meltobject_ptr_t discr, unsigned len) {")); } ; @@ -21188,35 +23305,40 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3612:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])))); } ; { MELT_LOCATION("warmelt-modes.melt:3617:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3618:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])))); } ; { MELT_LOCATION("warmelt-modes.melt:3622:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3623:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " */")); } ; @@ -21242,7 +23364,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3627:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* no new map function */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* no new map function */")); } ; MELT_LOCATION("warmelt-modes.melt:3626:/ quasiblock"); @@ -21262,10 +23385,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L11*/ meltfnum[10] = + /*_#IS_STRING__L11*/ + meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.MAPGETFUN__V61*/ meltfptr[60])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3634:/ cond"); - /*cond*/ if (/*_#IS_STRING__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21275,46 +23400,53 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3635:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline melt_ptr_t /* Map getter for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline melt_ptr_t /* Map getter for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3636:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3637:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3638:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPGETFUN__V61*/ meltfptr[60]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPGETFUN__V61*/ meltfptr[60]))); } ; { MELT_LOCATION("warmelt-modes.melt:3639:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (melt_ptr_t map_p, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (melt_ptr_t map_p, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3640:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:3641:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " attr) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " attr) {")); } ; @@ -21326,7 +23458,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3643:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_p || !attr ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_p || !attr ")); } ; @@ -21338,20 +23471,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3645:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_p) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_p) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3646:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3647:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -21363,7 +23499,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3649:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return NULL;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return NULL;")); } ; @@ -21375,7 +23512,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3651:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return melt_raw_get_mappointers ((void*)map_p, (void*)attr);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return melt_raw_get_mappointers ((void*)map_p, (void*)attr);")); } ; @@ -21387,20 +23525,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3653:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map getter for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map getter for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3654:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3655:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; @@ -21426,7 +23567,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3659:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map getter function*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map getter function*/")); } ; MELT_LOCATION("warmelt-modes.melt:3658:/ quasiblock"); @@ -21446,10 +23588,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L12*/ meltfnum[11] = + /*_#IS_STRING__L12*/ + meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.MAPPUTFUN__V66*/ meltfptr[65])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3666:/ cond"); - /*cond*/ if (/*_#IS_STRING__L12*/ meltfnum[11]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21459,46 +23603,53 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3667:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline void /* Map putter for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline void /* Map putter for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3668:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3669:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3670:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPPUTFUN__V66*/ meltfptr[65]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPPUTFUN__V66*/ meltfptr[65]))); } ; { MELT_LOCATION("warmelt-modes.melt:3671:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (melt_ptr_t map_p, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (melt_ptr_t map_p, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3672:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:3673:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " attr, melt_ptr_t valu_p) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " attr, melt_ptr_t valu_p) {")); } ; @@ -21510,7 +23661,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3675:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_p || !attr || !valu_p")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_p || !attr || !valu_p")); } ; @@ -21522,20 +23674,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3677:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_p) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_p) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3678:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3679:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -21547,7 +23702,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3681:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return;")); } ; @@ -21559,7 +23715,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3683:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "meltgc_raw_put_mappointers ((void*)map_p, (void*)attr, valu_p);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "meltgc_raw_put_mappointers ((void*)map_p, (void*)attr, valu_p);")); } ; @@ -21571,20 +23728,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3685:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map putter for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map putter for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3686:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3687:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; MELT_LOCATION("warmelt-modes.melt:3666:/ quasiblock"); @@ -21604,7 +23764,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3690:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map putter*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map putter*/")); } ; MELT_LOCATION("warmelt-modes.melt:3689:/ quasiblock"); @@ -21624,10 +23785,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L13*/ meltfnum[12] = + /*_#IS_STRING__L13*/ + meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.MAPREMOVEFUN__V67*/ meltfptr[66])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3696:/ cond"); - /*cond*/ if (/*_#IS_STRING__L13*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21637,46 +23800,53 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3697:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline void /* Map remover for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline void /* Map remover for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3698:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3699:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3700:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPREMOVEFUN__V67*/ meltfptr[66]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPREMOVEFUN__V67*/ meltfptr[66]))); } ; { MELT_LOCATION("warmelt-modes.melt:3701:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (melt_ptr_t map_p, ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (melt_ptr_t map_p, ")); } ; { MELT_LOCATION("warmelt-modes.melt:3702:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:3703:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " attr) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " attr) {")); } ; @@ -21688,7 +23858,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3705:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_p || !attr")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_p || !attr")); } ; @@ -21700,20 +23871,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3707:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_p) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_p) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3708:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3709:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -21725,7 +23899,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3711:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return;")); } ; @@ -21737,7 +23912,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3713:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "meltgc_raw_remove_mappointers ((void*)map_p, (void*)attr);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "meltgc_raw_remove_mappointers ((void*)map_p, (void*)attr);")); } ; @@ -21749,26 +23925,30 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3715:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map remover for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map remover for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3716:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3717:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; { MELT_LOCATION("warmelt-modes.melt:3718:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; MELT_LOCATION("warmelt-modes.melt:3696:/ quasiblock"); @@ -21788,7 +23968,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3721:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map remover*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map remover*/")); } ; MELT_LOCATION("warmelt-modes.melt:3720:/ quasiblock"); @@ -21808,10 +23989,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L14*/ meltfnum[13] = + /*_#IS_STRING__L14*/ + meltfnum[13] = (melt_magic_discr((melt_ptr_t)(/*_.MAPCOUNTFUN__V58*/ meltfptr[57])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3728:/ cond"); - /*cond*/ if (/*_#IS_STRING__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -21821,46 +24004,53 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3729:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline unsigned /* Map counter for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline unsigned /* Map counter for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3730:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3731:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3732:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPCOUNTFUN__V58*/ meltfptr[57]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPCOUNTFUN__V58*/ meltfptr[57]))); } ; { MELT_LOCATION("warmelt-modes.melt:3733:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3734:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); } ; { MELT_LOCATION("warmelt-modes.melt:3735:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s) {")); } ; @@ -21872,7 +24062,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3737:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); } ; @@ -21884,20 +24075,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3739:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3740:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3741:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -21909,7 +24103,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3743:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); } ; @@ -21921,7 +24116,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3745:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return map_s->count;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return map_s->count;")); } ; @@ -21933,26 +24129,30 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3747:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map counter for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map counter for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3748:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3749:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; { MELT_LOCATION("warmelt-modes.melt:3750:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; MELT_LOCATION("warmelt-modes.melt:3728:/ quasiblock"); @@ -21972,7 +24172,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3753:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map counter function*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map counter function*/")); } ; MELT_LOCATION("warmelt-modes.melt:3752:/ quasiblock"); @@ -21992,10 +24193,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L15*/ meltfnum[14] = + /*_#IS_STRING__L15*/ + meltfnum[14] = (melt_magic_discr((melt_ptr_t)(/*_.MAPSIZEFUN__V68*/ meltfptr[67])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3760:/ cond"); - /*cond*/ if (/*_#IS_STRING__L15*/ meltfnum[14]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22005,46 +24208,53 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3761:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline unsigned /* Map size for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline unsigned /* Map size for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3762:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3763:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3764:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPSIZEFUN__V68*/ meltfptr[67]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPSIZEFUN__V68*/ meltfptr[67]))); } ; { MELT_LOCATION("warmelt-modes.melt:3765:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3766:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); } ; { MELT_LOCATION("warmelt-modes.melt:3767:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s) {")); } ; @@ -22056,7 +24266,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3769:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); } ; @@ -22068,20 +24279,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3771:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3772:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3773:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -22093,7 +24307,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3775:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); } ; @@ -22105,7 +24320,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3777:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return melt_primtab[map_s->lenix];")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return melt_primtab[map_s->lenix];")); } ; @@ -22117,20 +24333,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3779:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map size for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map size for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3780:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3781:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; MELT_LOCATION("warmelt-modes.melt:3760:/ quasiblock"); @@ -22150,7 +24369,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3784:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* no map size function */")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* no map size function */")); } ; MELT_LOCATION("warmelt-modes.melt:3783:/ quasiblock"); @@ -22170,10 +24390,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L16*/ meltfnum[15] = + /*_#IS_STRING__L16*/ + meltfnum[15] = (melt_magic_discr((melt_ptr_t)(/*_.MAPNATTFUN__V64*/ meltfptr[63])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3791:/ cond"); - /*cond*/ if (/*_#IS_STRING__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22183,59 +24405,68 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3792:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline ")); } ; { MELT_LOCATION("warmelt-modes.melt:3793:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:3794:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* Map nth attr for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* Map nth attr for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3795:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3796:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3797:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPNATTFUN__V64*/ meltfptr[63]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPNATTFUN__V64*/ meltfptr[63]))); } ; { MELT_LOCATION("warmelt-modes.melt:3798:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3799:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); } ; { MELT_LOCATION("warmelt-modes.melt:3800:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s, int ix) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s, int ix) {")); } ; @@ -22247,14 +24478,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3802:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:3803:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " at = 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " at = 0;")); } ; @@ -22266,7 +24499,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3805:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); } ; @@ -22278,20 +24512,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3807:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3808:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3809:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -22303,7 +24540,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3811:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); } ; @@ -22315,7 +24553,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3813:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "at = map_s->entab[ix].e_at;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "at = map_s->entab[ix].e_at;")); } ; @@ -22327,13 +24566,15 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3815:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if ((void*) at == (void*) HTAB_DELETED_ENTRY) return 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if ((void*) at == (void*) HTAB_DELETED_ENTRY) return 0;")); } ; { MELT_LOCATION("warmelt-modes.melt:3816:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return at;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return at;")); } ; @@ -22345,20 +24586,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3818:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map nth attr for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map nth attr for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3819:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3820:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; MELT_LOCATION("warmelt-modes.melt:3791:/ quasiblock"); @@ -22378,7 +24622,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3823:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map nth attr function*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map nth attr function*/")); } ; MELT_LOCATION("warmelt-modes.melt:3822:/ quasiblock"); @@ -22398,10 +24643,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L17*/ meltfnum[16] = + /*_#IS_STRING__L17*/ + meltfnum[16] = (melt_magic_discr((melt_ptr_t)(/*_.MAPNVALFUN__V65*/ meltfptr[64])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3829:/ cond"); - /*cond*/ if (/*_#IS_STRING__L17*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22411,52 +24658,60 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3830:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline melt_ptr_t ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "static inline melt_ptr_t ")); } ; { MELT_LOCATION("warmelt-modes.melt:3831:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* Map nth value for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/* Map nth value for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3832:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3833:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/ ")); } ; { MELT_LOCATION("warmelt-modes.melt:3834:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPNVALFUN__V65*/ meltfptr[64]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPNVALFUN__V65*/ meltfptr[64]))); } ; { MELT_LOCATION("warmelt-modes.melt:3835:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " (struct ")); } ; { MELT_LOCATION("warmelt-modes.melt:3836:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPSTRUCT__V69*/ meltfptr[68]))); } ; { MELT_LOCATION("warmelt-modes.melt:3837:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s, int ix) {")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "* map_s, int ix) {")); } ; @@ -22468,14 +24723,16 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3839:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CNAME__V54*/ meltfptr[35]))); } ; { MELT_LOCATION("warmelt-modes.melt:3840:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " at = 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " at = 0;")); } ; @@ -22487,7 +24744,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3842:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if (!map_s")); } ; @@ -22499,20 +24757,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3844:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " || melt_magic_discr ((melt_ptr_t) map_s) != ")); } ; { MELT_LOCATION("warmelt-modes.melt:3845:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.MAPMAGIC__V63*/ meltfptr[62]))); } ; { MELT_LOCATION("warmelt-modes.melt:3846:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( ")")); } ; @@ -22524,7 +24785,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3848:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return 0;")); } ; @@ -22536,7 +24798,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3850:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "at = map_s->entab[ix].e_at;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "at = map_s->entab[ix].e_at;")); } ; @@ -22548,13 +24811,15 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3852:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if ((void*) at == (void*) HTAB_DELETED_ENTRY) return 0;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "if ((void*) at == (void*) HTAB_DELETED_ENTRY) return 0;")); } ; { MELT_LOCATION("warmelt-modes.melt:3853:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return map_s->entab[ix].e_va;")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "return map_s->entab[ix].e_va;")); } ; @@ -22566,20 +24831,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3855:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map nth value for ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "} /*end generated map nth value for ")); } ; { MELT_LOCATION("warmelt-modes.melt:3856:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3857:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "*/")); } ; MELT_LOCATION("warmelt-modes.melt:3829:/ quasiblock"); @@ -22599,7 +24867,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3860:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map nth value function*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*no map nth value function*/")); } ; MELT_LOCATION("warmelt-modes.melt:3859:/ quasiblock"); @@ -22619,10 +24888,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L18*/ meltfnum[17] = + /*_#IS_STRING__L18*/ + meltfnum[17] = (melt_magic_discr((melt_ptr_t)(/*_.MAPAUXDATAFUN__V56*/ meltfptr[55])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3866:/ cond"); - /*cond*/ if (/*_#IS_STRING__L18*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22657,14 +24928,17 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[8].meltbp_cstring = "*)map_p)->meltmap_aux;\n\t\t return NULL;\ \n\t }\n\t "; - /*_.ADD2OUT__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V73*/ + meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V72*/ meltfptr[71] = /*_.ADD2OUT__V73*/ meltfptr[72];; + /*_._IFELSE___V72*/ + meltfptr[71] = /*_.ADD2OUT__V73*/ meltfptr[72];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3866:/ clear"); - /*clear*/ /*_.ADD2OUT__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.ADD2OUT__V73*/ + meltfptr[72] = 0 ; } ; } @@ -22689,21 +24963,26 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPNAM__V55*/ meltfptr[54]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*/"; - /*_.ADD2OUT__V74*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V74*/ + meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:3878:/ quasiblock"); - /*_.PROGN___V75*/ meltfptr[74] = /*_.ADD2OUT__V74*/ meltfptr[72];; + /*_.PROGN___V75*/ + meltfptr[74] = /*_.ADD2OUT__V74*/ meltfptr[72];; /*^compute*/ - /*_._IFELSE___V72*/ meltfptr[71] = /*_.PROGN___V75*/ meltfptr[74];; + /*_._IFELSE___V72*/ + meltfptr[71] = /*_.PROGN___V75*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3866:/ clear"); - /*clear*/ /*_.ADD2OUT__V74*/ meltfptr[72] = 0 ; + /*clear*/ /*_.ADD2OUT__V74*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.PROGN___V75*/ + meltfptr[74] = 0 ; } ; } @@ -22717,10 +24996,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L19*/ meltfnum[18] = + /*_#IS_STRING__L19*/ + meltfnum[18] = (melt_magic_discr((melt_ptr_t)(/*_.MAPAUXPUTFUN__V57*/ meltfptr[56])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3885:/ cond"); - /*cond*/ if (/*_#IS_STRING__L19*/ meltfnum[18]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22757,14 +25038,17 @@ meltlab_endgetargs: );\n }\n\t\t return NULL;\ \n\t }\n\t \ "; - /*_.ADD2OUT__V77*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V77*/ + meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V76*/ meltfptr[72] = /*_.ADD2OUT__V77*/ meltfptr[74];; + /*_._IFELSE___V76*/ + meltfptr[72] = /*_.ADD2OUT__V77*/ meltfptr[74];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3885:/ clear"); - /*clear*/ /*_.ADD2OUT__V77*/ meltfptr[74] = 0 ; + /*clear*/ /*_.ADD2OUT__V77*/ + meltfptr[74] = 0 ; } ; } @@ -22789,21 +25073,26 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPNAM__V55*/ meltfptr[54]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*/"; - /*_.ADD2OUT__V78*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V78*/ + meltfptr[74] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:3899:/ quasiblock"); - /*_.PROGN___V79*/ meltfptr[78] = /*_.ADD2OUT__V78*/ meltfptr[74];; + /*_.PROGN___V79*/ + meltfptr[78] = /*_.ADD2OUT__V78*/ meltfptr[74];; /*^compute*/ - /*_._IFELSE___V76*/ meltfptr[72] = /*_.PROGN___V79*/ meltfptr[78];; + /*_._IFELSE___V76*/ + meltfptr[72] = /*_.PROGN___V79*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3885:/ clear"); - /*clear*/ /*_.ADD2OUT__V78*/ meltfptr[74] = 0 ; + /*clear*/ /*_.ADD2OUT__V78*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.PROGN___V79*/ + meltfptr[78] = 0 ; } ; } @@ -22817,10 +25106,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L20*/ meltfnum[19] = + /*_#IS_STRING__L20*/ + meltfnum[19] = (melt_magic_discr((melt_ptr_t)(/*_.MAPHASHFUN__V62*/ meltfptr[61])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:3906:/ cond"); - /*cond*/ if (/*_#IS_STRING__L20*/ meltfnum[19]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -22855,14 +25146,17 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[8].meltbp_cstring = "*)map_p)->meltmap_hash;\n\t\t return 0;\ \n\t }\n\t "; - /*_.ADD2OUT__V81*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V81*/ + meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V80*/ meltfptr[74] = /*_.ADD2OUT__V81*/ meltfptr[78];; + /*_._IFELSE___V80*/ + meltfptr[74] = /*_.ADD2OUT__V81*/ meltfptr[78];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3906:/ clear"); - /*clear*/ /*_.ADD2OUT__V81*/ meltfptr[78] = 0 ; + /*clear*/ /*_.ADD2OUT__V81*/ + meltfptr[78] = 0 ; } ; } @@ -22887,21 +25181,26 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPNAM__V55*/ meltfptr[54]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*/"; - /*_.ADD2OUT__V82*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V82*/ + meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:3918:/ quasiblock"); - /*_.PROGN___V83*/ meltfptr[82] = /*_.ADD2OUT__V82*/ meltfptr[78];; + /*_.PROGN___V83*/ + meltfptr[82] = /*_.ADD2OUT__V82*/ meltfptr[78];; /*^compute*/ - /*_._IFELSE___V80*/ meltfptr[74] = /*_.PROGN___V83*/ meltfptr[82];; + /*_._IFELSE___V80*/ + meltfptr[74] = /*_.PROGN___V83*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3906:/ clear"); - /*clear*/ /*_.ADD2OUT__V82*/ meltfptr[78] = 0 ; + /*clear*/ /*_.ADD2OUT__V82*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.PROGN___V83*/ + meltfptr[82] = 0 ; } ; } @@ -22915,20 +25214,23 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3926:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/***end of map support for GTY ctype ")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/***end of map support for GTY ctype ")); } ; { MELT_LOCATION("warmelt-modes.melt:3927:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), - melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), + melt_string_str((melt_ptr_t)(/*_.CTYPNAM__V55*/ meltfptr[54]))); } ; { MELT_LOCATION("warmelt-modes.melt:3928:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( " **/")); } ; @@ -22942,81 +25244,115 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:3577:/ clear"); - /*clear*/ /*_.CNAME__V54*/ meltfptr[35] = 0 ; + /*clear*/ /*_.CNAME__V54*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPNAM__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.CTYPNAM__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPAUXDATAFUN__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.MAPAUXDATAFUN__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPAUXPUTFUN__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.MAPAUXPUTFUN__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPCOUNTFUN__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.MAPCOUNTFUN__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPDISCR__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.MAPDISCR__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPDISCRNAME__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.MAPDISCRNAME__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPGETFUN__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.MAPGETFUN__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPHASHFUN__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MAPHASHFUN__V62*/ + meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPMAGIC__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.MAPMAGIC__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPNATTFUN__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.MAPNATTFUN__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPNVALFUN__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.MAPNVALFUN__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPPUTFUN__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.MAPPUTFUN__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPREMOVEFUN__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.MAPREMOVEFUN__V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPSIZEFUN__V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.MAPSIZEFUN__V68*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPSTRUCT__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.MAPSTRUCT__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.MAPUNIMEMB__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.MAPUNIMEMB__V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWMAPFUN__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.NEWMAPFUN__V71*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L10*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_STRING__L10*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_STRING__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L12*/ meltfnum[11] = 0 ; + /*clear*/ /*_#IS_STRING__L12*/ + meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_STRING__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_STRING__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#IS_STRING__L15*/ + meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#IS_STRING__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#IS_STRING__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#IS_STRING__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_._IFELSE___V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#IS_STRING__L19*/ + meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V76*/ meltfptr[72] = 0 ; + /*clear*/ /*_._IFELSE___V76*/ + meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#IS_STRING__L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V80*/ meltfptr[74] = 0 ; + /*clear*/ /*_._IFELSE___V80*/ + meltfptr[74] = 0 ; /*^objgoto*/ - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1_19: + /*objlabel*/ +mtch1_19: ; MELT_LOCATION("warmelt-modes.melt:3931:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_71; meltlab_count_71++; - debugeprintf("objlabel_71 mtch1_*CLASS_NORMTESTER_SUCCESS/1bcb6d53. *CLASS_OBJLABELINSTR/2d841191. %ld", meltlab_count_71); + debugeprintf("objlabel_71 mtch1_*CLASS_NORMTESTER_SUCCESS/211c6ee4. *CLASS_OBJLABELINSTR/1b0d0881. %ld", meltlab_count_71); #endif ; @@ -23026,22 +25362,25 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3932:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*incomplete gtypctype*/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/*incomplete gtypctype*/")); } ; MELT_LOCATION("warmelt-modes.melt:3931:/ objgoto"); - /*objgoto*/ goto mtch1__end /*endmatch*/; + /*objgoto*/ + goto mtch1__end /*endmatch*/; ; -/*objlabel*/ mtch1__end: + /*objlabel*/ +mtch1__end: ; MELT_LOCATION("warmelt-modes.melt:3576:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_72; meltlab_count_72++; - debugeprintf("objlabel_72 mtch1__end_h1069639379 *CLASS_OBJLABELINSTR/3fc166d3. %ld", meltlab_count_72); + debugeprintf("objlabel_72 mtch1__end_h225004574 *CLASS_OBJLABELINSTR/d694c1e. %ld", meltlab_count_72); #endif ; @@ -23059,21 +25398,27 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3565:/ clear"); - /*clear*/ /*_.CURCTYP__V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.CURCTYP__V13*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#TIX__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#TIX__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#plI__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_.NAMED_NAME__V19*/ + meltfptr[17] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; { MELT_LOCATION("warmelt-modes.melt:3938:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/** end of code generated by generate_runtypesupport_mapfun **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V4*/ meltfptr[3]), ( "/** end of code generated by generate_runtypesupport_mapfun **/")); } ; @@ -23108,7 +25453,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ meltfnum[6] = + /*_#MELT_NEED_DBG__L21*/ + meltfnum[6] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23117,7 +25463,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3942:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L21*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23150,16 +25497,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_mapfun end outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V85*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V85*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V84*/ meltfptr[78] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[82];; + /*_._IF___V84*/ + meltfptr[78] = /*_.MELT_DEBUG_FUN__V85*/ meltfptr[82];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3942:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ meltfptr[82] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V85*/ + meltfptr[82] = 0 ; } ; } @@ -23172,7 +25523,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3942:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23181,9 +25533,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V84*/ meltfptr[78] = 0 ; + /*clear*/ /*_._IF___V84*/ + meltfptr[78] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23209,9 +25563,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3553:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V7*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ + meltfptr[8] = 0 ; } ; @@ -23293,7 +25649,8 @@ meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS(meltclosure_ptr /* end of frame for routine meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS fromline 1756 */ - /* classy proc frame meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS */ MeltFrame_meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS + /* classy proc frame meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS */ + MeltFrame_meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS fromline 1785*/ #if ENABLE_CHECKING @@ -23306,7 +25663,8 @@ meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS(meltclosure_ptr #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -23316,7 +25674,8 @@ meltrout_58_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS(meltclosure_ptr /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:3950:/ getarg"); - /*_.OUTBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OUTBUF__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -23346,7 +25705,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23355,7 +25715,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3951:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23388,16 +25749,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_predef_fields start outbuf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; + /*_._IF___V3*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3951:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ + meltfptr[3] = 0 ; } ; } @@ -23410,7 +25775,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3951:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23419,9 +25785,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V3*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23451,10 +25819,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OUT__L3*/ meltfnum[1] = + /*_#IS_OUT__L3*/ + meltfnum[1] = (melt_is_out ((melt_ptr_t) /*_.OUTBUF__V2*/ meltfptr[1])) ;; MELT_LOCATION("warmelt-modes.melt:3952:/ cond"); - /*cond*/ if (/*_#IS_OUT__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_OUT__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[2] = (/*nil*/NULL);; @@ -23483,25 +25853,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3952; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V6*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; + /*_._IFELSE___V6*/ + meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3952:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ + meltfptr[6] = 0 ; } ; } ; - /*_.IFCPP___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; + /*_.IFCPP___V5*/ + meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3952:/ clear"); - /*clear*/ /*_#IS_OUT__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_OUT__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IFELSE___V6*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23530,7 +25906,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3956:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), ( "/** start of code generated by generate_runtypesupport_predef_fields **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), ( "/** start of code generated by generate_runtypesupport_predef_fields **/")); } ; @@ -23542,13 +25919,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:3959:/ quasiblock"); - /*_.CURPREDEF__V8*/ meltfptr[6] = (/*nil*/NULL);; + /*_.CURPREDEF__V8*/ + meltfptr[6] = (/*nil*/NULL);; /*^compute*/ - /*_#NBPREDEF__L4*/ meltfnum[0] = 0;; + /*_#NBPREDEF__L4*/ + meltfnum[0] = 0;; { MELT_LOCATION("warmelt-modes.melt:3962:/ locexp"); - /*GETNBPREDEFCHK__1*/ /*_#NBPREDEF__L4*/ meltfnum[0]= MELTGLOB__LASTWIRED ;; + /*GETNBPREDEFCHK__1*/ /*_#NBPREDEF__L4*/ + meltfnum[0]= MELTGLOB__LASTWIRED ;; } ; /*citerblock FOREACH_LONG_UPTO*/ @@ -23568,7 +25948,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3967:/ locexp"); - /*GETPREDEFCHK__1*/ /*_.CURPREDEF__V8*/ meltfptr[6]= melt_fetch_predefined(/*_#PRIX__L5*/ meltfnum[1]) ; ; + /*GETPREDEFCHK__1*/ /*_.CURPREDEF__V8*/ + meltfptr[6]= melt_fetch_predefined(/*_#PRIX__L5*/ meltfnum[1]) ; ; } ; @@ -23591,7 +25972,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[5] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -23600,7 +25982,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:3969:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23637,16 +26020,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " curpredef="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.CURPREDEF__V8*/ meltfptr[6]; - /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V9*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; + /*_._IF___V9*/ + meltfptr[2] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3969:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V10*/ + meltfptr[9] = 0 ; } ; } @@ -23659,7 +26046,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3969:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -23668,9 +26056,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V9*/ meltfptr[2] = 0 ; + /*clear*/ /*_._IF___V9*/ + meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23693,10 +26083,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L8*/ meltfnum[6] = + /*_#IS_A__L8*/ + meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURPREDEF__V8*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-modes.melt:3970:/ cond"); - /*cond*/ if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23707,7 +26099,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPREDEF__V8*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -23718,7 +26111,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPREDEF__V8*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.CLASNAM__V13*/ meltfptr[12] = slot; + /*_.CLASNAM__V13*/ + meltfptr[12] = slot; }; ; } @@ -23729,7 +26123,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:3972:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURPREDEF__V8*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[2]))) ) /*then*/ @@ -23740,7 +26135,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURPREDEF__V8*/ meltfptr[6]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); - /*_.CLASFIELDS__V14*/ meltfptr[13] = slot; + /*_.CLASFIELDS__V14*/ + meltfptr[13] = slot; }; ; } @@ -23751,7 +26147,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBFIELDS__L9*/ meltfnum[5] = + /*_#NBFIELDS__L9*/ + meltfnum[5] = (melt_multiple_length((melt_ptr_t)(/*_.CLASFIELDS__V14*/ meltfptr[13])));; { @@ -23771,7 +26168,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "#define MELT_HAS_PREDEF_"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CLASNAM__V13*/ meltfptr[12]; - /*_.ADD2OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V15*/ + meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -23798,7 +26196,8 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#PRIX__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = " */ enum { "; - /*_.ADD2OUT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V16*/ + meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -23823,10 +26222,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L11*/ meltfnum[10] = + /*_#IS_A__L11*/ + meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-modes.melt:3982:/ cond"); - /*cond*/ if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; @@ -23855,25 +26256,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 3982; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURFIELD__V17*/ meltfptr[16]; - /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V19*/ meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; + /*_._IFELSE___V19*/ + meltfptr[18] = /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3982:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V20*/ + meltfptr[19] = 0 ; } ; } ; - /*_.IFCPP___V18*/ meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; + /*_.IFCPP___V18*/ + meltfptr[17] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3982:/ clear"); - /*clear*/ /*_#IS_A__L11*/ meltfnum[10] = 0 ; + /*clear*/ /*_#IS_A__L11*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -23885,7 +26292,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:3983:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[5]))) ) /*then*/ @@ -23896,7 +26304,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIELD__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FLD_OWNCLASS"); - /*_.FLD_OWNCLASS__V21*/ meltfptr[19] = slot; + /*_.FLD_OWNCLASS__V21*/ + meltfptr[19] = slot; }; ; } @@ -23907,10 +26316,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#eqeq__L12*/ meltfnum[10] = + /*_#eqeq__L12*/ + meltfnum[10] = ((/*_.FLD_OWNCLASS__V21*/ meltfptr[19]) == (/*_.CURPREDEF__V8*/ meltfptr[6]));; MELT_LOCATION("warmelt-modes.melt:3983:/ cond"); - /*cond*/ if (/*_#eqeq__L12*/ meltfnum[10]) /*then*/ + /*cond*/ + if (/*_#eqeq__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -23921,7 +26332,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURFIELD__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ @@ -23932,7 +26344,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFIELD__V17*/ meltfptr[16]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.FLDNAM__V24*/ meltfptr[23] = slot; + /*_.FLDNAM__V24*/ + meltfptr[23] = slot; }; ; } @@ -23943,7 +26356,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#FLDIX__L13*/ meltfnum[12] = + /*_#FLDIX__L13*/ + meltfnum[12] = (melt_get_int((melt_ptr_t)(/*_.CURFIELD__V17*/ meltfptr[16])));; { @@ -23973,22 +26387,29 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.CLASNAM__V13*/ meltfptr[12]; /*^apply.arg*/ argtab[6].meltbp_cstring = "*/,"; - /*_.ADD2OUT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V23*/ meltfptr[22] = /*_.ADD2OUT__V25*/ meltfptr[24];; + /*_.LET___V23*/ + meltfptr[22] = /*_.ADD2OUT__V25*/ meltfptr[24];; MELT_LOCATION("warmelt-modes.melt:3984:/ clear"); - /*clear*/ /*_.FLDNAM__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.FLDNAM__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#FLDIX__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#FLDIX__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V25*/ meltfptr[24] = 0 ; - /*_._IF___V22*/ meltfptr[18] = /*_.LET___V23*/ meltfptr[22];; + /*clear*/ /*_.ADD2OUT__V25*/ + meltfptr[24] = 0 ; + /*_._IF___V22*/ + meltfptr[18] = /*_.LET___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3983:/ clear"); - /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.LET___V23*/ + meltfptr[22] = 0 ; } ; } @@ -24004,17 +26425,23 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3979:/ clear"); - /*clear*/ /*_.CURFIELD__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.CURFIELD__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_#FLDIX__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#FLDIX__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.FLD_OWNCLASS__V21*/ meltfptr[19] = 0 ; + /*clear*/ /*_.FLD_OWNCLASS__V21*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L12*/ meltfnum[10] = 0 ; + /*clear*/ /*_#eqeq__L12*/ + meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ meltfptr[18] = 0 ; + /*clear*/ /*_._IF___V22*/ + meltfptr[18] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -24041,28 +26468,38 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#NBFIELDS__L9*/ meltfnum[5]; /*^apply.arg*/ argtab[4].meltbp_cstring = " } ;"; - /*_.ADD2OUT__V26*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V26*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V12*/ meltfptr[2] = /*_.ADD2OUT__V26*/ meltfptr[23];; + /*_.LET___V12*/ + meltfptr[2] = /*_.ADD2OUT__V26*/ meltfptr[23];; MELT_LOCATION("warmelt-modes.melt:3971:/ clear"); - /*clear*/ /*_.CLASNAM__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.CLASNAM__V13*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.CLASFIELDS__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.CLASFIELDS__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_#NBFIELDS__L9*/ meltfnum[5] = 0 ; + /*clear*/ /*_#NBFIELDS__L9*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.ADD2OUT__V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.ADD2OUT__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[23] = 0 ; - /*_._IF___V11*/ meltfptr[9] = /*_.LET___V12*/ meltfptr[2];; + /*clear*/ /*_.ADD2OUT__V26*/ + meltfptr[23] = 0 ; + /*_._IF___V11*/ + meltfptr[9] = /*_.LET___V12*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3970:/ clear"); - /*clear*/ /*_.LET___V12*/ meltfptr[2] = 0 ; + /*clear*/ /*_.LET___V12*/ + meltfptr[2] = 0 ; } ; } @@ -24077,18 +26514,23 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:3964:/ clear"); - /*clear*/ /*_#PRIX__L5*/ meltfnum[1] = 0 ; + /*clear*/ /*_#PRIX__L5*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L8*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_A__L8*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ meltfptr[9] = 0 ; + /*clear*/ /*_._IF___V11*/ + meltfptr[9] = 0 ; } /*endciterblock FOREACH_LONG_UPTO*/ ; MELT_LOCATION("warmelt-modes.melt:3959:/ clear"); - /*clear*/ /*_.CURPREDEF__V8*/ meltfptr[6] = 0 ; + /*clear*/ /*_.CURPREDEF__V8*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_#NBPREDEF__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBPREDEF__L4*/ + meltfnum[0] = 0 ; { MELT_LOCATION("warmelt-modes.melt:3995:/ locexp"); @@ -24098,7 +26540,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:3996:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), ( "/** end of code generated by generate_runtypesupport_predef_fields **/")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTBUF__V2*/ meltfptr[1]), ( "/** end of code generated by generate_runtypesupport_predef_fields **/")); } ; @@ -24133,7 +26576,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = + /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24142,7 +26586,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4000:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24175,16 +26620,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "generate_runtypesupport_predef_fields end outbuf="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBUF__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V27*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[22];; + /*_._IF___V27*/ + meltfptr[24] = /*_.MELT_DEBUG_FUN__V28*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4000:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[5] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ + meltfnum[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V28*/ + meltfptr[22] = 0 ; } ; } @@ -24197,7 +26646,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4000:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24206,9 +26656,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24234,7 +26686,8 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:3950:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; + /*clear*/ /*_.IFCPP___V5*/ + meltfptr[3] = 0 ; } ; @@ -24316,7 +26769,8 @@ meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS(meltclosure_ /* end of frame for routine meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS fromline 1756 */ - /* classy proc frame meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS */ MeltFrame_meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS + /* classy proc frame meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS */ + MeltFrame_meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS fromline 1785*/ #if ENABLE_CHECKING @@ -24329,7 +26783,8 @@ meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS(meltclosure_ #define meltframe meltfram__ melt_trace_start("GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -24339,12 +26794,14 @@ meltrout_59_WARMELTmiMODES_GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS(meltclosure_ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4006:/ getarg"); - /*_.OUTDECLBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.OUTDECLBUF__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTCODEBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OUTCODEBUF__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2])) != NULL); ; @@ -24371,11 +26828,14 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4009:/ quasiblock"); - /*_.CURPREDEF__V4*/ meltfptr[3] = (/*nil*/NULL);; + /*_.CURPREDEF__V4*/ + meltfptr[3] = (/*nil*/NULL);; /*^compute*/ - /*_#NBPREDEF__L1*/ meltfnum[0] = 0;; + /*_#NBPREDEF__L1*/ + meltfnum[0] = 0;; /*^compute*/ - /*_.PARENV__V5*/ meltfptr[4] = (/*!konst_0*/ meltfrout->tabval[0]);; + /*_.PARENV__V5*/ + meltfptr[4] = (/*!konst_0*/ meltfrout->tabval[0]);; { MELT_LOCATION("warmelt-modes.melt:4013:/ locexp"); @@ -24390,7 +26850,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4014:/ locexp"); - /*GETNBPREDEFCHK__2*/ /*_#NBPREDEF__L1*/ meltfnum[0]= MELTGLOB__LASTWIRED ;; + /*GETNBPREDEFCHK__2*/ /*_#NBPREDEF__L1*/ + meltfnum[0]= MELTGLOB__LASTWIRED ;; } ; @@ -24408,7 +26869,8 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBPREDEF__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " predefined */"; - /*_.ADD2OUT__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V6*/ + meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24431,7 +26893,8 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBPREDEF__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " predefined */"; - /*_.ADD2OUT__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V7*/ + meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24457,16 +26920,19 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4023:/ locexp"); - /*GETPREDEFCHK__2*/ /*_.CURPREDEF__V4*/ meltfptr[3]= melt_fetch_predefined(/*_#PRIX__L2*/ meltfnum[1]) ; ; + /*GETPREDEFCHK__2*/ /*_.CURPREDEF__V4*/ + meltfptr[3]= melt_fetch_predefined(/*_#PRIX__L2*/ meltfnum[1]) ; ; } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_HOOK__L3*/ meltfnum[2] = + /*_#IS_HOOK__L3*/ + meltfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.CURPREDEF__V4*/ meltfptr[3])) == MELTOBMAG_HOOK);; MELT_LOCATION("warmelt-modes.melt:4025:/ cond"); - /*cond*/ if (/*_#IS_HOOK__L3*/ meltfnum[2]) /*then*/ + /*cond*/ + if (/*_#IS_HOOK__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24476,10 +26942,12 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4026:/ quasiblock"); - /*_.HKNAME__V8*/ meltfptr[7] = + /*_.HKNAME__V8*/ + meltfptr[7] = meltgc_hook_name_string((melt_ptr_t)/*_.CURPREDEF__V4*/ meltfptr[3]);; /*^compute*/ - /*_.HKSYMB__V9*/ meltfptr[8] = + /*_.HKSYMB__V9*/ + meltfptr[8] = melthookproc_HOOK_NAMED_SYMBOL (melt_string_str((melt_ptr_t)(/*_.HKNAME__V8*/ meltfptr[7])), (long)MELT_GET);; MELT_CHECK_SIGNAL(); @@ -24491,10 +26959,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.HKSYMB__V9*/ meltfptr[8]; - /*_.HKBIND__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PARENV__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.HKBIND__V10*/ + meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PARENV__V5*/ meltfptr[4]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.HKDATA__V11*/ meltfptr[10] = + /*_.HKDATA__V11*/ + meltfptr[10] = melt_hook_data((melt_ptr_t)/*_.CURPREDEF__V4*/ meltfptr[3]);; { @@ -24528,7 +26998,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = + /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24537,7 +27008,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4033:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24590,16 +27062,20 @@ meltlab_endgetargs: argtab[13].meltbp_cstring = "\n.. hkdata="; /*^apply.arg*/ argtab[14].meltbp_aptr = (melt_ptr_t*) &/*_.HKDATA__V11*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4033:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L5*/ + meltfnum[4] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -24612,7 +27088,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4033:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24621,9 +27098,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L4*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24661,7 +27140,8 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#PRIX__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = "*/"; - /*_.ADD2OUT__V14*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V14*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24688,7 +27168,8 @@ meltlab_endgetargs: argtab[3].meltbp_long = /*_#PRIX__L2*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = "*/"; - /*_.ADD2OUT__V15*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V15*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24700,10 +27181,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ + meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:4039:/ cond"); - /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ + /*cond*/ + if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24714,7 +27197,8 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -24725,7 +27209,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.DNAME__V16*/ meltfptr[15] = slot; + /*_.DNAME__V16*/ + meltfptr[15] = slot; }; ; } @@ -24736,7 +27221,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4041:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[4]))) ) /*then*/ @@ -24747,7 +27233,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 2, "HOOKDESC_IN_FORMALS"); - /*_.DINS__V17*/ meltfptr[16] = slot; + /*_.DINS__V17*/ + meltfptr[16] = slot; }; ; } @@ -24758,7 +27245,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4042:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[4]))) ) /*then*/ @@ -24769,7 +27257,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 3, "HOOKDESC_OUT_FORMALS"); - /*_.DOUTS__V18*/ meltfptr[17] = slot; + /*_.DOUTS__V18*/ + meltfptr[17] = slot; }; ; } @@ -24780,7 +27269,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4043:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[4]))) ) /*then*/ @@ -24791,7 +27281,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]) /*=obj*/; melt_object_get_field(slot,obj, 4, "HOOKDESC_CTYPE"); - /*_.DCTYPE__V19*/ meltfptr[18] = slot; + /*_.DCTYPE__V19*/ + meltfptr[18] = slot; }; ; } @@ -24802,7 +27293,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4044:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DCTYPE__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -24813,7 +27305,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DCTYPE__V19*/ meltfptr[18]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYNAM__V20*/ meltfptr[19] = slot; + /*_.CTYNAM__V20*/ + meltfptr[19] = slot; }; ; } @@ -24824,7 +27317,8 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#NBPARAM__L7*/ meltfnum[3] = 0;; + /*_#NBPARAM__L7*/ + meltfnum[3] = 0;; MELT_CHECK_SIGNAL(); ; @@ -24843,7 +27337,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[4].meltbp_cstring = "("; - /*_.ADD2OUT__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V21*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -24862,7 +27357,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[3].meltbp_cstring = "("; - /*_.ADD2OUT__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V22*/ + meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -24897,7 +27393,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -24906,7 +27403,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4052:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -24943,16 +27441,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " inix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#INIX__L8*/ meltfnum[7]; - /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4052:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ + meltfptr[24] = 0 ; } ; } @@ -24965,7 +27467,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4052:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -24974,9 +27477,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -24999,10 +27504,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L11*/ meltfnum[9] = + /*_#gtI__L11*/ + meltfnum[9] = ((/*_#NBPARAM__L7*/ meltfnum[3]) > (0));; MELT_LOCATION("warmelt-modes.melt:4053:/ cond"); - /*cond*/ if (/*_#gtI__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#gtI__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25019,7 +27526,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V27*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V27*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25032,23 +27540,29 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V28*/ + meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4053:/ quasiblock"); - /*_.PROGN___V29*/ meltfptr[28] = /*_.ADD2OUT__V28*/ meltfptr[27];; + /*_.PROGN___V29*/ + meltfptr[28] = /*_.ADD2OUT__V28*/ meltfptr[27];; /*^compute*/ - /*_._IF___V26*/ meltfptr[24] = /*_.PROGN___V29*/ meltfptr[28];; + /*_._IF___V26*/ + meltfptr[24] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4053:/ clear"); - /*clear*/ /*_.ADD2OUT__V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_.ADD2OUT__V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[27] = 0 ; + /*clear*/ /*_.ADD2OUT__V28*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.PROGN___V29*/ + meltfptr[28] = 0 ; } ; } @@ -25059,10 +27573,12 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#plI__L12*/ meltfnum[8] = + /*_#plI__L12*/ + meltfnum[8] = ((/*_#NBPARAM__L7*/ meltfnum[3]) + (1));; MELT_LOCATION("warmelt-modes.melt:4056:/ compute"); - /*_#NBPARAM__L7*/ meltfnum[3] = /*_#SETQ___L13*/ meltfnum[12] = /*_#plI__L12*/ meltfnum[8];; + /*_#NBPARAM__L7*/ + meltfnum[3] = /*_#SETQ___L13*/ meltfnum[12] = /*_#plI__L12*/ meltfnum[8];; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-modes.melt:4057:/ cppif.then"); @@ -25073,10 +27589,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ meltfnum[13] = + /*_#IS_A__L14*/ + meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-modes.melt:4057:/ cond"); - /*cond*/ if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ + /*cond*/ + if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V31*/ meltfptr[27] = (/*nil*/NULL);; @@ -25105,25 +27623,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4057; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURINSB__V23*/ meltfptr[22]; - /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V31*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[28];; + /*_._IFELSE___V31*/ + meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4057:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V32*/ + meltfptr[28] = 0 ; } ; } ; - /*_.IFCPP___V30*/ meltfptr[23] = /*_._IFELSE___V31*/ meltfptr[27];; + /*_.IFCPP___V30*/ + meltfptr[23] = /*_._IFELSE___V31*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4057:/ clear"); - /*clear*/ /*_#IS_A__L14*/ meltfnum[13] = 0 ; + /*clear*/ /*_#IS_A__L14*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[27] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25132,7 +27656,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-modes.melt:4058:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7]))) ) /*then*/ @@ -25143,7 +27668,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V33*/ meltfptr[28] = slot; + /*_.FBIND_TYPE__V33*/ + meltfptr[28] = slot; }; ; } @@ -25154,7 +27680,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4058:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V33*/ meltfptr[28]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -25165,7 +27692,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V33*/ meltfptr[28]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V34*/ meltfptr[27] = slot; + /*_.CTYPE_CNAME__V34*/ + meltfptr[27] = slot; }; ; } @@ -25185,11 +27713,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V34*/ meltfptr[27]; - /*_.ADD2OUT__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4059:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25200,7 +27730,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V36*/ meltfptr[35] = slot; + /*_.BINDER__V36*/ + meltfptr[35] = slot; }; ; } @@ -25211,7 +27742,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4059:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V36*/ meltfptr[35]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -25222,7 +27754,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V36*/ meltfptr[35]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V37*/ meltfptr[36] = slot; + /*_.NAMED_NAME__V37*/ + meltfptr[36] = slot; }; ; } @@ -25248,11 +27781,13 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_p"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#INIX__L8*/ meltfnum[7]; - /*_.ADD2OUT__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V38*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4060:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7]))) ) /*then*/ @@ -25263,7 +27798,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V39*/ meltfptr[38] = slot; + /*_.FBIND_TYPE__V39*/ + meltfptr[38] = slot; }; ; } @@ -25274,7 +27810,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4060:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V39*/ meltfptr[38]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -25285,7 +27822,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V39*/ meltfptr[38]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V40*/ meltfptr[39] = slot; + /*_.CTYPE_CNAME__V40*/ + meltfptr[39] = slot; }; ; } @@ -25305,11 +27843,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V40*/ meltfptr[39]; - /*_.ADD2OUT__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4061:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25320,7 +27860,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V23*/ meltfptr[22]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V42*/ meltfptr[41] = slot; + /*_.BINDER__V42*/ + meltfptr[41] = slot; }; ; } @@ -25331,7 +27872,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4061:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V42*/ meltfptr[41]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -25342,7 +27884,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V42*/ meltfptr[41]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V43*/ meltfptr[42] = slot; + /*_.NAMED_NAME__V43*/ + meltfptr[42] = slot; }; ; } @@ -25368,7 +27911,8 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_p"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#INIX__L8*/ meltfnum[7]; - /*_.ADD2OUT__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L8*/ meltfnum[7]<0) break; @@ -25377,43 +27921,62 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4049:/ clear"); - /*clear*/ /*_.CURINSB__V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_.CURINSB__V23*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#INIX__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#gtI__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V26*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L12*/ meltfnum[8] = 0 ; + /*clear*/ /*_#plI__L12*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#SETQ___L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V30*/ meltfptr[23] = 0 ; + /*clear*/ /*_.IFCPP___V30*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V33*/ meltfptr[28] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V33*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V34*/ meltfptr[27] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V34*/ + meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.ADD2OUT__V35*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.BINDER__V36*/ + meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V37*/ meltfptr[36] = 0 ; + /*clear*/ /*_.NAMED_NAME__V37*/ + meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_.ADD2OUT__V38*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.ADD2OUT__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.BINDER__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.NAMED_NAME__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.ADD2OUT__V44*/ + meltfptr[43] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -25448,7 +28011,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -25457,7 +28021,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4066:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25494,16 +28059,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " outix#"; /*^apply.arg*/ argtab[6].meltbp_long = /*_#OUTIX__L15*/ meltfnum[13]; - /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V46*/ meltfptr[45] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; + /*_._IF___V46*/ + meltfptr[45] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4066:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V47*/ + meltfptr[46] = 0 ; } ; } @@ -25516,7 +28085,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4066:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -25525,9 +28095,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V46*/ + meltfptr[45] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -25550,10 +28122,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L18*/ meltfnum[16] = + /*_#gtI__L18*/ + meltfnum[16] = ((/*_#NBPARAM__L7*/ meltfnum[3]) > (0));; MELT_LOCATION("warmelt-modes.melt:4067:/ cond"); - /*cond*/ if (/*_#gtI__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#gtI__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -25570,7 +28144,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V49*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V49*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25583,23 +28158,29 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ", "; - /*_.ADD2OUT__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V50*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4067:/ quasiblock"); - /*_.PROGN___V51*/ meltfptr[50] = /*_.ADD2OUT__V50*/ meltfptr[49];; + /*_.PROGN___V51*/ + meltfptr[50] = /*_.ADD2OUT__V50*/ meltfptr[49];; /*^compute*/ - /*_._IF___V48*/ meltfptr[46] = /*_.PROGN___V51*/ meltfptr[50];; + /*_._IF___V48*/ + meltfptr[46] = /*_.PROGN___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4067:/ clear"); - /*clear*/ /*_.ADD2OUT__V49*/ meltfptr[45] = 0 ; + /*clear*/ /*_.ADD2OUT__V49*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.ADD2OUT__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.PROGN___V51*/ + meltfptr[50] = 0 ; } ; } @@ -25610,12 +28191,15 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_#plI__L19*/ meltfnum[15] = + /*_#plI__L19*/ + meltfnum[15] = ((/*_#NBPARAM__L7*/ meltfnum[3]) + (1));; MELT_LOCATION("warmelt-modes.melt:4070:/ compute"); - /*_#NBPARAM__L7*/ meltfnum[3] = /*_#SETQ___L20*/ meltfnum[19] = /*_#plI__L19*/ meltfnum[15];; + /*_#NBPARAM__L7*/ + meltfnum[3] = /*_#SETQ___L20*/ meltfnum[19] = /*_#plI__L19*/ meltfnum[15];; MELT_LOCATION("warmelt-modes.melt:4072:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7]))) ) /*then*/ @@ -25626,7 +28210,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V52*/ meltfptr[45] = slot; + /*_.FBIND_TYPE__V52*/ + meltfptr[45] = slot; }; ; } @@ -25637,7 +28222,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4072:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V52*/ meltfptr[45]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -25648,7 +28234,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V52*/ meltfptr[45]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V53*/ meltfptr[49] = slot; + /*_.CTYPE_CNAME__V53*/ + meltfptr[49] = slot; }; ; } @@ -25659,7 +28246,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4073:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25670,7 +28258,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V54*/ meltfptr[50] = slot; + /*_.BINDER__V54*/ + meltfptr[50] = slot; }; ; } @@ -25681,7 +28270,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4073:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V54*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -25692,7 +28282,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V54*/ meltfptr[50]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V55*/ meltfptr[54] = slot; + /*_.NAMED_NAME__V55*/ + meltfptr[54] = slot; }; ; } @@ -25720,11 +28311,13 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "_o"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#OUTIX__L15*/ meltfnum[13]; - /*_.ADD2OUT__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V56*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4074:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7]))) ) /*then*/ @@ -25735,7 +28328,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V57*/ meltfptr[56] = slot; + /*_.FBIND_TYPE__V57*/ + meltfptr[56] = slot; }; ; } @@ -25746,7 +28340,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4074:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V57*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -25757,7 +28352,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V57*/ meltfptr[56]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V58*/ meltfptr[57] = slot; + /*_.CTYPE_CNAME__V58*/ + meltfptr[57] = slot; }; ; } @@ -25777,11 +28373,13 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V58*/ meltfptr[57]; - /*_.ADD2OUT__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4075:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -25792,7 +28390,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V45*/ meltfptr[44]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V60*/ meltfptr[59] = slot; + /*_.BINDER__V60*/ + meltfptr[59] = slot; }; ; } @@ -25803,7 +28402,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4075:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V60*/ meltfptr[59]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -25814,7 +28414,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V60*/ meltfptr[59]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V61*/ meltfptr[60] = slot; + /*_.NAMED_NAME__V61*/ + meltfptr[60] = slot; }; ; } @@ -25840,7 +28441,8 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_o"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#OUTIX__L15*/ meltfnum[13]; - /*_.ADD2OUT__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V62*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L15*/ meltfnum[13]<0) break; @@ -25849,39 +28451,56 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4063:/ clear"); - /*clear*/ /*_.CUROUTB__V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_.CUROUTB__V45*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L15*/ meltfnum[13] = 0 ; + /*clear*/ /*_#OUTIX__L15*/ + meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#gtI__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V48*/ meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V48*/ + meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_#plI__L19*/ meltfnum[15] = 0 ; + /*clear*/ /*_#plI__L19*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#SETQ___L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#SETQ___L20*/ + meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V52*/ meltfptr[45] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V52*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V53*/ meltfptr[49] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V53*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V54*/ meltfptr[50] = 0 ; + /*clear*/ /*_.BINDER__V54*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.NAMED_NAME__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.ADD2OUT__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.ADD2OUT__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.BINDER__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_.NAMED_NAME__V61*/ + meltfptr[60] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.ADD2OUT__V62*/ + meltfptr[61] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -25894,7 +28513,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");"; - /*_.ADD2OUT__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V63*/ + meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25907,7 +28527,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ")"; - /*_.ADD2OUT__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V64*/ + meltfptr[63] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25936,7 +28557,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = "*/"; - /*_.ADD2OUT__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V65*/ + meltfptr[64] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25955,7 +28577,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#ifndef MELT_SKIP_HOOK_PREDEFINED_CODE"; - /*_.ADD2OUT__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V66*/ + meltfptr[65] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -25978,7 +28601,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = ");"; - /*_.ADD2OUT__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V67*/ + meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26005,7 +28629,8 @@ meltlab_endgetargs: argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[4].meltbp_cstring = "_t ("; - /*_.ADD2OUT__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V68*/ + meltfptr[67] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26018,7 +28643,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "melt_ptr_t"; - /*_.ADD2OUT__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V69*/ + meltfptr[68] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -26034,7 +28660,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4095:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V70*/ meltfptr[69]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7]))) ) /*then*/ @@ -26045,7 +28672,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V70*/ meltfptr[69]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V71*/ meltfptr[70] = slot; + /*_.FBIND_TYPE__V71*/ + meltfptr[70] = slot; }; ; } @@ -26056,7 +28684,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4095:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V71*/ meltfptr[70]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -26067,7 +28696,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V71*/ meltfptr[70]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V72*/ meltfptr[71] = slot; + /*_.CTYPE_CNAME__V72*/ + meltfptr[71] = slot; }; ; } @@ -26089,7 +28719,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = ", "; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V72*/ meltfptr[71]; - /*_.ADD2OUT__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V73*/ + meltfptr[72] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L21*/ meltfnum[20]<0) break; @@ -26098,15 +28729,20 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4092:/ clear"); - /*clear*/ /*_.CURINSB__V70*/ meltfptr[69] = 0 ; + /*clear*/ /*_.CURINSB__V70*/ + meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L21*/ meltfnum[20] = 0 ; + /*clear*/ /*_#INIX__L21*/ + meltfnum[20] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V71*/ meltfptr[70] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V71*/ + meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V72*/ meltfptr[71] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V72*/ + meltfptr[71] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V73*/ meltfptr[72] = 0 ; + /*clear*/ /*_.ADD2OUT__V73*/ + meltfptr[72] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -26122,7 +28758,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4100:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]), (melt_ptr_t)((/*!CLASS_FORMAL_BINDING*/ meltfrout->tabval[7]))) ) /*then*/ @@ -26133,7 +28770,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V74*/ meltfptr[73]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FBIND_TYPE"); - /*_.FBIND_TYPE__V75*/ meltfptr[74] = slot; + /*_.FBIND_TYPE__V75*/ + meltfptr[74] = slot; }; ; } @@ -26144,7 +28782,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4100:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.FBIND_TYPE__V75*/ meltfptr[74]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[6]))) ) /*then*/ @@ -26155,7 +28794,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.FBIND_TYPE__V75*/ meltfptr[74]) /*=obj*/; melt_object_get_field(slot,obj, 4, "CTYPE_CNAME"); - /*_.CTYPE_CNAME__V76*/ meltfptr[75] = slot; + /*_.CTYPE_CNAME__V76*/ + meltfptr[75] = slot; }; ; } @@ -26179,7 +28819,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CTYPE_CNAME__V76*/ meltfptr[75]; /*^apply.arg*/ argtab[2].meltbp_cstring = "* "; - /*_.ADD2OUT__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V77*/ + meltfptr[76] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L22*/ meltfnum[21]<0) break; @@ -26188,15 +28829,20 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4097:/ clear"); - /*clear*/ /*_.CUROUTB__V74*/ meltfptr[73] = 0 ; + /*clear*/ /*_.CUROUTB__V74*/ + meltfptr[73] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L22*/ meltfnum[21] = 0 ; + /*clear*/ /*_#OUTIX__L22*/ + meltfnum[21] = 0 ; /*^clear*/ - /*clear*/ /*_.FBIND_TYPE__V75*/ meltfptr[74] = 0 ; + /*clear*/ /*_.FBIND_TYPE__V75*/ + meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYPE_CNAME__V76*/ meltfptr[75] = 0 ; + /*clear*/ /*_.CTYPE_CNAME__V76*/ + meltfptr[75] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V77*/ meltfptr[76] = 0 ; + /*clear*/ /*_.ADD2OUT__V77*/ + meltfptr[76] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -26209,7 +28855,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");"; - /*_.ADD2OUT__V78*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V78*/ + meltfptr[77] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26232,7 +28879,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = " exists\", "; - /*_.ADD2OUT__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V79*/ + meltfptr[78] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26251,7 +28899,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " melthkp != NULL);"; - /*_.ADD2OUT__V80*/ meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V80*/ + meltfptr[79] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26274,7 +28923,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = " is hook\", "; - /*_.ADD2OUT__V81*/ meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V81*/ + meltfptr[80] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26293,7 +28943,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " melt_magic_discr ((melt_ptr_t) melthkp) == MELTOBMAG_HOOK);"; - /*_.ADD2OUT__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V82*/ + meltfptr[81] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26337,7 +28988,8 @@ meltlab_endgetargs: argtab[11].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[12].meltbp_cstring = ");\n"; - /*_.ADD2OUT__V83*/ meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V83*/ + meltfptr[82] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26369,7 +29021,8 @@ meltlab_endgetargs: argtab[5].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[6].meltbp_cstring = "\", MELT_HOOKNAME_LEN-1));"; - /*_.ADD2OUT__V84*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V84*/ + meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26392,7 +29045,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = ") ((melt_ptr_t)melthkp"; - /*_.ADD2OUT__V85*/ meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V85*/ + meltfptr[84] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -26417,7 +29071,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ","; - /*_.ADD2OUT__V87*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V87*/ + meltfptr[86] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26427,7 +29082,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4137:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURINSB__V86*/ meltfptr[85]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -26438,7 +29094,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURINSB__V86*/ meltfptr[85]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V88*/ meltfptr[87] = slot; + /*_.BINDER__V88*/ + meltfptr[87] = slot; }; ; } @@ -26449,7 +29106,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4137:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V88*/ meltfptr[87]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -26460,7 +29118,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V88*/ meltfptr[87]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V89*/ meltfptr[88] = slot; + /*_.NAMED_NAME__V89*/ + meltfptr[88] = slot; }; ; } @@ -26486,7 +29145,8 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_p"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#INIX__L23*/ meltfnum[22]; - /*_.ADD2OUT__V90*/ meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V90*/ + meltfptr[89] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#INIX__L23*/ meltfnum[22]<0) break; @@ -26495,17 +29155,23 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4132:/ clear"); - /*clear*/ /*_.CURINSB__V86*/ meltfptr[85] = 0 ; + /*clear*/ /*_.CURINSB__V86*/ + meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_#INIX__L23*/ meltfnum[22] = 0 ; + /*clear*/ /*_#INIX__L23*/ + meltfnum[22] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V87*/ meltfptr[86] = 0 ; + /*clear*/ /*_.ADD2OUT__V87*/ + meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V88*/ meltfptr[87] = 0 ; + /*clear*/ /*_.BINDER__V88*/ + meltfptr[87] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V89*/ meltfptr[88] = 0 ; + /*clear*/ /*_.NAMED_NAME__V89*/ + meltfptr[88] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V90*/ meltfptr[89] = 0 ; + /*clear*/ /*_.ADD2OUT__V90*/ + meltfptr[89] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ @@ -26530,7 +29196,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ","; - /*_.ADD2OUT__V92*/ meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V92*/ + meltfptr[91] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26540,7 +29207,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4144:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUROUTB__V91*/ meltfptr[90]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[9]))) ) /*then*/ @@ -26551,7 +29219,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CUROUTB__V91*/ meltfptr[90]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); - /*_.BINDER__V93*/ meltfptr[92] = slot; + /*_.BINDER__V93*/ + meltfptr[92] = slot; }; ; } @@ -26562,7 +29231,8 @@ meltlab_endgetargs: } ; MELT_LOCATION("warmelt-modes.melt:4144:/ cond"); - /*cond*/ if ( + /*cond*/ + if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V93*/ meltfptr[92]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -26573,7 +29243,8 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V93*/ meltfptr[92]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V94*/ meltfptr[93] = slot; + /*_.NAMED_NAME__V94*/ + meltfptr[93] = slot; }; ; } @@ -26599,7 +29270,8 @@ meltlab_endgetargs: argtab[2].meltbp_cstring = "_o"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#OUTIX__L24*/ meltfnum[23]; - /*_.ADD2OUT__V95*/ meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V95*/ + meltfptr[94] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#OUTIX__L24*/ meltfnum[23]<0) break; @@ -26608,17 +29280,23 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4139:/ clear"); - /*clear*/ /*_.CUROUTB__V91*/ meltfptr[90] = 0 ; + /*clear*/ /*_.CUROUTB__V91*/ + meltfptr[90] = 0 ; /*^clear*/ - /*clear*/ /*_#OUTIX__L24*/ meltfnum[23] = 0 ; + /*clear*/ /*_#OUTIX__L24*/ + meltfnum[23] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V92*/ meltfptr[91] = 0 ; + /*clear*/ /*_.ADD2OUT__V92*/ + meltfptr[91] = 0 ; /*^clear*/ - /*clear*/ /*_.BINDER__V93*/ meltfptr[92] = 0 ; + /*clear*/ /*_.BINDER__V93*/ + meltfptr[92] = 0 ; /*^clear*/ - /*clear*/ /*_.NAMED_NAME__V94*/ meltfptr[93] = 0 ; + /*clear*/ /*_.NAMED_NAME__V94*/ + meltfptr[93] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V95*/ meltfptr[94] = 0 ; + /*clear*/ /*_.ADD2OUT__V95*/ + meltfptr[94] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; @@ -26631,7 +29309,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ");"; - /*_.ADD2OUT__V96*/ meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V96*/ + meltfptr[95] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26650,7 +29329,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "#endif /* MELT_SKIP_HOOK_PREDEFINED_CODE */"; - /*_.ADD2OUT__V97*/ meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V97*/ + meltfptr[96] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26673,7 +29353,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = " */"; - /*_.ADD2OUT__V98*/ meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V98*/ + meltfptr[97] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26690,57 +29371,83 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:4040:/ clear"); - /*clear*/ /*_.DNAME__V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.DNAME__V16*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.DINS__V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.DINS__V17*/ + meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.DOUTS__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.DOUTS__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.DCTYPE__V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.DCTYPE__V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.CTYNAM__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.CTYNAM__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#NBPARAM__L7*/ meltfnum[3] = 0 ; + /*clear*/ /*_#NBPARAM__L7*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.ADD2OUT__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.ADD2OUT__V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V63*/ meltfptr[62] = 0 ; + /*clear*/ /*_.ADD2OUT__V63*/ + meltfptr[62] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V64*/ meltfptr[63] = 0 ; + /*clear*/ /*_.ADD2OUT__V64*/ + meltfptr[63] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V65*/ meltfptr[64] = 0 ; + /*clear*/ /*_.ADD2OUT__V65*/ + meltfptr[64] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V66*/ meltfptr[65] = 0 ; + /*clear*/ /*_.ADD2OUT__V66*/ + meltfptr[65] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V67*/ meltfptr[66] = 0 ; + /*clear*/ /*_.ADD2OUT__V67*/ + meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V68*/ meltfptr[67] = 0 ; + /*clear*/ /*_.ADD2OUT__V68*/ + meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V69*/ meltfptr[68] = 0 ; + /*clear*/ /*_.ADD2OUT__V69*/ + meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V78*/ meltfptr[77] = 0 ; + /*clear*/ /*_.ADD2OUT__V78*/ + meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V79*/ meltfptr[78] = 0 ; + /*clear*/ /*_.ADD2OUT__V79*/ + meltfptr[78] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V80*/ meltfptr[79] = 0 ; + /*clear*/ /*_.ADD2OUT__V80*/ + meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V81*/ meltfptr[80] = 0 ; + /*clear*/ /*_.ADD2OUT__V81*/ + meltfptr[80] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V82*/ meltfptr[81] = 0 ; + /*clear*/ /*_.ADD2OUT__V82*/ + meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V83*/ meltfptr[82] = 0 ; + /*clear*/ /*_.ADD2OUT__V83*/ + meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V84*/ meltfptr[83] = 0 ; + /*clear*/ /*_.ADD2OUT__V84*/ + meltfptr[83] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V85*/ meltfptr[84] = 0 ; + /*clear*/ /*_.ADD2OUT__V85*/ + meltfptr[84] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V96*/ meltfptr[95] = 0 ; + /*clear*/ /*_.ADD2OUT__V96*/ + meltfptr[95] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V97*/ meltfptr[96] = 0 ; + /*clear*/ /*_.ADD2OUT__V97*/ + meltfptr[96] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V98*/ meltfptr[97] = 0 ; + /*clear*/ /*_.ADD2OUT__V98*/ + meltfptr[97] = 0 ; /*epilog*/ } ; @@ -26763,10 +29470,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L25*/ meltfnum[3] = + /*_#IS_NOT_A__L25*/ + meltfnum[3] = !melt_is_instance_of((melt_ptr_t)(/*_.HKDATA__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_HOOK_DESCRIPTOR*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:4156:/ cond"); - /*cond*/ if (/*_#IS_NOT_A__L25*/ meltfnum[3]) /*then*/ + /*cond*/ + if (/*_#IS_NOT_A__L25*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V100*/ meltfptr[16] = (/*nil*/NULL);; @@ -26795,25 +29504,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4156; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.HKDATA__V11*/ meltfptr[10]; - /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V101*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V100*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[17];; + /*_._IFELSE___V100*/ + meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4156:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V101*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V101*/ + meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V99*/ meltfptr[15] = /*_._IFELSE___V100*/ meltfptr[16];; + /*_.IFCPP___V99*/ + meltfptr[15] = /*_._IFELSE___V100*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4156:/ clear"); - /*clear*/ /*_#IS_NOT_A__L25*/ meltfnum[3] = 0 ; + /*clear*/ /*_#IS_NOT_A__L25*/ + meltfnum[3] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V100*/ meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V100*/ + meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -26835,7 +29550,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HKNAME__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_cstring = " without data"; - /*_.ADD2OUT__V102*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V102*/ + meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26850,28 +29566,37 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4039:/ clear"); - /*clear*/ /*_.IFCPP___V99*/ meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V99*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V102*/ meltfptr[18] = 0 ; + /*clear*/ /*_.ADD2OUT__V102*/ + meltfptr[18] = 0 ; } ; } ; MELT_LOCATION("warmelt-modes.melt:4026:/ clear"); - /*clear*/ /*_.HKNAME__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.HKNAME__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.HKSYMB__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.HKSYMB__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.HKBIND__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.HKBIND__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.HKDATA__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.HKDATA__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.ADD2OUT__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.ADD2OUT__V15*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L6*/ meltfnum[4] = 0 ; + /*clear*/ /*_#IS_A__L6*/ + meltfnum[4] = 0 ; /*epilog*/ } ; @@ -26888,9 +29613,11 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4020:/ clear"); - /*clear*/ /*_#PRIX__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#PRIX__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_HOOK__L3*/ meltfnum[2] = 0 ; + /*clear*/ /*_#IS_HOOK__L3*/ + meltfnum[2] = 0 ; } /*endciterblock FOREACH_LONG_UPTO*/ ; @@ -26908,7 +29635,8 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBPREDEF__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " predefined */"; - /*_.ADD2OUT__V103*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V103*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTDECLBUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26932,7 +29660,8 @@ meltlab_endgetargs: argtab[1].meltbp_long = /*_#NBPREDEF__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = " predefined */"; - /*_.ADD2OUT__V104*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ADD2OUT__V104*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OUTCODEBUF__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -26943,19 +29672,26 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-modes.melt:4009:/ clear"); - /*clear*/ /*_.CURPREDEF__V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_.CURPREDEF__V4*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NBPREDEF__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#NBPREDEF__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PARENV__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.PARENV__V5*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V6*/ meltfptr[5] = 0 ; + /*clear*/ /*_.ADD2OUT__V6*/ + meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_.ADD2OUT__V7*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V103*/ meltfptr[19] = 0 ; + /*clear*/ /*_.ADD2OUT__V103*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.ADD2OUT__V104*/ meltfptr[20] = 0 ; + /*clear*/ /*_.ADD2OUT__V104*/ + meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; @@ -27042,7 +29778,8 @@ meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD fromline 1756 */ - /* classy proc frame meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD */ MeltFrame_meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD + /* classy proc frame meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD */ + MeltFrame_meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -27055,7 +29792,8 @@ meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("RUNTYPESUPPORT_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -27065,12 +29803,14 @@ meltrout_60_WARMELTmiMODES_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4174:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -27102,7 +29842,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27111,7 +29852,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4175:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27148,16 +29890,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4175:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -27170,7 +29916,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4175:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27179,9 +29926,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27204,13 +29953,16 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4176:/ quasiblock"); - /*_?*/ meltfram__.loc_CSTRING__o0 = + /*_?*/ + meltfram__.loc_CSTRING__o0 = melt_argument( "output");; /*^compute*/ - /*_.MAKE_STRINGCONST__V7*/ meltfptr[3] = + /*_.MAKE_STRINGCONST__V7*/ + meltfptr[3] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[2])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; MELT_LOCATION("warmelt-modes.melt:4177:/ cond"); - /*cond*/ if (/*_.MAKE_STRINGCONST__V7*/ meltfptr[3]) /*then*/ + /*cond*/ + if (/*_.MAKE_STRINGCONST__V7*/ meltfptr[3]) /*then*/ { /*^cond.then*/ /*_.OUTARG__V8*/ meltfptr[7] = /*_.MAKE_STRINGCONST__V7*/ meltfptr[3];; @@ -27219,65 +29971,82 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4177:/ cond.else"); - /*_.OUTARG__V8*/ meltfptr[7] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.OUTARG__V8*/ + meltfptr[7] = (/*!konst_1*/ meltfrout->tabval[1]);; } ; MELT_LOCATION("warmelt-modes.melt:4180:/ quasiblock"); - /*_.NAMBUF__V10*/ meltfptr[9] = + /*_.NAMBUF__V10*/ + meltfptr[9] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { MELT_LOCATION("warmelt-modes.melt:4182:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V10*/ meltfptr[9]), - melt_string_str((melt_ptr_t)(/*_.OUTARG__V8*/ meltfptr[7]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V10*/ meltfptr[9]), + melt_string_str((melt_ptr_t)(/*_.OUTARG__V8*/ meltfptr[7]))); } ; { MELT_LOCATION("warmelt-modes.melt:4183:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V10*/ meltfptr[9]), ( ".h")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V10*/ meltfptr[9]), ( ".h")); } ; - /*_.STRBUF2STRING__V11*/ meltfptr[10] = + /*_.STRBUF2STRING__V11*/ + meltfptr[10] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[2])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V10*/ meltfptr[9]))));; /*^compute*/ - /*_.LET___V9*/ meltfptr[8] = /*_.STRBUF2STRING__V11*/ meltfptr[10];; + /*_.LET___V9*/ + meltfptr[8] = /*_.STRBUF2STRING__V11*/ meltfptr[10];; MELT_LOCATION("warmelt-modes.melt:4180:/ clear"); - /*clear*/ /*_.NAMBUF__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.NAMBUF__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V11*/ meltfptr[10] = 0 ; - /*_.OUTDECLNAME__V12*/ meltfptr[9] = /*_.LET___V9*/ meltfptr[8];; + /*clear*/ /*_.STRBUF2STRING__V11*/ + meltfptr[10] = 0 ; + /*_.OUTDECLNAME__V12*/ + meltfptr[9] = /*_.LET___V9*/ meltfptr[8];; MELT_LOCATION("warmelt-modes.melt:4186:/ quasiblock"); - /*_.NAMBUF__V14*/ meltfptr[13] = + /*_.NAMBUF__V14*/ + meltfptr[13] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; { MELT_LOCATION("warmelt-modes.melt:4188:/ locexp"); - /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V14*/ meltfptr[13]), - melt_string_str((melt_ptr_t)(/*_.OUTARG__V8*/ meltfptr[7]))); + /*add2sbuf_string*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V14*/ meltfptr[13]), + melt_string_str((melt_ptr_t)(/*_.OUTARG__V8*/ meltfptr[7]))); } ; { MELT_LOCATION("warmelt-modes.melt:4189:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V14*/ meltfptr[13]), ( "-inc.cc")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.NAMBUF__V14*/ meltfptr[13]), ( "-inc.cc")); } ; - /*_.STRBUF2STRING__V15*/ meltfptr[14] = + /*_.STRBUF2STRING__V15*/ + meltfptr[14] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[2])), melt_strbuf_str((melt_ptr_t)(/*_.NAMBUF__V14*/ meltfptr[13]))));; /*^compute*/ - /*_.LET___V13*/ meltfptr[10] = /*_.STRBUF2STRING__V15*/ meltfptr[14];; + /*_.LET___V13*/ + meltfptr[10] = /*_.STRBUF2STRING__V15*/ meltfptr[14];; MELT_LOCATION("warmelt-modes.melt:4186:/ clear"); - /*clear*/ /*_.NAMBUF__V14*/ meltfptr[13] = 0 ; + /*clear*/ /*_.NAMBUF__V14*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.STRBUF2STRING__V15*/ meltfptr[14] = 0 ; - /*_.OUTCODENAME__V16*/ meltfptr[13] = /*_.LET___V13*/ meltfptr[10];; + /*clear*/ /*_.STRBUF2STRING__V15*/ + meltfptr[14] = 0 ; + /*_.OUTCODENAME__V16*/ + meltfptr[13] = /*_.LET___V13*/ meltfptr[10];; MELT_CHECK_SIGNAL(); ; @@ -27298,18 +30067,22 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ - /*_.LIST___V19*/ meltfptr[18] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; + /*_.LIST___V19*/ + meltfptr[18] = (melt_ptr_t) &meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); - /*_.RAWCTYPGTYLIST__V18*/ meltfptr[17] = /*_.LIST___V19*/ meltfptr[18];; + /*_.RAWCTYPGTYLIST__V18*/ + meltfptr[17] = /*_.LIST___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4193:/ clear"); - /*clear*/ /*_.LIST___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.LIST___V19*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V19*/ meltfptr[18] = 0 ; + /*clear*/ /*_.LIST___V19*/ + meltfptr[18] = 0 ; } /*end multiallocblock*/ ; @@ -27332,24 +30105,30 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inilist rlist_0__LIST_*/ - /*_.LIST___V22*/ meltfptr[21] = (melt_ptr_t) &meltletrec_2_ptr->rlist_0__LIST_; + /*_.LIST___V22*/ + meltfptr[21] = (melt_ptr_t) &meltletrec_2_ptr->rlist_0__LIST_; meltletrec_2_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); - /*_.RAWCTYPLIST__V21*/ meltfptr[20] = /*_.LIST___V22*/ meltfptr[21];; + /*_.RAWCTYPLIST__V21*/ + meltfptr[20] = /*_.LIST___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4195:/ clear"); - /*clear*/ /*_.LIST___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LIST___V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.LIST___V22*/ + meltfptr[21] = 0 ; } /*end multiallocblock*/ ; - /*_.OUTDECLBUF__V23*/ meltfptr[21] = + /*_.OUTDECLBUF__V23*/ + meltfptr[21] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; /*^compute*/ - /*_.OUTCODEBUF__V24*/ meltfptr[23] = + /*_.OUTCODEBUF__V24*/ + meltfptr[23] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[3])), (const char*)0);; #if MELT_HAVE_DEBUG @@ -27371,7 +30150,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27380,7 +30160,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4199:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27417,16 +30198,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " outarg="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V25*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; + /*_._IF___V25*/ + meltfptr[24] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4199:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[25] = 0 ; } ; } @@ -27439,7 +30224,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4199:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27448,9 +30234,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[24] = 0 ; + /*clear*/ /*_._IF___V25*/ + meltfptr[24] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27480,7 +30268,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLNAME__V12*/ meltfptr[9]; - /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V27*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUTDECLBUF__V23*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V27*/ + meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUTDECLBUF__V23*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27493,7 +30282,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODENAME__V16*/ meltfptr[13]; - /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V28*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUTCODEBUF__V24*/ meltfptr[23]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V28*/ + meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUTCODEBUF__V24*/ meltfptr[23]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MAPSTRING*/ @@ -27509,13 +30299,16 @@ meltlab_endgetargs: { const char* meltcit1__EACHSTRMAP_str = NULL; const char* meltcit1__EACHSTRMAP_nam = NULL; - /*_.CURSTR__V29*/ meltfptr[28] = NULL; - /*_.CURCTY__V30*/ meltfptr[29] = NULL; + /*_.CURSTR__V29*/ + meltfptr[28] = NULL; + /*_.CURCTY__V30*/ + meltfptr[29] = NULL; meltcit1__EACHSTRMAP_str = ((struct meltmapstrings_st*)/*_.DICTYPGTY__V17*/ meltfptr[14])->entab[meltcit1__EACHSTRMAP_ix].e_at; if (!meltcit1__EACHSTRMAP_str || meltcit1__EACHSTRMAP_str == HTAB_DELETED_ENTRY) continue; /*foreach_in_mapstring meltcit1__EACHSTRMAP inside before*/ - /*_.CURCTY__V30*/ meltfptr[29] = ((struct meltmapstrings_st*)/*_.DICTYPGTY__V17*/ meltfptr[14])->entab[meltcit1__EACHSTRMAP_ix].e_va; + /*_.CURCTY__V30*/ + meltfptr[29] = ((struct meltmapstrings_st*)/*_.DICTYPGTY__V17*/ meltfptr[14])->entab[meltcit1__EACHSTRMAP_ix].e_va; if (!/*_.CURCTY__V30*/ meltfptr[29]) continue; if (melt_is_instance_of((melt_ptr_t) /*_.CURCTY__V30*/ meltfptr[29], (melt_ptr_t) MELT_PREDEF (CLASS_NAMED)) @@ -27528,7 +30321,8 @@ meltlab_endgetargs: else { /*_.CURSTR__V29*/ meltfptr[28] = NULL; - /*_.CURSTR__V29*/ meltfptr[28] = + /*_.CURSTR__V29*/ + meltfptr[28] = meltgc_new_stringdup ((meltobject_ptr_t) MELT_PREDEF (DISCR_STRING), meltcit1__EACHSTRMAP_str); } @@ -27544,16 +30338,20 @@ meltlab_endgetargs: } ; /* end foreach_in_mapstring meltcit1__EACHSTRMAP */ - /*_.CURSTR__V29*/ meltfptr[28] = NULL; - /*_.CURCTY__V30*/ meltfptr[29] = NULL; + /*_.CURSTR__V29*/ + meltfptr[28] = NULL; + /*_.CURCTY__V30*/ + meltfptr[29] = NULL; } /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4203:/ clear"); - /*clear*/ /*_.CURSTR__V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CURSTR__V29*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTY__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.CURCTY__V30*/ + meltfptr[29] = 0 ; } /*endciterblock FOREACH_IN_MAPSTRING*/ ; @@ -27576,7 +30374,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L5*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27585,7 +30384,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4208:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27618,16 +30418,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_docmd rawctypgtylist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RAWCTYPGTYLIST__V18*/ meltfptr[17]; - /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V31*/ meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; + /*_._IF___V31*/ + meltfptr[30] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4208:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ + meltfptr[31] = 0 ; } ; } @@ -27640,7 +30444,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4208:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27649,9 +30454,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ meltfptr[30] = 0 ; + /*clear*/ /*_._IF___V31*/ + meltfptr[30] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27684,13 +30491,16 @@ meltlab_endgetargs: { const char* meltcit2__EACHSTRMAP_str = NULL; const char* meltcit2__EACHSTRMAP_nam = NULL; - /*_.CURSTR__V33*/ meltfptr[31] = NULL; - /*_.CURCTY__V34*/ meltfptr[30] = NULL; + /*_.CURSTR__V33*/ + meltfptr[31] = NULL; + /*_.CURCTY__V34*/ + meltfptr[30] = NULL; meltcit2__EACHSTRMAP_str = ((struct meltmapstrings_st*)/*_.DICTYP__V20*/ meltfptr[18])->entab[meltcit2__EACHSTRMAP_ix].e_at; if (!meltcit2__EACHSTRMAP_str || meltcit2__EACHSTRMAP_str == HTAB_DELETED_ENTRY) continue; /*foreach_in_mapstring meltcit2__EACHSTRMAP inside before*/ - /*_.CURCTY__V34*/ meltfptr[30] = ((struct meltmapstrings_st*)/*_.DICTYP__V20*/ meltfptr[18])->entab[meltcit2__EACHSTRMAP_ix].e_va; + /*_.CURCTY__V34*/ + meltfptr[30] = ((struct meltmapstrings_st*)/*_.DICTYP__V20*/ meltfptr[18])->entab[meltcit2__EACHSTRMAP_ix].e_va; if (!/*_.CURCTY__V34*/ meltfptr[30]) continue; if (melt_is_instance_of((melt_ptr_t) /*_.CURCTY__V34*/ meltfptr[30], (melt_ptr_t) MELT_PREDEF (CLASS_NAMED)) @@ -27703,7 +30513,8 @@ meltlab_endgetargs: else { /*_.CURSTR__V33*/ meltfptr[31] = NULL; - /*_.CURSTR__V33*/ meltfptr[31] = + /*_.CURSTR__V33*/ + meltfptr[31] = meltgc_new_stringdup ((meltobject_ptr_t) MELT_PREDEF (DISCR_STRING), meltcit2__EACHSTRMAP_str); } @@ -27719,16 +30530,20 @@ meltlab_endgetargs: } ; /* end foreach_in_mapstring meltcit2__EACHSTRMAP */ - /*_.CURSTR__V33*/ meltfptr[31] = NULL; - /*_.CURCTY__V34*/ meltfptr[30] = NULL; + /*_.CURSTR__V33*/ + meltfptr[31] = NULL; + /*_.CURCTY__V34*/ + meltfptr[30] = NULL; } /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4209:/ clear"); - /*clear*/ /*_.CURSTR__V33*/ meltfptr[31] = 0 ; + /*clear*/ /*_.CURSTR__V33*/ + meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.CURCTY__V34*/ meltfptr[30] = 0 ; + /*clear*/ /*_.CURCTY__V34*/ + meltfptr[30] = 0 ; } /*endciterblock FOREACH_IN_MAPSTRING*/ ; @@ -27751,7 +30566,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27760,7 +30576,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4214:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -27793,16 +30610,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_docmd rawctyplist="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RAWCTYPLIST__V21*/ meltfptr[20]; - /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V35*/ meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; + /*_._IF___V35*/ + meltfptr[34] = /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4214:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V36*/ + meltfptr[35] = 0 ; } ; } @@ -27815,7 +30636,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4214:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -27824,9 +30646,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IF___V35*/ + meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -27859,7 +30683,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[9]); - /*_.LIST_TO_MULTIPLE__V38*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RAWCTYPGTYLIST__V18*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V38*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RAWCTYPGTYLIST__V18*/ meltfptr[17]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27874,7 +30699,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[9]); - /*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V38*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SORTEDCTYGTYTUPLE__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V38*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27887,7 +30713,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[9]); - /*_.LIST_TO_MULTIPLE__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RAWCTYPLIST__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V40*/ + meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RAWCTYPLIST__V21*/ meltfptr[20]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27902,7 +30729,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[9]); - /*_.SORTEDCTYTUPLE__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SORTEDCTYTUPLE__V41*/ + meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27935,7 +30763,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!COMPARE_NAMED_ALPHA*/ meltfrout->tabval[10]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[9]); - /*_.SORTEDVALDESCTUPLE__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.RAWVALDESCTUPLE__V43*/ meltfptr[42]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SORTEDVALDESCTUPLE__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.RAWVALDESCTUPLE__V43*/ meltfptr[42]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -27958,7 +30787,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -27967,7 +30797,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4227:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28004,16 +30835,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " sortedvaldesctuple="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.SORTEDVALDESCTUPLE__V44*/ meltfptr[43]; - /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V45*/ meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; + /*_._IF___V45*/ + meltfptr[44] = /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4227:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V46*/ + meltfptr[45] = 0 ; } ; } @@ -28026,7 +30861,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4227:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28035,9 +30871,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V45*/ meltfptr[44] = 0 ; + /*clear*/ /*_._IF___V45*/ + meltfptr[44] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28071,7 +30909,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V23*/ meltfptr[21]; - /*_.GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC__V47*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC__V47*/ + meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28088,7 +30927,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V23*/ meltfptr[21]; - /*_.GENERATE_RUNTYPESUPPORT_GTY__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_GTY*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_GTY__V48*/ + meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_GTY*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28105,7 +30945,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V23*/ meltfptr[21]; - /*_.GENERATE_RUNTYPESUPPORT_PARAM__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_PARAM*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SORTEDCTYTUPLE__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_PARAM__V49*/ + meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_PARAM*/ meltfrout->tabval[14])), (melt_ptr_t)(/*_.SORTEDCTYTUPLE__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28122,7 +30963,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_COD2CTYPE__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_COD2CTYPE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SORTEDCTYTUPLE__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_COD2CTYPE__V50*/ + meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_COD2CTYPE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.SORTEDCTYTUPLE__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28134,7 +30976,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4245:/ locexp"); - /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V23*/ meltfptr[21]), ( "melt_ptr_t melt_code_to_ctype (int);")); + /*add2sbuf_strconst*/ + meltgc_add_strbuf((melt_ptr_t)(/*_.OUTDECLBUF__V23*/ meltfptr[21]), ( "melt_ptr_t melt_code_to_ctype (int);")); } ; @@ -28159,7 +31002,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V23*/ meltfptr[21]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_MAG2STR__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_MAG2STR*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SORTEDCTYTUPLE__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_MAG2STR__V51*/ + meltfptr[50] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_MAG2STR*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.SORTEDCTYTUPLE__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28176,7 +31020,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN__V52*/ + meltfptr[51] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN*/ meltfrout->tabval[17])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28193,7 +31038,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_SCANNING__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_SCANNING*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_SCANNING__V53*/ + meltfptr[52] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_SCANNING*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28210,7 +31056,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V23*/ meltfptr[21]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_BOXINGFUN__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_BOXINGFUN*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_BOXINGFUN__V54*/ + meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_BOXINGFUN*/ meltfrout->tabval[19])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28227,7 +31074,8 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_CLONING_FUN__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_CLONING_FUN*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_CLONING_FUN__V55*/ + meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_CLONING_FUN*/ meltfrout->tabval[20])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28242,7 +31090,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLBUF__V23*/ meltfptr[21]; - /*_.GENERATE_RUNTYPESUPPORT_MAPFUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_MAPFUN*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_MAPFUN__V56*/ + meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_MAPFUN*/ meltfrout->tabval[21])), (melt_ptr_t)(/*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28264,7 +31113,8 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODEBUF__V24*/ meltfptr[23]; - /*_.GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.OUTDECLBUF__V23*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS__V58*/ + meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS*/ meltfrout->tabval[23])), (melt_ptr_t)(/*_.OUTDECLBUF__V23*/ meltfptr[21]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28289,7 +31139,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4289:/ locexp"); - /*output_sbuf_strval*/ melt_output_strbuf_to_file((melt_ptr_t) (/*_.OUTDECLBUF__V23*/ meltfptr[21]), melt_string_str((melt_ptr_t) /*_.OUTDECLNAME__V12*/ meltfptr[9])) ; + /*output_sbuf_strval*/ + melt_output_strbuf_to_file((melt_ptr_t) (/*_.OUTDECLBUF__V23*/ meltfptr[21]), melt_string_str((melt_ptr_t) /*_.OUTDECLNAME__V12*/ meltfptr[9])) ; } ; @@ -28304,7 +31155,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "generated runtype support declaration file $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTDECLNAME__V12*/ meltfptr[9]; - /*_.INFORM_AT__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[24])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INFORM_AT__V59*/ + meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[24])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28329,7 +31181,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4308:/ locexp"); - /*output_sbuf_strval*/ melt_output_strbuf_to_file((melt_ptr_t) (/*_.OUTCODEBUF__V24*/ meltfptr[23]), melt_string_str((melt_ptr_t) /*_.OUTCODENAME__V16*/ meltfptr[13])) ; + /*output_sbuf_strval*/ + melt_output_strbuf_to_file((melt_ptr_t) (/*_.OUTCODEBUF__V24*/ meltfptr[23]), melt_string_str((melt_ptr_t) /*_.OUTCODENAME__V16*/ meltfptr[13])) ; } ; @@ -28344,7 +31197,8 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "generated runtype support implementation file $1"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.OUTCODENAME__V16*/ meltfptr[13]; - /*_.INFORM_AT__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[24])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.INFORM_AT__V60*/ + meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!INFORM_AT*/ meltfrout->tabval[24])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -28367,7 +31221,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28376,7 +31231,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4312:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L11*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28409,16 +31265,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "runtypesupport_docmd done outarg="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V61*/ meltfptr[60] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; + /*_._IF___V61*/ + meltfptr[60] = /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4312:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V62*/ + meltfptr[61] = 0 ; } ; } @@ -28431,7 +31291,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4312:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28440,9 +31301,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V61*/ meltfptr[60] = 0 ; + /*clear*/ /*_._IF___V61*/ + meltfptr[60] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28468,7 +31331,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4313:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_25_TRUE*/ meltfrout->tabval[25]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_25_TRUE*/ meltfrout->tabval[25]);; { MELT_LOCATION("warmelt-modes.melt:4313:/ locexp"); @@ -28483,94 +31347,136 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V37*/ meltfptr[35] = /*_.RETURN___V63*/ meltfptr[61];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V37*/ + meltfptr[35] = /*_.RETURN___V63*/ meltfptr[61];; MELT_LOCATION("warmelt-modes.melt:4215:/ clear"); - /*clear*/ /*_.LIST_TO_MULTIPLE__V38*/ meltfptr[34] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V38*/ + meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDCTYGTYTUPLE__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.SORTEDCTYGTYTUPLE__V39*/ + meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V40*/ meltfptr[39] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V40*/ + meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDCTYTUPLE__V41*/ meltfptr[40] = 0 ; + /*clear*/ /*_.SORTEDCTYTUPLE__V41*/ + meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V42*/ meltfptr[41] = 0 ; + /*clear*/ /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V42*/ + meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.RAWVALDESCTUPLE__V43*/ meltfptr[42] = 0 ; + /*clear*/ /*_.RAWVALDESCTUPLE__V43*/ + meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.SORTEDVALDESCTUPLE__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.SORTEDVALDESCTUPLE__V44*/ + meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC__V47*/ meltfptr[45] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC__V47*/ + meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_GTY__V48*/ meltfptr[44] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_GTY__V48*/ + meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_PARAM__V49*/ meltfptr[48] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_PARAM__V49*/ + meltfptr[48] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_COD2CTYPE__V50*/ meltfptr[49] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_COD2CTYPE__V50*/ + meltfptr[49] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_MAG2STR__V51*/ meltfptr[50] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_MAG2STR__V51*/ + meltfptr[50] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN__V52*/ meltfptr[51] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN__V52*/ + meltfptr[51] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_SCANNING__V53*/ meltfptr[52] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_SCANNING__V53*/ + meltfptr[52] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_BOXINGFUN__V54*/ meltfptr[53] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_BOXINGFUN__V54*/ + meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_CLONING_FUN__V55*/ meltfptr[54] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_CLONING_FUN__V55*/ + meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_MAPFUN__V56*/ meltfptr[55] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_MAPFUN__V56*/ + meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS__V57*/ meltfptr[56] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS__V57*/ + meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS__V58*/ meltfptr[57] = 0 ; + /*clear*/ /*_.GENERATE_RUNTYPESUPPORT_PREDEFINED_HOOKS__V58*/ + meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.INFORM_AT__V59*/ meltfptr[58] = 0 ; + /*clear*/ /*_.INFORM_AT__V59*/ + meltfptr[58] = 0 ; /*^clear*/ - /*clear*/ /*_.INFORM_AT__V60*/ meltfptr[59] = 0 ; + /*clear*/ /*_.INFORM_AT__V60*/ + meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V63*/ meltfptr[61] = 0 ; - /*_.LET___V6*/ meltfptr[4] = /*_.LET___V37*/ meltfptr[35];; + /*clear*/ /*_.RETURN___V63*/ + meltfptr[61] = 0 ; + /*_.LET___V6*/ + meltfptr[4] = /*_.LET___V37*/ meltfptr[35];; MELT_LOCATION("warmelt-modes.melt:4176:/ clear"); - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRINGCONST__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.MAKE_STRINGCONST__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.OUTARG__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.LET___V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTDECLNAME__V12*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OUTDECLNAME__V12*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V13*/ meltfptr[10] = 0 ; + /*clear*/ /*_.LET___V13*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTCODENAME__V16*/ meltfptr[13] = 0 ; + /*clear*/ /*_.OUTCODENAME__V16*/ + meltfptr[13] = 0 ; /*^clear*/ - /*clear*/ /*_.DICTYPGTY__V17*/ meltfptr[14] = 0 ; + /*clear*/ /*_.DICTYPGTY__V17*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.RAWCTYPGTYLIST__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.RAWCTYPGTYLIST__V18*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.DICTYP__V20*/ meltfptr[18] = 0 ; + /*clear*/ /*_.DICTYP__V20*/ + meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.RAWCTYPLIST__V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.RAWCTYPLIST__V21*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTDECLBUF__V23*/ meltfptr[21] = 0 ; + /*clear*/ /*_.OUTDECLBUF__V23*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTCODEBUF__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.OUTCODEBUF__V24*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V27*/ meltfptr[25] = 0 ; + /*clear*/ /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V27*/ + meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V28*/ meltfptr[24] = 0 ; + /*clear*/ /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V28*/ + meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V37*/ meltfptr[35] = 0 ; + /*clear*/ /*_.LET___V37*/ + meltfptr[35] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4174:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:4174:/ locexp"); @@ -28585,11 +31491,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -28671,7 +31579,8 @@ meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE(meltclosure_ptr_t meltcl /* end of frame for routine meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE fromline 1756 */ - /* classy proc frame meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE */ MeltFrame_meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE + /* classy proc frame meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE */ + MeltFrame_meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE fromline 1785*/ #if ENABLE_CHECKING @@ -28684,7 +31593,8 @@ meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE(meltclosure_ptr_t meltcl #define meltframe meltfram__ melt_trace_start("TRANSLATE_TO_FLAVORED_MODULE", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -28694,33 +31604,38 @@ meltrout_61_WARMELTmiMODES_TRANSLATE_TO_FLAVORED_MODULE(meltclosure_ptr_t meltcl /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4329:/ getarg"); - /*_.INARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.INARG__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.OUTARG__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.OUTARG__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CARG__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.CARG__V4*/ + meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CARG__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.FLAVORS__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.FLAVORS__V5*/ + meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.FLAVORS__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.CURENV__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; + /*_.CURENV__V6*/ + meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CURENV__V6*/ meltfptr[5])) != NULL); ; @@ -28752,7 +31667,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -28761,7 +31677,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4330:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28810,16 +31727,20 @@ meltlab_endgetargs: argtab[11].meltbp_cstring = " curenv="; /*^apply.arg*/ argtab[12].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V6*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; + /*_._IF___V7*/ + meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4330:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V8*/ + meltfptr[7] = 0 ; } ; } @@ -28832,7 +31753,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4330:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -28841,9 +31763,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V7*/ meltfptr[6] = 0 ; + /*clear*/ /*_._IF___V7*/ + meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -28869,10 +31793,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L3*/ meltfnum[1] = + /*_#IS_STRING__L3*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:4335:/ cond"); - /*cond*/ if (/*_#IS_STRING__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28885,11 +31811,13 @@ meltlab_endgetargs: melt_string_str ((melt_ptr_t)(/*_.OUTARG__V3*/ meltfptr[2])), ( ".cc"))) ;; /*^compute*/ - /*_.BASNAM__V10*/ meltfptr[6] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V11*/ meltfptr[10];; + /*_.BASNAM__V10*/ + meltfptr[6] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4335:/ clear"); - /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V11*/ + meltfptr[10] = 0 ; } ; } @@ -28903,10 +31831,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L4*/ meltfnum[0] = + /*_#IS_STRING__L4*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.INARG__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:4337:/ cond"); - /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -28917,11 +31847,13 @@ meltlab_endgetargs: (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), melt_string_str((melt_ptr_t)(/*_.INARG__V2*/ meltfptr[1]))));; /*^compute*/ - /*_._IFELSE___V12*/ meltfptr[10] = /*_.MAKE_STRING_NAKEDBASENAME__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ + meltfptr[10] = /*_.MAKE_STRING_NAKEDBASENAME__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4337:/ clear"); - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V13*/ + meltfptr[12] = 0 ; } ; } @@ -28942,13 +31874,15 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "invalid translate to flavored module arguments"; - /*_.ERROR_AT__V14*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V14*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4341:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:4341:/ locexp"); @@ -28963,38 +31897,48 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-modes.melt:4339:/ quasiblock"); - /*_.PROGN___V16*/ meltfptr[15] = /*_.RETURN___V15*/ meltfptr[14];; + /*_.PROGN___V16*/ + meltfptr[15] = /*_.RETURN___V15*/ meltfptr[14];; /*^compute*/ - /*_._IFELSE___V12*/ meltfptr[10] = /*_.PROGN___V16*/ meltfptr[15];; + /*_._IFELSE___V12*/ + meltfptr[10] = /*_.PROGN___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4337:/ clear"); - /*clear*/ /*_.ERROR_AT__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.ERROR_AT__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V16*/ meltfptr[15] = 0 ; + /*clear*/ /*_.PROGN___V16*/ + meltfptr[15] = 0 ; } ; } ; - /*_.BASNAM__V10*/ meltfptr[6] = /*_._IFELSE___V12*/ meltfptr[10];; + /*_.BASNAM__V10*/ + meltfptr[6] = /*_._IFELSE___V12*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4335:/ clear"); - /*clear*/ /*_#IS_STRING__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ meltfptr[10] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ + meltfptr[10] = 0 ; } ; } ; MELT_LOCATION("warmelt-modes.melt:4343:/ cond"); - /*cond*/ if (/*_.OUTARG__V3*/ meltfptr[2]) /*then*/ + /*cond*/ + if (/*_.OUTARG__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.OUTNAM__V17*/ meltfptr[12] = /*_.OUTARG__V3*/ meltfptr[2];; @@ -29003,17 +31947,20 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4343:/ cond.else"); - /*_.OUTNAM__V17*/ meltfptr[12] = /*_.BASNAM__V10*/ meltfptr[6];; + /*_.OUTNAM__V17*/ + meltfptr[12] = /*_.BASNAM__V10*/ meltfptr[6];; } ; /*^compute*/ - /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[14] = + /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ + meltfptr[14] = /*make_string_without_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), melt_string_str ((melt_ptr_t)(/*_.CARG__V4*/ meltfptr[3])), ( ".cc"))) ;; MELT_LOCATION("warmelt-modes.melt:4344:/ cond"); - /*cond*/ if (/*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[14]) /*then*/ + /*cond*/ + if (/*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*_.RAWSRCNAM__V19*/ meltfptr[15] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[14];; @@ -29030,16 +31977,19 @@ meltlab_endgetargs: (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), melt_string_str((melt_ptr_t)(/*_.OUTNAM__V17*/ meltfptr[12]))));; /*^compute*/ - /*_.RAWSRCNAM__V19*/ meltfptr[15] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[10];; + /*_.RAWSRCNAM__V19*/ + meltfptr[15] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4344:/ clear"); - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[10] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/ + meltfptr[10] = 0 ; } ; } ; - /*_.OUTBASE__V21*/ meltfptr[10] = + /*_.OUTBASE__V21*/ + meltfptr[10] = /*make_string_without_suffix*/ (meltgc_new_string_without_suffix ((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[1])), melt_string_str ((melt_ptr_t)(/*_.OUTNAM__V17*/ meltfptr[12])), @@ -29054,10 +32004,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[0] = + /*_#IS_A__L5*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-modes.melt:4348:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; @@ -29086,25 +32038,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4348; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V6*/ meltfptr[5]; - /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V23*/ meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; + /*_._IFELSE___V23*/ + meltfptr[22] = /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4348:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.IFCPP___V22*/ meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; + /*_.IFCPP___V22*/ + meltfptr[21] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4348:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V23*/ meltfptr[22] = 0 ; + /*clear*/ /*_._IFELSE___V23*/ + meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29132,7 +32090,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29141,7 +32100,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4349:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29182,16 +32142,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = " outbase="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBASE__V21*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V25*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[22];; + /*_._IF___V25*/ + meltfptr[23] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4349:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L7*/ meltfnum[6] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L7*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[22] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[22] = 0 ; } ; } @@ -29204,7 +32168,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4349:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29213,9 +32178,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L6*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V25*/ + meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29247,16 +32214,19 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OUTBASE__V21*/ meltfptr[10]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V6*/ meltfptr[5]; - /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V27*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V27*/ + meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.INARG__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L8*/ meltfnum[6] = + /*_#IS_STRING__L8*/ + meltfnum[6] = (melt_magic_discr((melt_ptr_t)(/*_.FLAVORS__V5*/ meltfptr[4])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:4353:/ cond"); - /*cond*/ if (/*_#IS_STRING__L8*/ meltfnum[6]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29283,7 +32253,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29292,7 +32263,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4354:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29333,16 +32305,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "flavor="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVORS__V5*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; + /*_._IF___V29*/ + meltfptr[28] = /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4354:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V30*/ + meltfptr[29] = 0 ; } ; } @@ -29355,7 +32331,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4354:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29364,9 +32341,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ + meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29389,10 +32368,11 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4356:/ locexp"); - /*generate_flavored_melt_module*/ melt_compile_source (melt_string_str ((melt_ptr_t)/*_.RAWSRCNAM__V19*/ meltfptr[15]), - melt_string_str ((melt_ptr_t)/*_.OUTNAM__V17*/ meltfptr[12]), - NULL, - melt_string_str ((melt_ptr_t)/*_.FLAVORS__V5*/ meltfptr[4])); /*generate_flavored_melt_module*/ + /*generate_flavored_melt_module*/ + melt_compile_source (melt_string_str ((melt_ptr_t)/*_.RAWSRCNAM__V19*/ meltfptr[15]), + melt_string_str ((melt_ptr_t)/*_.OUTNAM__V17*/ meltfptr[12]), + NULL, + melt_string_str ((melt_ptr_t)/*_.FLAVORS__V5*/ meltfptr[4])); /*generate_flavored_melt_module*/ ; } ; @@ -29413,10 +32393,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_LIST__L11*/ meltfnum[9] = + /*_#IS_LIST__L11*/ + meltfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.FLAVORS__V5*/ meltfptr[4])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-modes.melt:4357:/ cond"); - /*cond*/ if (/*_#IS_LIST__L11*/ meltfnum[9]) /*then*/ + /*cond*/ + if (/*_#IS_LIST__L11*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29453,7 +32435,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29462,7 +32445,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4361:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29503,16 +32487,20 @@ meltlab_endgetargs: argtab[7].meltbp_cstring = "flavor="; /*^apply.arg*/ argtab[8].meltbp_aptr = (melt_ptr_t*) &/*_.CURFLAVOR__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ + meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4361:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L13*/ meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L13*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ + meltfptr[34] = 0 ; } ; } @@ -29525,7 +32513,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4361:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29534,9 +32523,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ + meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29559,24 +32550,28 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4363:/ locexp"); - /*generate_flavored_melt_module*/ melt_compile_source (melt_string_str ((melt_ptr_t)/*_.RAWSRCNAM__V19*/ meltfptr[15]), - melt_string_str ((melt_ptr_t)/*_.OUTNAM__V17*/ meltfptr[12]), - NULL, - melt_string_str ((melt_ptr_t)/*_.CURFLAVOR__V33*/ meltfptr[32])); /*generate_flavored_melt_module*/ + /*generate_flavored_melt_module*/ + melt_compile_source (melt_string_str ((melt_ptr_t)/*_.RAWSRCNAM__V19*/ meltfptr[15]), + melt_string_str ((melt_ptr_t)/*_.OUTNAM__V17*/ meltfptr[12]), + NULL, + melt_string_str ((melt_ptr_t)/*_.CURFLAVOR__V33*/ meltfptr[32])); /*generate_flavored_melt_module*/ ; } ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V32*/ meltfptr[28] = NULL; - /*_.CURFLAVOR__V33*/ meltfptr[32] = NULL; + /*_.CURFLAVOR__V33*/ + meltfptr[32] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4358:/ clear"); - /*clear*/ /*_.CURPAIR__V32*/ meltfptr[28] = 0 ; + /*clear*/ /*_.CURPAIR__V32*/ + meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.CURFLAVOR__V33*/ meltfptr[32] = 0 ; + /*clear*/ /*_.CURFLAVOR__V33*/ + meltfptr[32] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; /*epilog*/ @@ -29594,10 +32589,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MULTIPLE__L14*/ meltfnum[12] = + /*_#IS_MULTIPLE__L14*/ + meltfnum[12] = (melt_magic_discr((melt_ptr_t)(/*_.FLAVORS__V5*/ meltfptr[4])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-modes.melt:4364:/ cond"); - /*cond*/ if (/*_#IS_MULTIPLE__L14*/ meltfnum[12]) /*then*/ + /*cond*/ + if (/*_#IS_MULTIPLE__L14*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29636,7 +32633,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = + /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29645,7 +32643,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4368:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29690,16 +32689,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " flix="; /*^apply.arg*/ argtab[10].meltbp_long = /*_#FLIX__L15*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V39*/ + meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V38*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; + /*_._IF___V38*/ + meltfptr[37] = /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4368:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V39*/ + meltfptr[38] = 0 ; } ; } @@ -29712,7 +32715,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4368:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29721,9 +32725,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V38*/ meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V38*/ + meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29746,10 +32752,11 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4370:/ locexp"); - /*generate_flavored_melt_module*/ melt_compile_source (melt_string_str ((melt_ptr_t)/*_.RAWSRCNAM__V19*/ meltfptr[15]), - melt_string_str ((melt_ptr_t)/*_.OUTNAM__V17*/ meltfptr[12]), - NULL, - melt_string_str ((melt_ptr_t)/*_.CURFLAVOR__V37*/ meltfptr[33])); /*generate_flavored_melt_module*/ + /*generate_flavored_melt_module*/ + melt_compile_source (melt_string_str ((melt_ptr_t)/*_.RAWSRCNAM__V19*/ meltfptr[15]), + melt_string_str ((melt_ptr_t)/*_.OUTNAM__V17*/ meltfptr[12]), + NULL, + melt_string_str ((melt_ptr_t)/*_.CURFLAVOR__V37*/ meltfptr[33])); /*generate_flavored_melt_module*/ ; } ; @@ -29759,9 +32766,11 @@ meltlab_endgetargs: /*citerepilog*/ MELT_LOCATION("warmelt-modes.melt:4365:/ clear"); - /*clear*/ /*_.CURFLAVOR__V37*/ meltfptr[33] = 0 ; + /*clear*/ /*_.CURFLAVOR__V37*/ + meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#FLIX__L15*/ meltfnum[0] = 0 ; + /*clear*/ /*_#FLIX__L15*/ + meltfnum[0] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*epilog*/ @@ -29796,7 +32805,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = + /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -29805,7 +32815,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4372:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -29838,16 +32849,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translate_to_flavored_module bad flavors="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVORS__V5*/ meltfptr[4]; - /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V40*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37];; + /*_._IF___V40*/ + meltfptr[38] = /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4372:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L19*/ meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L19*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V41*/ + meltfptr[37] = 0 ; } ; } @@ -29860,7 +32875,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4372:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -29869,9 +32885,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L18*/ + meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V40*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V40*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29902,7 +32920,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ if ((/*nil*/NULL)) /*then*/ + /*cond*/ + if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V43*/ meltfptr[38] = (/*nil*/NULL);; @@ -29931,23 +32950,28 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4373; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.FLAVORS__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V43*/ meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43];; + /*_._IFELSE___V43*/ + meltfptr[38] = /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4373:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V44*/ + meltfptr[43] = 0 ; } ; } ; - /*_.IFCPP___V42*/ meltfptr[37] = /*_._IFELSE___V43*/ meltfptr[38];; + /*_.IFCPP___V42*/ + meltfptr[37] = /*_._IFELSE___V43*/ meltfptr[38];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4373:/ clear"); - /*clear*/ /*_._IFELSE___V43*/ meltfptr[38] = 0 ; + /*clear*/ /*_._IFELSE___V43*/ + meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -29958,70 +32982,92 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4371:/ quasiblock"); - /*_.PROGN___V45*/ meltfptr[43] = /*_.IFCPP___V42*/ meltfptr[37];; + /*_.PROGN___V45*/ + meltfptr[43] = /*_.IFCPP___V42*/ meltfptr[37];; /*^compute*/ - /*_._IFELSE___V36*/ meltfptr[34] = /*_.PROGN___V45*/ meltfptr[43];; + /*_._IFELSE___V36*/ + meltfptr[34] = /*_.PROGN___V45*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4364:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ meltfptr[37] = 0 ; + /*clear*/ /*_.IFCPP___V42*/ + meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V45*/ meltfptr[43] = 0 ; + /*clear*/ /*_.PROGN___V45*/ + meltfptr[43] = 0 ; } ; } ; - /*_._IFELSE___V31*/ meltfptr[29] = /*_._IFELSE___V36*/ meltfptr[34];; + /*_._IFELSE___V31*/ + meltfptr[29] = /*_._IFELSE___V36*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4357:/ clear"); - /*clear*/ /*_#IS_MULTIPLE__L14*/ meltfnum[12] = 0 ; + /*clear*/ /*_#IS_MULTIPLE__L14*/ + meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V36*/ meltfptr[34] = 0 ; + /*clear*/ /*_._IFELSE___V36*/ + meltfptr[34] = 0 ; } ; } ; - /*_._IFELSE___V28*/ meltfptr[23] = /*_._IFELSE___V31*/ meltfptr[29];; + /*_._IFELSE___V28*/ + meltfptr[23] = /*_._IFELSE___V31*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4353:/ clear"); - /*clear*/ /*_#IS_LIST__L11*/ meltfnum[9] = 0 ; + /*clear*/ /*_#IS_LIST__L11*/ + meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ meltfptr[29] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ + meltfptr[29] = 0 ; } ; } ; - /*_.LET___V9*/ meltfptr[7] = /*_._IFELSE___V28*/ meltfptr[23];; + /*_.LET___V9*/ + meltfptr[7] = /*_._IFELSE___V28*/ meltfptr[23];; MELT_LOCATION("warmelt-modes.melt:4332:/ clear"); - /*clear*/ /*_#IS_STRING__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.BASNAM__V10*/ meltfptr[6] = 0 ; + /*clear*/ /*_.BASNAM__V10*/ + meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTNAM__V17*/ meltfptr[12] = 0 ; + /*clear*/ /*_.OUTNAM__V17*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ + meltfptr[14] = 0 ; /*^clear*/ - /*clear*/ /*_.RAWSRCNAM__V19*/ meltfptr[15] = 0 ; + /*clear*/ /*_.RAWSRCNAM__V19*/ + meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.OUTBASE__V21*/ meltfptr[10] = 0 ; + /*clear*/ /*_.OUTBASE__V21*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; + /*clear*/ /*_.IFCPP___V22*/ + meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V27*/ meltfptr[22] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V27*/ + meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L8*/ meltfnum[6] = 0 ; + /*clear*/ /*_#IS_STRING__L8*/ + meltfnum[6] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V28*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IFELSE___V28*/ + meltfptr[23] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4329:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; { MELT_LOCATION("warmelt-modes.melt:4329:/ locexp"); @@ -30036,11 +33082,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V9*/ meltfptr[7] = 0 ; + /*clear*/ /*_.LET___V9*/ + meltfptr[7] = 0 ; } ; @@ -30125,7 +33173,8 @@ meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD fromline 1756 */ - /* classy proc frame meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD */ MeltFrame_meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD + /* classy proc frame meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD */ + MeltFrame_meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -30138,7 +33187,8 @@ meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("TRANSLATETOMODULE_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -30148,12 +33198,14 @@ meltrout_62_WARMELTmiMODES_TRANSLATETOMODULE_DOCMD(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4377:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -30191,7 +33243,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30200,7 +33253,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4379:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30237,16 +33291,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4379:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -30259,7 +33317,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4379:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30268,9 +33327,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30293,12 +33354,14 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4380:/ quasiblock"); - /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ + meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4382:/ cond"); - /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ + if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -30307,26 +33370,33 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4382:/ cond.else"); - /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ + meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o0 = + /*_?*/ + meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ meltfptr[8] = + /*_.INARG__V9*/ + meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o1 = + /*_?*/ + meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ meltfptr[9] = + /*_.OUTARG__V10*/ + meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o2 = + /*_?*/ + meltfram__.loc_CSTRING__o2 = melt_argument( "coutput");; /*^compute*/ - /*_.COUTARG__V11*/ meltfptr[10] = + /*_.COUTARG__V11*/ + meltfptr[10] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o2)));; #if MELT_HAVE_DEBUG @@ -30348,7 +33418,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30357,7 +33428,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4387:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30402,16 +33474,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " curenv="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4387:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -30424,7 +33500,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4387:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30433,9 +33510,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30466,7 +33545,8 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x4*/ - /*_.TUPLREC___V15*/ meltfptr[11] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x4; + /*_.TUPLREC___V15*/ + meltfptr[11] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x4; meltletrec_1_ptr->rtup_0__TUPLREC__x4.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x4.nbval = 3; @@ -30492,13 +33572,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V15*/ meltfptr[11]); ; - /*_.TUPLE___V14*/ meltfptr[12] = /*_.TUPLREC___V15*/ meltfptr[11];; + /*_.TUPLE___V14*/ + meltfptr[12] = /*_.TUPLREC___V15*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4390:/ clear"); - /*clear*/ /*_.TUPLREC___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.TUPLREC___V15*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.TUPLREC___V15*/ + meltfptr[11] = 0 ; } /*end multiallocblock*/ ; @@ -30517,7 +33600,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.TUPLE___V14*/ meltfptr[12]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_FLAVORED_MODULE__V16*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_FLAVORED_MODULE__V16*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -30526,7 +33610,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4392:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_8_TRUE*/ meltfrout->tabval[8]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_8_TRUE*/ meltfrout->tabval[8]);; { MELT_LOCATION("warmelt-modes.melt:4392:/ locexp"); @@ -30541,38 +33626,52 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V6*/ meltfptr[4] = /*_.RETURN___V17*/ meltfptr[16];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V6*/ + meltfptr[4] = /*_.RETURN___V17*/ meltfptr[16];; MELT_LOCATION("warmelt-modes.melt:4380:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o2 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o2 = 0 ; /*^clear*/ - /*clear*/ /*_.COUTARG__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.COUTARG__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.TUPLE___V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V16*/ meltfptr[11] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V16*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; + /*clear*/ /*_.RETURN___V17*/ + meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4377:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:4377:/ locexp"); @@ -30587,11 +33686,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -30676,7 +33777,8 @@ meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD fromline 1756 */ - /* classy proc frame meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD */ MeltFrame_meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD + /* classy proc frame meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD */ + MeltFrame_meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -30689,7 +33791,8 @@ meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("TRANSLATEDEBUG_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -30699,12 +33802,14 @@ meltrout_63_WARMELTmiMODES_TRANSLATEDEBUG_DOCMD(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4405:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -30736,7 +33841,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30745,7 +33851,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4406:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30782,16 +33889,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4406:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -30804,7 +33915,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4406:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30813,9 +33925,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -30838,12 +33952,14 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4407:/ quasiblock"); - /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ + meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4409:/ cond"); - /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ + if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -30852,26 +33968,33 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4409:/ cond.else"); - /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ + meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o0 = + /*_?*/ + meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ meltfptr[8] = + /*_.INARG__V9*/ + meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o1 = + /*_?*/ + meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ meltfptr[9] = + /*_.OUTARG__V10*/ + meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o2 = + /*_?*/ + meltfram__.loc_CSTRING__o2 = melt_argument( "coutput");; /*^compute*/ - /*_.COUTARG__V11*/ meltfptr[10] = + /*_.COUTARG__V11*/ + meltfptr[10] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o2)));; #if MELT_HAVE_DEBUG @@ -30893,7 +34016,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -30902,7 +34026,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4414:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -30947,16 +34072,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " curenv="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4414:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -30969,7 +34098,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4414:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -30978,9 +34108,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31016,36 +34148,48 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_5*/ meltfrout->tabval[5]); /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LET___V6*/ meltfptr[4] = /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12];; + /*_.LET___V6*/ + meltfptr[4] = /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12];; MELT_LOCATION("warmelt-modes.melt:4407:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o2 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o2 = 0 ; /*^clear*/ - /*clear*/ /*_.COUTARG__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.COUTARG__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ + meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4417:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_6_TRUE*/ meltfrout->tabval[6]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_6_TRUE*/ meltfrout->tabval[6]);; { MELT_LOCATION("warmelt-modes.melt:4417:/ locexp"); @@ -31060,14 +34204,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4405:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V15*/ meltfptr[11];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.RETURN___V15*/ meltfptr[11];; { MELT_LOCATION("warmelt-modes.melt:4405:/ locexp"); @@ -31082,13 +34228,16 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[11] = 0 ; } ; @@ -31173,7 +34322,8 @@ meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD fromline 1756 */ - /* classy proc frame meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD */ MeltFrame_meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD + /* classy proc frame meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD */ + MeltFrame_meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -31186,7 +34336,8 @@ meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("TRANSLATEQUICKLY_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31196,12 +34347,14 @@ meltrout_64_WARMELTmiMODES_TRANSLATEQUICKLY_DOCMD(meltclosure_ptr_t meltclosp_, /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4433:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -31233,7 +34386,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31242,7 +34396,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4434:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31279,16 +34434,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4434:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -31301,7 +34460,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4434:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31310,9 +34470,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31335,12 +34497,14 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4435:/ quasiblock"); - /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ + meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4437:/ cond"); - /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ + if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -31349,26 +34513,33 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4437:/ cond.else"); - /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ + meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o0 = + /*_?*/ + meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ meltfptr[8] = + /*_.INARG__V9*/ + meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o1 = + /*_?*/ + meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ meltfptr[9] = + /*_.OUTARG__V10*/ + meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o2 = + /*_?*/ + meltfram__.loc_CSTRING__o2 = melt_argument( "coutput");; /*^compute*/ - /*_.COUTARG__V11*/ meltfptr[10] = + /*_.COUTARG__V11*/ + meltfptr[10] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o2)));; #if MELT_HAVE_DEBUG @@ -31390,7 +34561,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31399,7 +34571,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4442:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31444,16 +34617,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " curenv="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4442:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -31466,7 +34643,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4442:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31475,9 +34653,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31513,7 +34693,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_5*/ meltfrout->tabval[5]); /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -31522,7 +34703,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4445:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_6_TRUE*/ meltfrout->tabval[6]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_6_TRUE*/ meltfrout->tabval[6]);; { MELT_LOCATION("warmelt-modes.melt:4445:/ locexp"); @@ -31537,36 +34719,49 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V6*/ meltfptr[4] = /*_.RETURN___V15*/ meltfptr[11];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V6*/ + meltfptr[4] = /*_.RETURN___V15*/ meltfptr[11];; MELT_LOCATION("warmelt-modes.melt:4435:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o2 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o2 = 0 ; /*^clear*/ - /*clear*/ /*_.COUTARG__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.COUTARG__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4433:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:4433:/ locexp"); @@ -31581,11 +34776,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -31670,7 +34867,8 @@ meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD fromline 1756 */ - /* classy proc frame meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD */ MeltFrame_meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD + /* classy proc frame meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD */ + MeltFrame_meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -31683,7 +34881,8 @@ meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("TRANSLATEOPTIMIZED_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -31693,12 +34892,14 @@ meltrout_65_WARMELTmiMODES_TRANSLATEOPTIMIZED_DOCMD(meltclosure_ptr_t meltclosp_ /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4460:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -31730,7 +34931,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31739,7 +34941,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4461:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31776,16 +34979,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4461:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -31798,7 +35005,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4461:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31807,9 +35015,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -31832,12 +35042,14 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4462:/ quasiblock"); - /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ + meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4464:/ cond"); - /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ + if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -31846,26 +35058,33 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4464:/ cond.else"); - /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ + meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o0 = + /*_?*/ + meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ meltfptr[8] = + /*_.INARG__V9*/ + meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o1 = + /*_?*/ + meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ meltfptr[9] = + /*_.OUTARG__V10*/ + meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o2 = + /*_?*/ + meltfram__.loc_CSTRING__o2 = melt_argument( "coutput");; /*^compute*/ - /*_.COUTARG__V11*/ meltfptr[10] = + /*_.COUTARG__V11*/ + meltfptr[10] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o2)));; #if MELT_HAVE_DEBUG @@ -31887,7 +35106,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -31896,7 +35116,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4469:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -31941,16 +35162,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " curenv="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; + /*_._IF___V12*/ + meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4469:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ + meltfptr[12] = 0 ; } ; } @@ -31963,7 +35188,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4469:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -31972,9 +35198,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_._IF___V12*/ + meltfptr[11] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32010,7 +35238,8 @@ meltlab_endgetargs: argtab[2].meltbp_aptr = (melt_ptr_t*) &(/*!konst_5*/ meltfrout->tabval[5]); /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ + meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_FLAVORED_MODULE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -32019,7 +35248,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4472:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_6_TRUE*/ meltfrout->tabval[6]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_6_TRUE*/ meltfrout->tabval[6]);; { MELT_LOCATION("warmelt-modes.melt:4472:/ locexp"); @@ -32034,36 +35264,49 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V6*/ meltfptr[4] = /*_.RETURN___V15*/ meltfptr[11];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V6*/ + meltfptr[4] = /*_.RETURN___V15*/ meltfptr[11];; MELT_LOCATION("warmelt-modes.melt:4462:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o2 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o2 = 0 ; /*^clear*/ - /*clear*/ /*_.COUTARG__V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_.COUTARG__V11*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ meltfptr[12] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_FLAVORED_MODULE__V14*/ + meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V15*/ meltfptr[11] = 0 ; + /*clear*/ /*_.RETURN___V15*/ + meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4460:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:4460:/ locexp"); @@ -32078,11 +35321,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; @@ -32166,7 +35411,8 @@ meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD fromline 1756 */ - /* classy proc frame meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD */ MeltFrame_meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD + /* classy proc frame meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD */ + MeltFrame_meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD fromline 1785*/ #if ENABLE_CHECKING @@ -32179,7 +35425,8 @@ meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("TRANSLATEFILE_DOCMD", meltcallcount); - /*use arguments*/ (void) meltclosp_; + /*use arguments*/ + (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -32189,12 +35436,14 @@ meltrout_66_WARMELTmiMODES_TRANSLATEFILE_DOCMD(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-modes.melt:4488:/ getarg"); - /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.CMD__V2*/ + meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.MODULDATA__V3*/ + meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; @@ -32232,7 +35481,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32241,7 +35491,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4490:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32278,16 +35529,20 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.MODULDATA__V3*/ meltfptr[2]; - /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; + /*_._IF___V4*/ + meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4490:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V5*/ + meltfptr[4] = 0 ; } ; } @@ -32300,7 +35555,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4490:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32309,9 +35565,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V4*/ meltfptr[3] = 0 ; + /*clear*/ /*_._IF___V4*/ + meltfptr[3] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32334,12 +35592,14 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4491:/ quasiblock"); - /*_.PARMODENV__V7*/ meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; + /*_.PARMODENV__V7*/ + meltfptr[3] = (/*!konst_1*/ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4493:/ cond"); - /*cond*/ if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ + /*cond*/ + if (/*_.MODULDATA__V3*/ meltfptr[2]) /*then*/ { /*^cond.then*/ /*_.CURENV__V8*/ meltfptr[7] = /*_.MODULDATA__V3*/ meltfptr[2];; @@ -32348,20 +35608,25 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4493:/ cond.else"); - /*_.CURENV__V8*/ meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; + /*_.CURENV__V8*/ + meltfptr[7] = (/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]);; } ; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o0 = + /*_?*/ + meltfram__.loc_CSTRING__o0 = melt_argument( "arg");; /*^compute*/ - /*_.INARG__V9*/ meltfptr[8] = + /*_.INARG__V9*/ + meltfptr[8] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute*/ - /*_?*/ meltfram__.loc_CSTRING__o1 = + /*_?*/ + meltfram__.loc_CSTRING__o1 = melt_argument( "output");; /*^compute*/ - /*_.OUTARG__V10*/ meltfptr[9] = + /*_.OUTARG__V10*/ + meltfptr[9] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), (/*_?*/ meltfram__.loc_CSTRING__o1)));; #if MELT_HAVE_DEBUG @@ -32383,7 +35648,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32392,7 +35658,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4497:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32437,16 +35704,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = " initial_environment="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ meltfrout->tabval[2]); - /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V11*/ meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; + /*_._IF___V11*/ + meltfptr[10] = /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4497:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L4*/ meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L4*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V12*/ + meltfptr[11] = 0 ; } ; } @@ -32459,7 +35730,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4497:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32468,9 +35740,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L3*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V11*/ meltfptr[10] = 0 ; + /*clear*/ /*_._IF___V11*/ + meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32500,10 +35774,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L5*/ meltfnum[0] = + /*_#IS_A__L5*/ + meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V8*/ meltfptr[7]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-modes.melt:4500:/ cond"); - /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[10] = (/*nil*/NULL);; @@ -32532,25 +35808,31 @@ meltlab_endgetargs: argtab[2].meltbp_long = 4500; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V15*/ + meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V14*/ meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; + /*_._IFELSE___V14*/ + meltfptr[10] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4500:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ + meltfptr[14] = 0 ; } ; } ; - /*_.IFCPP___V13*/ meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];; + /*_.IFCPP___V13*/ + meltfptr[11] = /*_._IFELSE___V14*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4500:/ clear"); - /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_A__L5*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V14*/ meltfptr[10] = 0 ; + /*clear*/ /*_._IFELSE___V14*/ + meltfptr[10] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32564,10 +35846,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L6*/ meltfnum[1] = + /*_#IS_STRING__L6*/ + meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.OUTARG__V10*/ meltfptr[9])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:4502:/ cond"); - /*cond*/ if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L6*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32580,11 +35864,13 @@ meltlab_endgetargs: melt_string_str ((melt_ptr_t)(/*_.OUTARG__V10*/ meltfptr[9])), ( ".cc"))) ;; /*^compute*/ - /*_.BASNAM__V17*/ meltfptr[10] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[17];; + /*_.BASNAM__V17*/ + meltfptr[10] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4502:/ clear"); - /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ meltfptr[17] = 0 ; + /*clear*/ /*_.MAKE_STRING_WITHOUT_SUFFIX__V18*/ + meltfptr[17] = 0 ; } ; } @@ -32598,10 +35884,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L7*/ meltfnum[0] = + /*_#IS_STRING__L7*/ + meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-modes.melt:4505:/ cond"); - /*cond*/ if (/*_#IS_STRING__L7*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#IS_STRING__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32611,13 +35899,16 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_SUFFIXED__L8*/ meltfnum[7] = + /*_#STRING_SUFFIXED__L8*/ + meltfnum[7] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.INARG__V9*/ meltfptr[8], ".melt"));; /*^compute*/ - /*_#NOT__L9*/ meltfnum[8] = + /*_#NOT__L9*/ + meltfnum[8] = (!(/*_#STRING_SUFFIXED__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-modes.melt:4506:/ cond"); - /*cond*/ if (/*_#NOT__L9*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#NOT__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32636,25 +35927,32 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[19] = + /*_.MAKE_STRING_NAKEDBASENAME__V20*/ + meltfptr[19] = (meltgc_new_string_nakedbasename((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[3])), melt_string_str((melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]))));; MELT_LOCATION("warmelt-modes.melt:4505:/ quasiblock"); - /*_.PROGN___V21*/ meltfptr[20] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[19];; + /*_.PROGN___V21*/ + meltfptr[20] = /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[19];; /*^compute*/ - /*_._IFELSE___V19*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];; + /*_._IFELSE___V19*/ + meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4505:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L8*/ meltfnum[7] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L8*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L9*/ meltfnum[8] = 0 ; + /*clear*/ /*_#NOT__L9*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/ meltfptr[19] = 0 ; + /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V20*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ; + /*clear*/ /*_.PROGN___V21*/ + meltfptr[20] = 0 ; } ; } @@ -32679,13 +35977,15 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.INARG__V9*/ meltfptr[8]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OUTARG__V10*/ meltfptr[9]; - /*_.ERROR_AT__V22*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V22*/ + meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4513:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:4513:/ locexp"); @@ -32700,32 +36000,41 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-modes.melt:4510:/ quasiblock"); - /*_.PROGN___V24*/ meltfptr[23] = /*_.RETURN___V23*/ meltfptr[20];; + /*_.PROGN___V24*/ + meltfptr[23] = /*_.RETURN___V23*/ meltfptr[20];; /*^compute*/ - /*_._IFELSE___V19*/ meltfptr[17] = /*_.PROGN___V24*/ meltfptr[23];; + /*_._IFELSE___V19*/ + meltfptr[17] = /*_.PROGN___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4505:/ clear"); - /*clear*/ /*_.ERROR_AT__V22*/ meltfptr[19] = 0 ; + /*clear*/ /*_.ERROR_AT__V22*/ + meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V23*/ meltfptr[20] = 0 ; + /*clear*/ /*_.RETURN___V23*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V24*/ meltfptr[23] = 0 ; + /*clear*/ /*_.PROGN___V24*/ + meltfptr[23] = 0 ; } ; } ; - /*_.BASNAM__V17*/ meltfptr[10] = /*_._IFELSE___V19*/ meltfptr[17];; + /*_.BASNAM__V17*/ + meltfptr[10] = /*_._IFELSE___V19*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4502:/ clear"); - /*clear*/ /*_#IS_STRING__L7*/ meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L7*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V19*/ meltfptr[17] = 0 ; + /*clear*/ /*_._IFELSE___V19*/ + meltfptr[17] = 0 ; } ; } @@ -32750,7 +36059,8 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[7] = + /*_#MELT_NEED_DBG__L10*/ + meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -32759,7 +36069,8 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ;; MELT_LOCATION("warmelt-modes.melt:4516:/ cond"); - /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#MELT_NEED_DBG__L10*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32792,16 +36103,20 @@ meltlab_endgetargs: argtab[3].meltbp_cstring = "translatefile_mode basnam"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V17*/ meltfptr[10]; - /*_.MELT_DEBUG_FUN__V26*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V25*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[20];; + /*_._IF___V25*/ + meltfptr[19] = /*_.MELT_DEBUG_FUN__V26*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4516:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V26*/ + meltfptr[20] = 0 ; } ; } @@ -32814,7 +36129,8 @@ meltlab_endgetargs: { MELT_LOCATION("warmelt-modes.melt:4516:/ locexp"); - /*void*/(void)0; + /*void*/ + (void)0; } ; /*^quasiblock*/ @@ -32823,9 +36139,11 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V25*/ meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V25*/ + meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -32848,11 +36166,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0] = + /*_#STRING_DYNLOADED_SUFFIXED__L12*/ + meltfnum[0] = /*string_dynloaded_suffixed:*/ (melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], MELT_DYNLOADED_SUFFIX));; MELT_LOCATION("warmelt-modes.melt:4517:/ cond"); - /*cond*/ if (/*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0]) /*then*/ + /*cond*/ + if (/*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_#OR___L13*/ meltfnum[8] = /*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0];; @@ -32868,7 +36188,8 @@ meltlab_endgetargs: /*_#STRING_SUFFIXED__L14*/ meltfnum[7] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".melt"));; MELT_LOCATION("warmelt-modes.melt:4517:/ cond"); - /*cond*/ if (/*_#STRING_SUFFIXED__L14*/ meltfnum[7]) /*then*/ + /*cond*/ + if (/*_#STRING_SUFFIXED__L14*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_#OR___L15*/ meltfnum[14] = /*_#STRING_SUFFIXED__L14*/ meltfnum[7];; @@ -32884,7 +36205,8 @@ meltlab_endgetargs: /*_#STRING_SUFFIXED__L16*/ meltfnum[15] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".o"));; MELT_LOCATION("warmelt-modes.melt:4517:/ cond"); - /*cond*/ if (/*_#STRING_SUFFIXED__L16*/ meltfnum[15]) /*then*/ + /*cond*/ + if (/*_#STRING_SUFFIXED__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*_#OR___L17*/ meltfnum[16] = /*_#STRING_SUFFIXED__L16*/ meltfnum[15];; @@ -32900,7 +36222,8 @@ meltlab_endgetargs: /*_#STRING_SUFFIXED__L18*/ meltfnum[17] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".c"));; MELT_LOCATION("warmelt-modes.melt:4517:/ cond"); - /*cond*/ if (/*_#STRING_SUFFIXED__L18*/ meltfnum[17]) /*then*/ + /*cond*/ + if (/*_#STRING_SUFFIXED__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*_#OR___L19*/ meltfnum[18] = /*_#STRING_SUFFIXED__L18*/ meltfnum[17];; @@ -32916,50 +36239,62 @@ meltlab_endgetargs: /*_#STRING_SUFFIXED__L20*/ meltfnum[19] = /*string_suffixed:*/(melt_string_is_ending ((melt_ptr_t)/*_.BASNAM__V17*/ meltfptr[10], ".cc"));; /*^compute*/ - /*_#OR___L19*/ meltfnum[18] = /*_#STRING_SUFFIXED__L20*/ meltfnum[19];; + /*_#OR___L19*/ + meltfnum[18] = /*_#STRING_SUFFIXED__L20*/ meltfnum[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4517:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L20*/ meltfnum[19] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L20*/ + meltfnum[19] = 0 ; } ; } ; - /*_#OR___L17*/ meltfnum[16] = /*_#OR___L19*/ meltfnum[18];; + /*_#OR___L17*/ + meltfnum[16] = /*_#OR___L19*/ meltfnum[18];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4517:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L18*/ meltfnum[17] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L18*/ + meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L19*/ meltfnum[18] = 0 ; + /*clear*/ /*_#OR___L19*/ + meltfnum[18] = 0 ; } ; } ; - /*_#OR___L15*/ meltfnum[14] = /*_#OR___L17*/ meltfnum[16];; + /*_#OR___L15*/ + meltfnum[14] = /*_#OR___L17*/ meltfnum[16];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4517:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L16*/ meltfnum[15] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L16*/ + meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L17*/ meltfnum[16] = 0 ; + /*clear*/ /*_#OR___L17*/ + meltfnum[16] = 0 ; } ; } ; - /*_#OR___L13*/ meltfnum[8] = /*_#OR___L15*/ meltfnum[14];; + /*_#OR___L13*/ + meltfnum[8] = /*_#OR___L15*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4517:/ clear"); - /*clear*/ /*_#STRING_SUFFIXED__L14*/ meltfnum[7] = 0 ; + /*clear*/ /*_#STRING_SUFFIXED__L14*/ + meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L15*/ meltfnum[14] = 0 ; + /*clear*/ /*_#OR___L15*/ + meltfnum[14] = 0 ; } ; } ; /*^cond*/ - /*cond*/ if (/*_#OR___L13*/ meltfnum[8]) /*then*/ + /*cond*/ + if (/*_#OR___L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -32978,13 +36313,15 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "tranlatefile mode needs a base name $1 without suffix"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V17*/ meltfptr[10]; - /*_.ERROR_AT__V28*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V28*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[6])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-modes.melt:4525:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ + meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-modes.melt:4525:/ locexp"); @@ -32999,21 +36336,27 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; MELT_LOCATION("warmelt-modes.melt:4522:/ quasiblock"); - /*_.PROGN___V30*/ meltfptr[19] = /*_.RETURN___V29*/ meltfptr[20];; + /*_.PROGN___V30*/ + meltfptr[19] = /*_.RETURN___V29*/ meltfptr[20];; /*^compute*/ - /*_._IF___V27*/ meltfptr[23] = /*_.PROGN___V30*/ meltfptr[19];; + /*_._IF___V27*/ + meltfptr[23] = /*_.PROGN___V30*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-modes.melt:4517:/ clear"); - /*clear*/ /*_.ERROR_AT__V28*/ meltfptr[17] = 0 ; + /*clear*/ /*_.ERROR_AT__V28*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V29*/ meltfptr[20] = 0 ; + /*clear*/ /*_.RETURN___V29*/ + meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V30*/ meltfptr[19] = 0 ; + /*clear*/ /*_.PROGN___V30*/ + meltfptr[19] = 0 ; } ; } @@ -33035,7 +36378,8 @@ meltlab_endgetargs: argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.BASNAM__V17*/ meltfptr[10]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CURENV__V8*/ meltfptr[7]; - /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V31*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V31*/ + meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.INARG__V9*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -33044,7 +36388,8 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-modes.melt:4528:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = (/*!konst_8_TRUE*/ meltfrout->tabval[8]);; + /*_._RETVAL___V1*/ + meltfptr[0] = (/*!konst_8_TRUE*/ meltfrout->tabval[8]);; { MELT_LOCATION("warmelt-modes.melt:4528:/ locexp"); @@ -33059,48 +36404,67 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; - /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V32*/ meltfptr[20];; + /*finalret*/ + goto meltlabend_rout ; + /*_.LET___V16*/ + meltfptr[14] = /*_.RETURN___V32*/ meltfptr[20];; MELT_LOCATION("warmelt-modes.melt:4501:/ clear"); - /*clear*/ /*_#IS_STRING__L6*/ meltfnum[1] = 0 ; + /*clear*/ /*_#IS_STRING__L6*/ + meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.BASNAM__V17*/ meltfptr[10] = 0 ; + /*clear*/ /*_.BASNAM__V17*/ + meltfptr[10] = 0 ; /*^clear*/ - /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L12*/ meltfnum[0] = 0 ; + /*clear*/ /*_#STRING_DYNLOADED_SUFFIXED__L12*/ + meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L13*/ meltfnum[8] = 0 ; + /*clear*/ /*_#OR___L13*/ + meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V27*/ meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V27*/ + meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V31*/ meltfptr[17] = 0 ; + /*clear*/ /*_.TRANSLATE_TO_CC_MODULE_MELT_SOURCES__V31*/ + meltfptr[17] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V32*/ meltfptr[20] = 0 ; - /*_.LET___V6*/ meltfptr[4] = /*_.LET___V16*/ meltfptr[14];; + /*clear*/ /*_.RETURN___V32*/ + meltfptr[20] = 0 ; + /*_.LET___V6*/ + meltfptr[4] = /*_.LET___V16*/ meltfptr[14];; MELT_LOCATION("warmelt-modes.melt:4491:/ clear"); - /*clear*/ /*_.PARMODENV__V7*/ meltfptr[3] = 0 ; + /*clear*/ /*_.PARMODENV__V7*/ + meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_.CURENV__V8*/ meltfptr[7] = 0 ; + /*clear*/ /*_.CURENV__V8*/ + meltfptr[7] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o0 = 0 ; /*^clear*/ - /*clear*/ /*_.INARG__V9*/ meltfptr[8] = 0 ; + /*clear*/ /*_.INARG__V9*/ + meltfptr[8] = 0 ; /*^clear*/ - /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o1 = 0 ; + /*clear*/ /*_?*/ + meltfram__.loc_CSTRING__o1 = 0 ; /*^clear*/ - /*clear*/ /*_.OUTARG__V10*/ meltfptr[9] = 0 ; + /*clear*/ /*_.OUTARG__V10*/ + meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; + /*clear*/ /*_.IFCPP___V13*/ + meltfptr[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V16*/ meltfptr[14] = 0 ; + /*clear*/ /*_.LET___V16*/ + meltfptr[14] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-modes.melt:4488:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; + /*_._RETVAL___V1*/ + meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-modes.melt:4488:/ locexp"); @@ -33115,11 +36479,13 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ goto meltlabend_rout ; + /*finalret*/ + goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.LET___V6*/ meltfptr[4] = 0 ; + /*clear*/ /*_.LET___V6*/ + meltfptr[4] = 0 ; } ; |