diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-outobj.0+02.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-outobj.0+02.c | 2245 |
1 files changed, 1125 insertions, 1120 deletions
diff --git a/gcc/melt/generated/warmelt-outobj.0+02.c b/gcc/melt/generated/warmelt-outobj.0+02.c index 3a0e67a2269..fa4a93ab86b 100644 --- a/gcc/melt/generated/warmelt-outobj.0+02.c +++ b/gcc/melt/generated/warmelt-outobj.0+02.c @@ -869,7 +869,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_167_warmelt_outobj_RUNTYPESUPPORT_FOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_168_warmelt_outobj_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_168_warmelt_outobj_RUNTYPESUPPORT_SCANFORW(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); + + + + +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_169_warmelt_outobj_RUNTYPESUPPORT_DOCMD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt (void*); @@ -945,22 +950,22 @@ melt_trace_start("OUTPUCOD_OBJMULTIALLOCBLOCK", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -981,14 +986,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiallocblock oblo"; + argtab[0].meltbp_cstring = "outpucod_objmultiallocblock oblo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1790; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1790; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; @@ -1111,12 +1116,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "blockmultialloc"; - /*_.OUTPUT_LOCATION__V19*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "blockmultialloc"; + /*_.OUTPUT_LOCATION__V19*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -1132,14 +1137,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiallocblock oallstruct"; + argtab[0].meltbp_cstring = "outpucod_objmultiallocblock oallstruct"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1805; - /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OALLSTRUCT__V10*/ meltfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1805; + /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OALLSTRUCT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V20*/ meltfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ meltfptr[20];; @@ -1250,14 +1255,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiallocblock curstru declare"; + argtab[0].meltbp_cstring = "outpucod_objmultiallocblock curstru declare"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1815; - /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTRU__V24*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1815; + /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTRU__V24*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; @@ -1330,8 +1335,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; - /*_.OUTPUT_C_DECLINIT__V29*/ meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V24*/ meltfptr[22]), (melt_ptr_t)((/*!OUTPUT_C_DECLINIT*/ meltfrout->tabval[7])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + /*_.OUTPUT_C_DECLINIT__V29*/ meltfptr[27] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V24*/ meltfptr[22]), (melt_ptr_t)((/*!OUTPUT_C_DECLINIT*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; if (/*_#STRIX__L7*/ meltfnum[4]<0) break; @@ -1420,12 +1425,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "blockmultialloc.initfill"; - /*_.OUTPUT_LOCATION__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "blockmultialloc.initfill"; + /*_.OUTPUT_LOCATION__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -1451,14 +1456,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiallocblock curstru initfill"; + argtab[0].meltbp_cstring = "outpucod_objmultiallocblock curstru initfill"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1838; - /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTRU__V31*/ meltfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1838; + /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTRU__V31*/ meltfptr[30]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[31] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[32];; @@ -1479,12 +1484,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.ONAMEPTR__V18*/ meltfptr[15]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ONAMEPTR__V18*/ meltfptr[15]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTHP1__L4*/ meltfnum[1]; - /*_.OUTPUT_C_INITIAL_FILL__V34*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V31*/ meltfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_INITIAL_FILL*/ meltfrout->tabval[8])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTHP1__L4*/ meltfnum[1]; + /*_.OUTPUT_C_INITIAL_FILL__V34*/ meltfptr[32] = meltgc_send((melt_ptr_t)(/*_.CURSTRU__V31*/ meltfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_INITIAL_FILL*/ meltfrout->tabval[8])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -1519,12 +1524,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V14*/ meltfptr[13]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.BODYL__V13*/ meltfptr[12]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V14*/ meltfptr[13]; + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.BODYL__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V35*/ meltfptr[34] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V36*/ meltfptr[35];; @@ -1565,12 +1570,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V14*/ meltfptr[13]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V14*/ meltfptr[13]; + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1847:/ quasiblock"); @@ -1728,22 +1733,22 @@ melt_trace_start("OUTPUCOD_OBJCITERBLOCK", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -1811,14 +1816,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objciterblock obcit"; + argtab[0].meltbp_cstring = "outpucod_objciterblock obcit"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1862; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1862; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBCIT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -1919,8 +1924,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "citerblock"; - /*_.OUTPUT_LOCATION__V18*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_cstring = "citerblock"; + /*_.OUTPUT_LOCATION__V18*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -1952,8 +1957,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "citerbefore"; - /*_.OUTPUT_LOCATION__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_cstring = "citerbefore"; + /*_.OUTPUT_LOCATION__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1880:/ quasiblock"); @@ -1987,8 +1992,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ meltfptr[20]; - /*_.MULTIPLE_EVERY__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OBEFORE__V13*/ meltfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ meltfptr[20]; + /*_.MULTIPLE_EVERY__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OBEFORE__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2001,8 +2006,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "citerbody"; - /*_.OUTPUT_LOCATION__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_cstring = "citerbody"; + /*_.OUTPUT_LOCATION__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#IS_LIST__L6*/ meltfnum[4] = @@ -2018,12 +2023,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ meltfptr[11]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BODYL__V10*/ meltfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ meltfptr[11]; + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BODYL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V25*/ meltfptr[24] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ meltfptr[25];; @@ -2047,8 +2052,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "citerafter"; - /*_.OUTPUT_LOCATION__V27*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_cstring = "citerafter"; + /*_.OUTPUT_LOCATION__V27*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1891:/ quasiblock"); @@ -2082,8 +2087,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[27]; - /*_.MULTIPLE_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OAFTER__V14*/ meltfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[27]; + /*_.MULTIPLE_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OAFTER__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -2096,8 +2101,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "citerepil"; - /*_.OUTPUT_LOCATION__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_cstring = "citerepil"; + /*_.OUTPUT_LOCATION__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#IS_LIST__L7*/ meltfnum[6] = @@ -2125,12 +2130,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ meltfptr[11]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.EPIL__V11*/ meltfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V12*/ meltfptr[11]; + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.EPIL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1897:/ quasiblock"); @@ -2302,8 +2307,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#IX__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -2318,12 +2323,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L2*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.OBEF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L2*/ meltfnum[1]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.OBEF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1880:/ quasiblock"); @@ -2408,8 +2413,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#IX__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#IX__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -2424,12 +2429,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L2*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.OAFT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L2*/ meltfnum[1]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.OAFT__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1891:/ quasiblock"); @@ -2514,22 +2519,22 @@ melt_trace_start("OUTPUCOD_OBJCOMMENTINSTR", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -2621,12 +2626,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "comment"; - /*_.OUTPUT_LOCATION__V13*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "comment"; + /*_.OUTPUT_LOCATION__V13*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -2733,22 +2738,22 @@ melt_trace_start("OUTPUCOD_OBJCOMMENTEDBLOCK", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -2816,14 +2821,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objblock oblo"; + argtab[0].meltbp_cstring = "outpucod_objblock oblo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1931; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1931; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -2848,12 +2853,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "block"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "block"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1933:/ quasiblock"); @@ -2926,12 +2931,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V19*/ meltfptr[16] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ meltfptr[19];; @@ -2982,12 +2987,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^apply.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; - /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.BOXDEPTHP1__V13*/ meltfptr[12]; + /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1948:/ quasiblock"); @@ -3072,14 +3077,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objcommentedblock done oblo"; + argtab[0].meltbp_cstring = "outpucod_objcommentedblock done oblo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1960; - /*_.DEBUG_MSG_FUN__V25*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1960; + /*_.DEBUG_MSG_FUN__V25*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[22];; @@ -3183,22 +3188,22 @@ melt_trace_start("OUTPUCOD_OBJLABELINSTR", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -3266,14 +3271,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objlabelinstr oblab"; + argtab[0].meltbp_cstring = "outpucod_objlabelinstr oblab"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1969; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1969; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLAB__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -3363,12 +3368,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "objlabel"; - /*_.OUTPUT_LOCATION__V13*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V12*/ meltfptr[10]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "objlabel"; + /*_.OUTPUT_LOCATION__V13*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V12*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:1967:/ quasiblock"); @@ -3459,22 +3464,22 @@ melt_trace_start("OUTPUCOD_OBJGOTOINSTR", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -3542,14 +3547,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objgotoinstr"; + argtab[0].meltbp_cstring = "outpucod_objgotoinstr"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 1987; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBGOTO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 1987; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBGOTO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -3574,12 +3579,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "objgoto"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "objgoto"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBI_LOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -3717,8 +3722,8 @@ melt_trace_start("ADD2SBUF_CLONSYM", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.CSY__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.CSY__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.CSY__V3*/ meltfptr[2])) != NULL); ; @@ -3933,22 +3938,22 @@ melt_trace_start("OUTPUCOD_OBJLOOP", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -4016,14 +4021,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objloop oblo"; + argtab[0].meltbp_cstring = "outpucod_objloop oblo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2014; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2014; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -4116,12 +4121,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "loop"; - /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "loop"; + /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4134,8 +4139,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10]; - /*_.ADD2SBUF_CLONSYM__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10]; + /*_.ADD2SBUF_CLONSYM__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4156,12 +4161,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "loopbody"; - /*_.OUTPUT_LOCATION__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "loopbody"; + /*_.OUTPUT_LOCATION__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#I__L7*/ meltfnum[6] = @@ -4202,8 +4207,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ meltfptr[19]; - /*_.LIST_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V9*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ meltfptr[19]; + /*_.LIST_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.BODYL__V9*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2027:/ quasiblock"); @@ -4253,8 +4258,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10]; - /*_.ADD2SBUF_CLONSYM__V24*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10]; + /*_.ADD2SBUF_CLONSYM__V24*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4279,8 +4284,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10]; - /*_.ADD2SBUF_CLONSYM__V25*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAB__V11*/ meltfptr[10]; + /*_.ADD2SBUF_CLONSYM__V25*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -4301,12 +4306,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "loopepilog"; - /*_.OUTPUT_LOCATION__V27*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "loopepilog"; + /*_.OUTPUT_LOCATION__V27*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -4352,8 +4357,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[27]; - /*_.LIST_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V10*/ meltfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[27]; + /*_.LIST_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.EPIL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2048:/ quasiblock"); @@ -4439,14 +4444,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objloop done oblo"; + argtab[0].meltbp_cstring = "outpucod_objloop done oblo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2063; - /*_.DEBUG_MSG_FUN__V33*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2063; + /*_.DEBUG_MSG_FUN__V33*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[27];; @@ -4593,12 +4598,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[2]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[2]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTHP1__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTHP1__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURBODY__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V3*/ meltfptr[2] = /*_.OUTPUT_C_CODE__V4*/ meltfptr[3];; @@ -4747,12 +4752,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[2]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[2]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTHP1__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CUREPIL__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTHP1__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V4*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CUREPIL__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V3*/ meltfptr[2] = /*_.OUTPUT_C_CODE__V4*/ meltfptr[3];; @@ -4854,22 +4859,22 @@ melt_trace_start("OUTPUCOD_OBJEXIT", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -4937,14 +4942,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objexit obxi"; + argtab[0].meltbp_cstring = "outpucod_objexit obxi"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2071; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBXI__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2071; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBXI__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -5023,12 +5028,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "exit"; - /*_.OUTPUT_LOCATION__V13*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LOC__V10*/ meltfptr[9]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "exit"; + /*_.OUTPUT_LOCATION__V13*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LOC__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -5051,8 +5056,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ meltfptr[7]; - /*_.ADD2SBUF_CLONSYM__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.OLAB__V9*/ meltfptr[7]; + /*_.ADD2SBUF_CLONSYM__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -5151,22 +5156,22 @@ melt_trace_start("OUTPUCOD_OBJCOMPUTE", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -5255,14 +5260,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objcompute obcomp"; + argtab[0].meltbp_cstring = "outpucod_objcompute obcomp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2094; - /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBCOMP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2094; + /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBCOMP__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; @@ -5283,12 +5288,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "compute"; - /*_.OUTPUT_LOCATION__V13*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V8*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "compute"; + /*_.OUTPUT_LOCATION__V13*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#IS_LIST__L5*/ meltfnum[3] = @@ -5330,8 +5335,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V15*/ meltfptr[14]; - /*_.LIST_EVERY__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CDEST__V7*/ meltfptr[5]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V15*/ meltfptr[14]; + /*_.LIST_EVERY__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CDEST__V7*/ meltfptr[5]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V14*/ meltfptr[13] = /*_.LIST_EVERY__V17*/ meltfptr[16];; @@ -5414,8 +5419,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ meltfptr[16]; - /*_.LIST_EVERY__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CEXP__V9*/ meltfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ meltfptr[16]; + /*_.LIST_EVERY__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CEXP__V9*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2103:/ quasiblock"); @@ -5508,8 +5513,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ meltfptr[20]; - /*_.MULTIPLE_EVERY__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.CEXP__V9*/ meltfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ meltfptr[20]; + /*_.MULTIPLE_EVERY__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.CEXP__V9*/ meltfptr[8]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2110:/ quasiblock"); @@ -5544,12 +5549,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L14*/ meltfnum[12]; - /*_.OUTPUT_C_CODE__V28*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.CEXP__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L14*/ meltfnum[12]; + /*_.OUTPUT_C_CODE__V28*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.CEXP__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[12])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2117:/ quasiblock"); @@ -5692,12 +5697,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.DESTCUR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.DESTCUR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -5805,12 +5810,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2108:/ quasiblock"); @@ -5906,12 +5911,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.EXPCUR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2115:/ quasiblock"); @@ -5996,22 +6001,22 @@ melt_trace_start("OUTPUCOD_OBJCOND", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -6079,14 +6084,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objcond ocond"; + argtab[0].meltbp_cstring = "outpucod_objcond ocond"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2128; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2128; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -6173,12 +6178,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "cond"; - /*_.OUTPUT_LOCATION__V15*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "cond"; + /*_.OUTPUT_LOCATION__V15*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6193,12 +6198,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L5*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.CTEST__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L5*/ meltfnum[1]; + /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.CTEST__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -6249,12 +6254,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "cond.then"; - /*_.OUTPUT_LOCATION__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "cond.then"; + /*_.OUTPUT_LOCATION__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#I__L9*/ meltfnum[6] = @@ -6264,12 +6269,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L9*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L9*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -6339,12 +6344,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "cond.else"; - /*_.OUTPUT_LOCATION__V19*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "cond.else"; + /*_.OUTPUT_LOCATION__V19*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#I__L13*/ meltfnum[6] = @@ -6361,12 +6366,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L14*/ meltfnum[11]; - /*_.OUTPUT_C_CODE__V20*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L14*/ meltfnum[11]; + /*_.OUTPUT_C_CODE__V20*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -6456,14 +6461,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objcond end ocond"; + argtab[0].meltbp_cstring = "outpucod_objcond end ocond"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[6]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[6]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2162; - /*_.DEBUG_MSG_FUN__V22*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2162; + /*_.DEBUG_MSG_FUN__V22*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OCOND__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[17];; @@ -6563,22 +6568,22 @@ melt_trace_start("OUTPUCOD_OBJCPPIF", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -6646,14 +6651,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objcppif opif"; + argtab[0].meltbp_cstring = "outpucod_objcppif opif"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2170; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2170; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPIF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -6742,12 +6747,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "cppif"; - /*_.OUTPUT_RAW_LOCATION__V15*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "cppif"; + /*_.OUTPUT_RAW_LOCATION__V15*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -6770,12 +6775,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "cppif.then"; - /*_.OUTPUT_LOCATION__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "cppif.then"; + /*_.OUTPUT_LOCATION__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2183:/ msend"); @@ -6783,12 +6788,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTHP1__L4*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTHP1__L4*/ meltfnum[1]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.CTHEN__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -6821,12 +6826,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "cppif.else"; - /*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "cppif.else"; + /*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2190:/ msend"); @@ -6834,12 +6839,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTHP1__L4*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTHP1__L4*/ meltfnum[1]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.CELSE__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -6965,22 +6970,22 @@ melt_trace_start("OUTPUCOD_OBJINTERNSYMBOL", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -7048,14 +7053,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objinternsymbol oisy"; + argtab[0].meltbp_cstring = "outpucod_objinternsymbol oisy"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2202; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OISY__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2202; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OISY__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -7217,12 +7222,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = 1; + argtab[1].meltbp_long = 1; /*^apply.arg*/ - argtab[2].bp_cstring = "internsymbol"; - /*_.OUTPUT_LOCATION__V20*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ meltfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "internsymbol"; + /*_.OUTPUT_LOCATION__V20*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7255,12 +7260,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -7370,22 +7375,22 @@ melt_trace_start("OUTPUCOD_OBJINTERNKEYWORD", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -7453,14 +7458,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objinternkeyword oikw"; + argtab[0].meltbp_cstring = "outpucod_objinternkeyword oikw"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2226; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OIKW__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2226; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OIKW__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -7575,12 +7580,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "internkeyword"; - /*_.OUTPUT_LOCATION__V18*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IFELSE___V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "internkeyword"; + /*_.OUTPUT_LOCATION__V18*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.IFELSE___V16*/ meltfptr[15]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -7613,12 +7618,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -7726,22 +7731,22 @@ melt_trace_start("OUTPUCOD_OBJGETNAMEDSYMBOL", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -7809,14 +7814,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objgetnamedsymbol ogsy"; + argtab[0].meltbp_cstring = "outpucod_objgetnamedsymbol ogsy"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2249; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OGSY__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2249; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OGSY__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -7978,12 +7983,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "getnamedsymbol"; - /*_.OUTPUT_LOCATION__V20*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ meltfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "getnamedsymbol"; + /*_.OUTPUT_LOCATION__V20*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -8062,12 +8067,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L7*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L7*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -8089,12 +8094,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L9*/ meltfnum[8]; - /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L9*/ meltfnum[8]; + /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -8225,22 +8230,22 @@ melt_trace_start("OUTPUCOD_OBJGETNAMEDKEYWORD", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -8308,14 +8313,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objgetnamedkeyword ogkw"; + argtab[0].meltbp_cstring = "outpucod_objgetnamedkeyword ogkw"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2287; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OGKW__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2287; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OGKW__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -8477,12 +8482,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "getnamedkeyword"; - /*_.OUTPUT_LOCATION__V20*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ meltfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "getnamedkeyword"; + /*_.OUTPUT_LOCATION__V20*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.IFELSE___V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -8561,12 +8566,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L7*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L7*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OILOCV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -8691,22 +8696,22 @@ melt_trace_start("OUTPUCOD_OBJAPPLY", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -8774,14 +8779,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objapply oapp"; + argtab[0].meltbp_cstring = "outpucod_objapply oapp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2322; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2322; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -8835,12 +8840,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "apply"; - /*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "apply"; + /*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -8942,8 +8947,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ meltfptr[16]; - /*_.MULTIPLE_EVERY__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V17*/ meltfptr[16]; + /*_.MULTIPLE_EVERY__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2336:/ quasiblock"); @@ -9004,8 +9009,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ meltfptr[16]; - /*_.LIST_EVERY__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.ADEST__V10*/ meltfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ meltfptr[16]; + /*_.LIST_EVERY__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.ADEST__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9020,12 +9025,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L11*/ meltfnum[7]; - /*_.OUTPUT_C_CODE__V24*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L11*/ meltfnum[7]; + /*_.OUTPUT_C_CODE__V24*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -9047,12 +9052,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L12*/ meltfnum[8]; - /*_.OUTPUT_C_CODE__V27*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V26*/ meltfptr[25]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L12*/ meltfnum[8]; + /*_.OUTPUT_C_CODE__V27*/ meltfptr[26] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V26*/ meltfptr[25]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[18])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V25*/ meltfptr[24] = /*_.OUTPUT_C_CODE__V27*/ meltfptr[26];; @@ -9087,8 +9092,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[25]; - /*_.LIST_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ meltfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[25]; + /*_.LIST_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.PARAMDESCLIST__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9272,8 +9277,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -9294,14 +9299,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outputcod_objapply curarg"; + argtab[0].meltbp_cstring = "outputcod_objapply curarg"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2347; - /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2347; + /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; @@ -9388,8 +9393,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURCTYP__V7*/ meltfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURCTYP__V7*/ meltfptr[5] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -9405,14 +9410,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outputcod_objapply curctyp"; + argtab[0].meltbp_cstring = "outputcod_objapply curctyp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[3]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[3]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2351; - /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V7*/ meltfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2351; + /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V7*/ meltfptr[5]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; @@ -9484,12 +9489,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L8*/ meltfnum[3]; + argtab[1].meltbp_long = /*_#GET_INT__L8*/ meltfnum[3]; /*^apply.arg*/ - argtab[2].bp_cstring = "apply.arg"; - /*_.OUTPUT_LOCATION__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~ALOC*/ meltfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "apply.arg"; + /*_.OUTPUT_LOCATION__V12*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)((/*~ALOC*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -9531,7 +9536,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2359:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V14*/ meltfptr[13] = 0 ; /*epilog*/ @@ -9555,7 +9560,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2361:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = /*nil*/(melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = /*nil*/(melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V15*/ meltfptr[14] = 0 ; /*epilog*/ @@ -9577,7 +9582,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2363:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*) &"));} ; /*_#GET_INT__L13*/ meltfnum[12] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[2]))));; @@ -9586,12 +9591,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L13*/ meltfnum[12]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L13*/ meltfnum[12]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2362:/ quasiblock"); @@ -9636,12 +9641,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L14*/ meltfnum[12]; - /*_.OUTPUT_C_CODE__V20*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L14*/ meltfnum[12]; + /*_.OUTPUT_C_CODE__V20*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2366:/ quasiblock"); @@ -9810,12 +9815,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -9983,22 +9988,22 @@ melt_trace_start("OUTPUCOD_OBJMSEND", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -10019,14 +10024,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmsend omsend"; + argtab[0].meltbp_cstring = "outpucod_objmsend omsend"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2414; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2414; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OMSEND__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; @@ -10131,12 +10136,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "msend"; - /*_.OUTPUT_LOCATION__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "msend"; + /*_.OUTPUT_LOCATION__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -10216,14 +10221,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outputcod_objmsend curarg"; + argtab[0].meltbp_cstring = "outputcod_objmsend curarg"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2443; - /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2443; + /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; @@ -10247,8 +10252,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURCTYP__V20*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURCTYP__V20*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -10264,14 +10269,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outputcod_objmsend curctyp"; + argtab[0].meltbp_cstring = "outputcod_objmsend curctyp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2445; - /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V20*/ meltfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2445; + /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V20*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; @@ -10343,12 +10348,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L14*/ meltfnum[10]; + argtab[1].meltbp_long = /*_#GET_INT__L14*/ meltfnum[10]; /*^apply.arg*/ - argtab[2].bp_cstring = "ojbmsend.arg"; - /*_.OUTPUT_LOCATION__V25*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "ojbmsend.arg"; + /*_.OUTPUT_LOCATION__V25*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -10388,7 +10393,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2453:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "bp_aptr = (melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ; /*epilog*/ @@ -10412,7 +10417,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2456:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "bp_aptr = /*nil*/(melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = /*nil*/(melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V28*/ meltfptr[27] = 0 ; /*epilog*/ @@ -10434,7 +10439,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2459:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "bp_aptr = (melt_ptr_t*) &"));} + meltgc_add_strbuf((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3]), ( "meltbp_aptr = (melt_ptr_t*) &"));} ; /*_#GET_INT__L18*/ meltfnum[17] = (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V15*/ meltfptr[14])));; @@ -10443,12 +10448,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L18*/ meltfnum[17]; - /*_.OUTPUT_C_CODE__V30*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L18*/ meltfnum[17]; + /*_.OUTPUT_C_CODE__V30*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2458:/ quasiblock"); @@ -10546,12 +10551,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L21*/ meltfnum[17]; - /*_.OUTPUT_C_CODE__V35*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L21*/ meltfnum[17]; + /*_.OUTPUT_C_CODE__V35*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURARG__V17*/ meltfptr[16]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2462:/ quasiblock"); @@ -10666,12 +10671,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L23*/ meltfnum[17]; - /*_.OUTPUT_C_CODE__V39*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V38*/ meltfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L23*/ meltfnum[17]; + /*_.OUTPUT_C_CODE__V39*/ meltfptr[34] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V38*/ meltfptr[30]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -10705,14 +10710,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmsend orecv"; + argtab[0].meltbp_cstring = "outpucod_objmsend orecv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[16]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[16]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2479; - /*_.DEBUG_MSG_FUN__V41*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2479; + /*_.DEBUG_MSG_FUN__V41*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V40*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V41*/ meltfptr[28];; @@ -10741,14 +10746,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmsend oloc"; + argtab[0].meltbp_cstring = "outpucod_objmsend oloc"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[15]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[15]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2480; - /*_.DEBUG_MSG_FUN__V43*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2480; + /*_.DEBUG_MSG_FUN__V43*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V42*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[18];; @@ -10823,12 +10828,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L27*/ meltfnum[14]; - /*_.OUTPUT_C_CODE__V46*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L27*/ meltfnum[14]; + /*_.OUTPUT_C_CODE__V46*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -10843,12 +10848,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L28*/ meltfnum[19]; - /*_.OUTPUT_C_CODE__V47*/ meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L28*/ meltfnum[19]; + /*_.OUTPUT_C_CODE__V47*/ meltfptr[25] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[9])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -10875,8 +10880,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[26]; - /*_.LIST_EVERY__V50*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V48*/ meltfptr[26]; + /*_.LIST_EVERY__V50*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -11149,22 +11154,22 @@ melt_trace_start("OUTPUCOD_OBJMULTIAPPLY", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -11232,14 +11237,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiapply oapp"; + argtab[0].meltbp_cstring = "outpucod_objmultiapply oapp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2512; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2512; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OAPP__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -11399,12 +11404,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "multiapply"; - /*_.OUTPUT_LOCATION__V21*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multiapply"; + /*_.OUTPUT_LOCATION__V21*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -11576,8 +11581,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ meltfptr[22]; - /*_.MULTIPLE_EVERY__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ meltfptr[22]; + /*_.MULTIPLE_EVERY__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2551:/ quasiblock"); @@ -11668,8 +11673,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ meltfptr[22]; - /*_.MULTIPLE_EVERY__V29*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V27*/ meltfptr[22]; + /*_.MULTIPLE_EVERY__V29*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V12*/ meltfptr[11]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#GET_INT__L20*/ meltfnum[19] = @@ -11740,8 +11745,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ meltfptr[25]; - /*_.MULTIPLE_EVERY__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V31*/ meltfptr[25]; + /*_.MULTIPLE_EVERY__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2596:/ quasiblock"); @@ -11774,12 +11779,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L22*/ meltfnum[19]; + argtab[1].meltbp_long = /*_#GET_INT__L22*/ meltfnum[19]; /*^apply.arg*/ - argtab[2].bp_cstring = "multiapply.appl"; - /*_.OUTPUT_LOCATION__V35*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multiapply.appl"; + /*_.OUTPUT_LOCATION__V35*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ALOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2628:/ quasiblock"); @@ -11813,8 +11818,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ meltfptr[32]; - /*_.LIST_EVERY__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.ADEST__V10*/ meltfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V36*/ meltfptr[32]; + /*_.LIST_EVERY__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.ADEST__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -11829,12 +11834,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L23*/ meltfnum[22]; - /*_.OUTPUT_C_CODE__V39*/ meltfptr[38] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L23*/ meltfnum[22]; + /*_.OUTPUT_C_CODE__V39*/ meltfptr[38] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -11856,12 +11861,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L24*/ meltfnum[23]; - /*_.OUTPUT_C_CODE__V42*/ meltfptr[41] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V41*/ meltfptr[40]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L24*/ meltfnum[23]; + /*_.OUTPUT_C_CODE__V42*/ meltfptr[41] = meltgc_send((melt_ptr_t)(/*_.FIRSTARG__V41*/ meltfptr[40]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V40*/ meltfptr[39] = /*_.OUTPUT_C_CODE__V42*/ meltfptr[41];; @@ -11896,8 +11901,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ meltfptr[40]; - /*_.LIST_EVERY__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V43*/ meltfptr[40]; + /*_.LIST_EVERY__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -11955,8 +11960,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ meltfptr[45]; - /*_.LIST_EVERY__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V15*/ meltfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V46*/ meltfptr[45]; + /*_.LIST_EVERY__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12165,8 +12170,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -12182,8 +12187,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURCTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURCTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2559:/ getslot"); @@ -12271,8 +12276,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -12293,14 +12298,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiapply curarg"; + argtab[0].meltbp_cstring = "outpucod_objmultiapply curarg"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2568; - /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2568; + /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; @@ -12334,8 +12339,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURCTYP__V5*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURCTYP__V5*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12351,14 +12356,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiapply curctyp"; + argtab[0].meltbp_cstring = "outpucod_objmultiapply curctyp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2571; - /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2571; + /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V6*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6];; @@ -12430,12 +12435,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L6*/ meltfnum[3]; + argtab[1].meltbp_long = /*_#GET_INT__L6*/ meltfnum[3]; /*^apply.arg*/ - argtab[2].bp_cstring = "multiapply.arg"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ meltfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multiapply.arg"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12477,7 +12482,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2580:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; /*epilog*/ @@ -12499,7 +12504,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2582:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*) &"));} ; /*_#GET_INT__L10*/ meltfnum[9] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[2]))));; @@ -12508,12 +12513,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L10*/ meltfnum[9]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L10*/ meltfnum[9]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2581:/ quasiblock"); @@ -12558,12 +12563,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L11*/ meltfnum[9]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L11*/ meltfnum[9]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2585:/ quasiblock"); @@ -12700,8 +12705,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -12717,8 +12722,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURESTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURESTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -12734,14 +12739,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultiapply curestyp"; + argtab[0].meltbp_cstring = "outpucod_objmultiapply curestyp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2601; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2601; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; @@ -12813,12 +12818,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L4*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#GET_INT__L4*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "multiapply.xres"; - /*_.OUTPUT_LOCATION__V8*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ meltfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multiapply.xres"; + /*_.OUTPUT_LOCATION__V8*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~ALOC*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -12849,7 +12854,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2609:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ @@ -12871,7 +12876,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2611:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*) &"));} ; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[2]))));; @@ -12880,12 +12885,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L7*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L7*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2610:/ quasiblock"); @@ -12930,12 +12935,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L8*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L8*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2614:/ quasiblock"); @@ -13079,12 +13084,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -13337,22 +13342,22 @@ melt_trace_start("OUTPUCOD_OBJMULTIMSEND", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -13420,14 +13425,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultimsend omsnd"; + argtab[0].meltbp_cstring = "outpucod_objmultimsend omsnd"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2676; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2676; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OMSND__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -13497,12 +13502,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "multimsend"; - /*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multimsend"; + /*_.OUTPUT_LOCATION__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -13606,8 +13611,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ meltfptr[19]; - /*_.MULTIPLE_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ meltfptr[19]; + /*_.MULTIPLE_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2700:/ quasiblock"); @@ -13746,8 +13751,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ meltfptr[19]; - /*_.MULTIPLE_EVERY__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V13*/ meltfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ meltfptr[19]; + /*_.MULTIPLE_EVERY__V26*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OARGS__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#GET_INT__L17*/ meltfnum[16] = @@ -13816,8 +13821,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[22]; - /*_.MULTIPLE_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V28*/ meltfptr[22]; + /*_.MULTIPLE_EVERY__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OXRES__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2754:/ quasiblock"); @@ -13850,12 +13855,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L19*/ meltfnum[18]; + argtab[1].meltbp_long = /*_#GET_INT__L19*/ meltfnum[18]; /*^apply.arg*/ - argtab[2].bp_cstring = "multimsend.send"; - /*_.OUTPUT_LOCATION__V32*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multimsend.send"; + /*_.OUTPUT_LOCATION__V32*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2786:/ quasiblock"); @@ -13889,8 +13894,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ meltfptr[29]; - /*_.LIST_EVERY__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.ODEST__V10*/ meltfptr[9]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V33*/ meltfptr[29]; + /*_.LIST_EVERY__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.ODEST__V10*/ meltfptr[9]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -13905,12 +13910,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L20*/ meltfnum[19]; - /*_.OUTPUT_C_CODE__V36*/ meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L20*/ meltfnum[19]; + /*_.OUTPUT_C_CODE__V36*/ meltfptr[35] = meltgc_send((melt_ptr_t)(/*_.ORECV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -13925,12 +13930,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L21*/ meltfnum[20]; - /*_.OUTPUT_C_CODE__V37*/ meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L21*/ meltfnum[20]; + /*_.OUTPUT_C_CODE__V37*/ meltfptr[36] = meltgc_send((melt_ptr_t)(/*_.OSEL__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[25])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -13957,8 +13962,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ meltfptr[37]; - /*_.LIST_EVERY__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ meltfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ meltfptr[37]; + /*_.LIST_EVERY__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.PARAMDESCLIST__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14016,8 +14021,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V41*/ meltfptr[40]; - /*_.LIST_EVERY__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V16*/ meltfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V41*/ meltfptr[40]; + /*_.LIST_EVERY__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.RESDESCLIST__V16*/ meltfptr[15]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14228,8 +14233,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -14245,8 +14250,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURESTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURESTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2710:/ getslot"); @@ -14334,8 +14339,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -14356,14 +14361,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultimsend curarg"; + argtab[0].meltbp_cstring = "outpucod_objmultimsend curarg"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2727; - /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2727; + /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; @@ -14387,8 +14392,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURCTYP__V5*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURCTYP__V5*/ meltfptr[3] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[1])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14404,14 +14409,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultimsend curctyp"; + argtab[0].meltbp_cstring = "outpucod_objmultimsend curctyp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2729; - /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2729; + /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURCTYP__V5*/ meltfptr[3]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V6*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ meltfptr[6];; @@ -14483,12 +14488,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L5*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#GET_INT__L5*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "multimsend.arg"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ meltfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multimsend.arg"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14528,7 +14533,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2738:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; /*epilog*/ @@ -14550,7 +14555,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2740:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*) &"));} ; /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[2]))));; @@ -14559,12 +14564,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L8*/ meltfnum[7]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L8*/ meltfnum[7]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2739:/ quasiblock"); @@ -14609,12 +14614,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[4]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L9*/ meltfnum[7]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L9*/ meltfnum[7]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.CURARG__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2743:/ quasiblock"); @@ -14742,8 +14747,8 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; - /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].bp_long; + if (xargdescr_[0] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#CURANK__L1*/ meltfnum[0] = xargtab_[0].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -14759,8 +14764,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = /*nil*/(melt_ptr_t*)NULL; - /*_.CURESTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = /*nil*/(melt_ptr_t*)NULL; + /*_.CURESTYP__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!GET_CTYPE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -14776,14 +14781,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objmultimsend curestyp"; + argtab[0].meltbp_cstring = "outpucod_objmultimsend curestyp"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2759; - /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2759; + /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.CURESTYP__V3*/ meltfptr[2]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ meltfptr[4];; @@ -14855,12 +14860,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^apply.arg*/ - argtab[1].bp_long = /*_#GET_INT__L4*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#GET_INT__L4*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "multimsend.xres"; - /*_.OUTPUT_LOCATION__V8*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ meltfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "multimsend.xres"; + /*_.OUTPUT_LOCATION__V8*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~OLOC*/ meltfclos->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -14891,7 +14896,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2767:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*)NULL"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*)NULL"));} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ @@ -14913,7 +14918,7 @@ lab_endgetargs:; { MELT_LOCATION("warmelt-outobj.melt:2770:/ locexp"); - meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "bp_aptr = (melt_ptr_t*) &"));} + meltgc_add_strbuf((melt_ptr_t)((/*~IMPLBUF*/ meltfclos->tabval[1])), ( "meltbp_aptr = (melt_ptr_t*) &"));} ; /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[2]))));; @@ -14922,12 +14927,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L7*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L7*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2769:/ quasiblock"); @@ -14972,12 +14977,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[3]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L8*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L8*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.CURES__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2773:/ quasiblock"); @@ -15112,12 +15117,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.CURDEST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -15370,22 +15375,22 @@ melt_trace_start("OUTPUCOD_OBJCLEAR", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -15453,14 +15458,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objclear oclear"; + argtab[0].meltbp_cstring = "outpucod_objclear oclear"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2830; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2830; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OCLEAR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -15492,12 +15497,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "clear"; - /*_.OUTPUT_LOCATION__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "clear"; + /*_.OUTPUT_LOCATION__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -15512,12 +15517,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L4*/ meltfnum[1]; - /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.CVL__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L4*/ meltfnum[1]; + /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.CVL__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -15611,22 +15616,22 @@ melt_trace_start("OUTPUCOD_OBJRAWALLOCOBJ", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -15694,14 +15699,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objrawallocobj oralob"; + argtab[0].meltbp_cstring = "outpucod_objrawallocobj oralob"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2845; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ORALOB__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2845; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ORALOB__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -15798,12 +15803,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "rawallocobj"; - /*_.OUTPUT_LOCATION__V17*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "rawallocobj"; + /*_.OUTPUT_LOCATION__V17*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -15830,12 +15835,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L7*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.ICLASS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L7*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.ICLASS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -15850,12 +15855,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L8*/ meltfnum[7]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.ILEN__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L8*/ meltfnum[7]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.ILEN__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -15895,12 +15900,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L10*/ meltfnum[9]; - /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.DST__V21*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L10*/ meltfnum[9]; + /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.DST__V21*/ meltfptr[20]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -16046,22 +16051,22 @@ melt_trace_start("OUTPUCOD_OBJNEWCLOSURE", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -16129,14 +16134,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objnewclosure obnclo"; + argtab[0].meltbp_cstring = "outpucod_objnewclosure obnclo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2880; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBNCLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2880; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OBNCLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -16186,12 +16191,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "newclosure"; - /*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "newclosure"; + /*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -16230,8 +16235,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[15]; - /*_.LIST_EVERY__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.DESTLIST__V13*/ meltfptr[12]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[15]; + /*_.LIST_EVERY__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.DESTLIST__V13*/ meltfptr[12]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_#I__L5*/ meltfnum[4] = @@ -16253,12 +16258,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L6*/ meltfnum[5]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.ODISCR__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L6*/ meltfnum[5]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.ODISCR__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -16273,12 +16278,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L7*/ meltfnum[6]; - /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L7*/ meltfnum[6]; + /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -16293,12 +16298,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L8*/ meltfnum[7]; - /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OLEN__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L8*/ meltfnum[7]; + /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OLEN__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[7])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -16432,12 +16437,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -16520,22 +16525,22 @@ melt_trace_start("OUTPUCOD_OBJTOUCH", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -16610,12 +16615,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "touch"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ILOC__V7*/ meltfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "touch"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ILOC__V7*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:2915:/ cond"); @@ -16663,12 +16668,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.TOUCHED__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.TOUCHED__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -16765,22 +16770,22 @@ melt_trace_start("OUTPUCOD_OBJPUTUPLE", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -16848,14 +16853,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputuple optup"; + argtab[0].meltbp_cstring = "outpucod_objputuple optup"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 2935; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPTUP__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 2935; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPTUP__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -16908,9 +16913,9 @@ lab_endgetargs:; union meltparam_un restab[1]; memset(&restab, 0, sizeof(restab)); /*^multiapply.xres*/ - restab[0].bp_aptr = (melt_ptr_t*) &/*_.FILEV__V14*/ meltfptr[13]; + restab[0].meltbp_aptr = (melt_ptr_t*) &/*_.FILEV__V14*/ meltfptr[13]; /*^multiapply.appl*/ - /*_.LINEV__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!LINE_AND_FILE_OF_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (""), (union meltparam_un*)0, (BPARSTR_PTR ""), restab); + /*_.LINEV__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!LINE_AND_FILE_OF_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (""), (union meltparam_un*)0, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock*/ @@ -16921,12 +16926,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putuple"; - /*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putuple"; + /*_.OUTPUT_LOCATION__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17028,12 +17033,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17120,12 +17125,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17138,12 +17143,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17156,12 +17161,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17184,12 +17189,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OTUP__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17202,12 +17207,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17220,12 +17225,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OVAL__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OVAL__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17352,22 +17357,22 @@ melt_trace_start("OUTPUCOD_OBJPUTPAIRHEAD", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -17388,14 +17393,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputpairhead oput"; + argtab[0].meltbp_cstring = "outpucod_objputpairhead oput"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3005; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPUT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3005; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; @@ -17447,12 +17452,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putpairhead"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putpairhead"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17487,12 +17492,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17515,12 +17520,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17533,12 +17538,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OHEAD__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OHEAD__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17641,22 +17646,22 @@ melt_trace_start("OUTPUCOD_OBJPUTPAIRTAIL", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -17677,14 +17682,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputpairtail oput"; + argtab[0].meltbp_cstring = "outpucod_objputpairtail oput"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3030; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPUT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3030; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; @@ -17736,12 +17741,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putpairtail"; - /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putpairtail"; + /*_.OUTPUT_LOCATION__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -17776,12 +17781,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V11*/ meltfptr[10] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17804,12 +17809,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.OPAIR__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17822,12 +17827,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OTAIL__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OTAIL__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -17930,22 +17935,22 @@ melt_trace_start("OUTPUCOD_OBJPUTLIST", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -17966,14 +17971,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputlist oput"; + argtab[0].meltbp_cstring = "outpucod_objputlist oput"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3055; - /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPUT__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3055; + /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.OPUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; @@ -18037,12 +18042,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putlist"; - /*_.OUTPUT_LOCATION__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putlist"; + /*_.OUTPUT_LOCATION__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18065,12 +18070,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.OLIST__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V12*/ meltfptr[11] = meltgc_send((melt_ptr_t)(/*_.OLIST__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18093,12 +18098,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OLIST__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OLIST__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18111,12 +18116,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.OFIRST__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.OFIRST__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18139,12 +18144,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.OLIST__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.OLIST__V8*/ meltfptr[7]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18157,12 +18162,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OLAST__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OLAST__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18269,22 +18274,22 @@ melt_trace_start("OUTPUCOD_OBJGETSLOT", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -18424,14 +18429,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objgetslot ogsl"; + argtab[0].meltbp_cstring = "outpucod_objgetslot ogsl"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[3]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[3]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3093; - /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OGSL__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3093; + /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OGSL__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; @@ -18452,12 +18457,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "getslot"; - /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "getslot"; + /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.OLOC__V7*/ meltfptr[5]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -18482,12 +18487,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOBJ__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OOBJ__V9*/ meltfptr[8]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18552,8 +18557,8 @@ lab_endgetargs:; union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ meltfptr[18]; - /*_.LIST_EVERY__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.DESTLIST__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V19*/ meltfptr[18]; + /*_.LIST_EVERY__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!LIST_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.DESTLIST__V8*/ meltfptr[7]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -18681,12 +18686,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); + argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DECLBUF*/ meltfclos->tabval[0]); /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); + argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*~IMPLBUF*/ meltfclos->tabval[1]); /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#GET_INT__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#GET_INT__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V3*/ meltfptr[2] = meltgc_send((melt_ptr_t)(/*_.DST__V2*/ meltfptr[1]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[0])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -18769,22 +18774,22 @@ melt_trace_start("OUTPUCOD_OBJPUTSLOT", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -18852,14 +18857,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputslot opslo"; + argtab[0].meltbp_cstring = "outpucod_objputslot opslo"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3119; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPSLO__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3119; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPSLO__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -18956,12 +18961,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putslot"; - /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putslot"; + /*_.OUTPUT_LOCATION__V16*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ILOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -19053,12 +19058,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19089,12 +19094,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19107,12 +19112,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V21*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19127,12 +19132,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L9*/ meltfnum[8]; - /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ meltfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L9*/ meltfnum[8]; + /*_.OUTPUT_C_CODE__V22*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ meltfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19260,12 +19265,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V26*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V26*/ meltfptr[21] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19278,12 +19283,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V27*/ meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V27*/ meltfptr[22] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19296,12 +19301,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V28*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V28*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19324,12 +19329,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V29*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V29*/ meltfptr[20] = meltgc_send((melt_ptr_t)(/*_.ODATA__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19342,12 +19347,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V30*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V30*/ meltfptr[29] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19369,12 +19374,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#I__L13*/ meltfnum[12]; - /*_.OUTPUT_C_CODE__V31*/ meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ meltfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#I__L13*/ meltfnum[12]; + /*_.OUTPUT_C_CODE__V31*/ meltfptr[30] = meltgc_send((melt_ptr_t)(/*_.OVAL__V13*/ meltfptr[12]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[5])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19513,22 +19518,22 @@ melt_trace_start("OUTPUCOD_OBJPUTCLOSUROUT", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -19596,14 +19601,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputclosurout opclor"; + argtab[0].meltbp_cstring = "outpucod_objputclosurout opclor"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3193; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOR__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3193; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -19649,12 +19654,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putclosurout"; - /*_.OUTPUT_LOCATION__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putclosurout"; + /*_.OUTPUT_LOCATION__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -19697,12 +19702,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19735,12 +19740,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19763,12 +19768,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19781,12 +19786,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OROUT__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -19893,22 +19898,22 @@ melt_trace_start("OUTPUCOD_OBJPUTCLOSEDV", meltcallcount); /*getarg#1*/ /*^getarg*/ - if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; - /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.DECLBUF__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DECLBUF__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ - if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; - /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.IMPLBUF__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.IMPLBUF__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ - if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; - /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].bp_long; + if (xargdescr_[2] != MELTBPAR_LONG) goto lab_endgetargs; + /*_#DEPTH__L1*/ meltfnum[0] = xargtab_[2].meltbp_long; ; goto lab_endgetargs; lab_endgetargs:; @@ -19976,14 +19981,14 @@ lab_endgetargs:; union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_cstring = "outpucod_objputclosedv"; + argtab[0].meltbp_cstring = "outpucod_objputclosedv"; /*^apply.arg*/ - argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; + argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ - argtab[2].bp_cstring = "warmelt-outobj.melt"; + argtab[2].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ - argtab[3].bp_long = 3236; - /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[3].meltbp_long = 3236; + /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.OPCLOV__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ meltfptr[7];; @@ -20023,12 +20028,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^apply.arg*/ - argtab[1].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; + argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*^apply.arg*/ - argtab[2].bp_cstring = "putclosedv"; - /*_.OUTPUT_LOCATION__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_cstring = "putclosedv"; + /*_.OUTPUT_LOCATION__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!OUTPUT_LOCATION*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OLOC__V9*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; @@ -20051,12 +20056,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V14*/ meltfptr[13] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20079,12 +20084,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20097,12 +20102,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20115,12 +20120,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20143,12 +20148,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V18*/ meltfptr[17] = meltgc_send((melt_ptr_t)(/*_.OCLOS__V10*/ meltfptr[9]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20161,12 +20166,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V19*/ meltfptr[18] = meltgc_send((melt_ptr_t)(/*_.OOFF__V11*/ meltfptr[10]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; @@ -20179,12 +20184,12 @@ lab_endgetargs:; union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ - argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DECLBUF__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ - argtab[1].bp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.IMPLBUF__V4*/ meltfptr[3]; /*^ojbmsend.arg*/ - argtab[2].bp_long = /*_#DEPTH__L1*/ meltfnum[0]; - /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; + /*_.OUTPUT_C_CODE__V20*/ meltfptr[19] = meltgc_send((melt_ptr_t)(/*_.OCVAL__V12*/ meltfptr[11]), (melt_ptr_t)((/*!OUTPUT_C_CODE*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; |